0034 //O1        DD DISP=OLD,
0035 //             DSN=OPDEMO.COST.STE0201.D&ODDD.&OHHMM.

0039 //SYSIN     DD *
0040   REPRO INFILE(IN) OUTFILE(O1) REUSE

0025 //INIT0000  EXEC PGM=IDCAMS,REGION=0M

0026 //SYSPRINT  DD SYSOUT=*

0027 //SYSOUT    DD SYSOUT=*

0028 //SYSTSPRT  DD SYSOUT=*

0029 //CEEDUMP   DD SYSOUT=*,FREE=CLOSE

0030 //SYSABEND  DD SYSOUT=*,FREE=CLOSE

0031 //SYSUDUMP  DD SYSOUT=*,FREE=CLOSE

0037 //IN        DD DSN=NULLFILE

0065 //SYSTSIN  DD *
0066  DSN SYSTEM (DB2P)
0067  RUN PROGRAM (FDEMO123)                                     -
0068  PLAN (FROP0050)
0069  END

0049 //STEP0005 EXEC PGM=IKJEFT01,DYNAMNBR=20,REGION=0M

0061 //SYSDBIN  DD DUMMY

0064 //IGZSRTCD DD DUMMY

0053 //SYSPRINT DD SYSOUT=*

0054 //SYSOUT   DD SYSOUT=*

0055 //SYSTSPRT DD SYSOUT=*

0056 //CEEDUMP  DD SYSOUT=*,FREE=CLOSE

0057 //SYSABEND DD SYSOUT=*,FREE=CLOSE

0058 //SYSUDUMP DD SYSOUT=*,FREE=CLOSE

0059 //SYSABOUT DD SYSOUT=*,FREE=CLOSE

0060 //SYSDBOUT DD SYSOUT=*,FREE=CLOSE

0062 //REPORT   DD SYSOUT=*

0063 //PRINT    DD SYSOUT=*

0080 //SORTIN   DD DISP=SHR,
0081 //            DSN=OPDEMO.GIP1.FABC0050

0082 //SORTOUT  DD DISP=OLD,
0083 //            DSN=OPDEMO.GIP1.GABC001A.G000001

0084 //SYSIN    DD *
0085    SORT FIELDS=COPY
0086    INREC FIELDS=(1,1350)
0087   END

0077 //STEP0010 EXEC PGM=SORT,REGION=0M

0078 //SYSPRINT DD SYSOUT=*

0079 //SYSOUT   DD SYSOUT=*

0107 //SYSIN    DD DISP=SHR,
0108 //            DSN=OPDEMO.DEMO.CLIENT.PCONSTR.INTRANET

0109 //         DD *
0110 INSERT INTO ABC.DEF110
0111 ( ABC , DEF , GHI , JKL , MNO, PQR , STU, VWX )
0112 VALUES
0113 ( &CYYYY. , &CMM. , &D. 0 , 0 , 0 ,
0114 'SPD DDX PI PXD START CPL_CTBCLI &CTIME.',
0115 '&CTIME.' );
0116 COMMIT;
0117 EXIT SQL.SQLCODE

0094 //STEP0015 EXEC PGM=SQLPLUS,REGION=0M

0100 //ORA$LIB  DD DISP=SHR,
0101 //            DSN=ORACLE.MESG

0102 //SQLNET   DD DISP=SHR,
0103 //            DSN=ORACLE.NAMES(ONAMES)

0104 //LDAP     DD DISP=SHR,
0105 //            DSN=ORACLE.NAMES(LDAP)

0106 //SQLLOGIN DD DUMMY

0096 //ORAPRINT DD SYSOUT=*

0097 //CEEDUMP  DD SYSOUT=*,FREE=CLOSE

0098 //SYSABEND DD SYSOUT=*,FREE=CLOSE

0099 //SYSERR   DD SYSOUT=*,DCB=(LRECL=132,BLKSIZE=1320,RECFM=VB)