PGM                                                                
/*************************************************************************/     
/* TESTTMP : TEMPNAM の自動発生                                          */     
/*                                                                       */     
/* CRTBNDCL PGM(OBJLIB/TESTTMP) SRCFILE(MYSRCLIB/QCLSRC) DFTACTGRP(*NO)  */     
/*   ACTGRP(*NEW) AUT(*ALL) DBGVIEW(*SOURCE)                             */     
/*                                                                       */     
/* ﾗ 例 ﾝ &TMPNAM = 'QTEMP/QACXCTNWQACXCTNWXD'                           */     
/*                                                                       */     
/*************************************************************************/     
             DCL        VAR(&TMPPTR) TYPE(*PTR)                                 
             DCL        VAR(&TMPNAM) TYPE(*CHAR) STG(*BASED) LEN(24) +          
                          BASPTR(&TMPPTR)                                       
             DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')              
             DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)                          
                                                                                
             CALLPRC    PRC('ﾎﾃﾆﾄｱﾃ') PARM((&NULL)) RTNVAL(&TMPPTR)             
             CHGVAR     VAR(&FILE) VALUE(%SST(&TMPNAM 7 10))                    
             ENDPGM