PGM                                                                
             DCL        VAR(&CMD) TYPE(*CHAR) LEN(20) +                         
                          VALUE('DSPFL     QUATTRO   ')                         
             DCL        VAR(&DESTINFO) TYPE(*CHAR) LEN(64)                      
             DCL        VAR(&DESTFMT) TYPE(*CHAR) LEN(8) +                      
                          VALUE('DEST0200')                                     
             DCL        VAR(&RCVVAR) TYPE(*CHAR) LEN(1)                         
             DCL        VAR(&RCVFMT) TYPE(*CHAR) LEN(8) +                       
                          VALUE('CMDD0100')                                     
             DCL        VAR(&ERROR) TYPE(*CHAR) LEN(16) +                       
                          VALUE(X'00000000')                                    
             DCL        VAR(&NULL2) TYPE(*CHAR) LEN(2) VALUE(X'0000')           
             DCL        VAR(&NULL3) TYPE(*CHAR) LEN(3) VALUE(X'000000')         
             DCL        VAR(&NULL10) TYPE(*CHAR) LEN(10) +                      
                          VALUE(X'00000000000000000000')                        
                                                                                
             CHGVAR     VAR(%BIN(&DESTINFO 1 4)) VALUE(0) /* CCSID */           
             CHGVAR     VAR(%SST(&DESTINFO 5 2)) VALUE(&NULL2) /* +             
                          COUNTRY */                                            
             CHGVAR     VAR(%SST(&DESTINFO 7 3)) VALUE(&NULL3) /* +             
                          LANGUAGE */                                           
             CHGVAR     VAR(%SST(&DESTINFO 10 3)) VALUE(&NULL3) /* +            
                          RESERVED */                                           
             CHGVAR     VAR(%BIN(&DESTINFO 13 4)) VALUE(0) /* PATH +            
                          TYPE */                                               
             CHGVAR     VAR(%BIN(&DESTINFO 17 4)) VALUE(16) /* PATH +           
                          NAME LEN */                                           
             CHGVAR     VAR(%SST(&DESTINFO 21 2)) VALUE('/') /* +               
                          DELIMINATOER */                                       
             CHGVAR     VAR(%SST(&DESTINFO 23 10)) VALUE(&NULL10) /* +          
                          RESERVED */                                           
             CHGVAR     VAR(%SST(&DESTINFO 33 32)) +                            
                          VALUE('/A001/GENDDL.XML')                             
                                                                                
             CALL       PGM(QCDRCMDD) PARM(&CMD &DESTINFO &DESTFMT +            
                          &RCVVAR &RCVFMT &ERROR)                               
             ENDPGM