zOs/JCL/TDSNTIA

//A540769W JOB (CP00,KE50),'DB2 REO',                                   00010000
//         MSGCLASS=T,TIME=1440,                                        00020000
//         NOTIFY=&SYSUID,REGION=0M                                     00030000
//*MAIN CLASS=LOG                                                       00040000
//P01     EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT  DD SYSOUT=*
//SYSUDUMP  DD SYSOUT=*
//SYSPRINT  DD SYSOUT=*
//SYSTSIN   DD *
 DSN SYSTEM(DBTF)
 RUN PROGRAM(DSNTIAUL) PARMS('SQL')
 END
//SYSPUNCH  DD SYSOUT=*
//SYSREC00  DD DSN=A540769.TMP.DSNTIAUL,
//             SPACE=(CYL,(100,50),RLSE),
//             MGMTCLAS=COM#A013,
//             RECFM=FB,LRECL=2000,
//             UNIT=DISK,DISP=(,CATLG)
//SYSIN     DD *
  SELECT  * FROM OA1T.VNF009A1A
  ORDER BY CONSIGNMENT# ASC, ACCCYCLEUNIT# ASC
  ;
/*