PGM                                                                
             DCL        VAR(&FORMATBUF) TYPE(*CHAR) LEN(32727)                  
             DCL        VAR(&FORMATLEN) TYPE(*CHAR) LEN(4) +                    
                          VALUE(X'7FFF') /* =32767 */                           
             DCL        VAR(&FLAG) TYPE(*CHAR) LEN(1)                           
             DCL        VAR(&HEX08) TYPE(*CHAR) LEN(1) VALUE(X'08')             
             DCL        VAR(&SRCFILLIB) TYPE(*CHAR) LEN(20)                     
             DCL        VAR(&APIERR) TYPE(*CHAR) LEN(116) +                     
                          VALUE(X'0000007400000000') /* 2 進数  */              
                                                                                
             CHGVAR     VAR(&SRCFILLIB) VALUE('QDSPSRC   QTRSRC    ')           
/*( API: QDBRTVFD の実行 )*/                                                    
             CALL       PGM(QDBRTVFD) PARM(&FORMATBUF &FORMATLEN +              
                          &SRCFILLIB 'FILD0100' &SRCFILLIB +                    
                          '*FIRST   ' '0' '*FILETYPE ' '*EXT      ' +           
                          &APIERR)                                              
             CHGVAR     VAR(&FLAG) VALUE(%SST(&FORMATBUF 9 1))                  
             IF         COND(&FLAG = &HEX08) THEN(DO)                           
             SNDPGMMSG  MSG('*SRCF です ') MSGTYPE(*DIAG)                       
             ENDDO                                                              
             ELSE       CMD(DO)                                                 
             SNDPGMMSG  MSG('*SRCF ではありません。 ') MSGTYPE(*DIAG)           
             ENDDO                                                              
             ENDPGM