Scribd Logo
Upload

Welcome to Scribd!

  • 396 views

    JCL

    Uploaded by

    Aditya Mishra
    The document appears to be a job control language (JCL) file that defines steps for unloading data from a database and generating control files. It includes steps to run programs to unload the data, generate control cards, and abort if any step fails. Datasets and temporary files are defined for use by the steps.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd

    JCL

    Uploaded by

    Aditya Mishra
    396 views4 pages
    The document appears to be a job control language (JCL) file that defines steps for unloading data from a database and generating control files. It includes steps to run programs to unload the data, generate control cards, and abort if any step fails. Datasets and temporary files are defined for use by the steps.

    Copyright

    © © All Rights Reserved

    Available Formats

    TXT, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    The document appears to be a job control language (JCL) file that defines steps for unloading data from a database and generating control files. It includes steps to run programs to unload the data, generate control cards, and abort if any step fails. Datasets and temporary files are defined for use by the steps.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    396 views4 pages

    JCL

    Uploaded by

    Aditya Mishra
    The document appears to be a job control language (JCL) file that defines steps for unloading data from a database and generating control files. It includes steps to run programs to unload the data, generate control cards, and abort if any step fails. Datasets and temporary files are defined for use by the steps.

    Copyright:

    © All Rights Reserved
    Download as TXT, PDF, TXT or read online from Scribd
    Download as txt, pdf, or txt
    You are on page 1of 4

    //IXP0021 PROC PRODIXN=TESTIXN, 00010000

    // GHDATA=GHTEST, 00020000
    // MEMA=, 00030000
    // MEMB=, 00040000
    // DB2=, 00050000
    // SORTCYL=, 00060000
    // PTRP=, 00070000
    // LINKLIB=GHTEST 00080000
    //* ** =================================== ** 00090000
    //* ** IXGRP1 UNLOAD; DATA CARD = IXD0021 ** 00100000
    //* ** =================================== ** 00110000
    //UT997A EXEC PGM=UT997, 00120000
    // PARM='++WRITE WORK,&MEMA' 00130000
    //* ** =================================== ** 00140000
    //* ** GENERATE PANDATA CONTROL CARD ** 00150000
    //* ** =================================== ** 00160000
    //SYSPRINT DD SYSOUT=* 00170000
    //ALTPRINT DD SYSOUT=* 00180000
    //SYSUDUMP DD SYSOUT=D 00190000
    //LINKPGM DD DSN=&&PAN#1, 00200000
    // UNIT=VIO 00210000
    //PANDD1 DD DSN=&GHDATA..PANVALET, 00220000
    // DISP=SHR 00230000
    //PANDD2 DD DSN=&&UNLDA, 00240000
    // DISP=(,PASS), 00250000
    // UNIT=VIO 00260000
    //ALTPRINT DD SYSOUT=* 00270000
    //* ** ** 00280000
    //ABENDA EXEC PGM=ABEND, 00290000
    // COND=(4,GE,UT997A), 00300000
    // PARM='UNSUCCESSFUL UT997A' 00310000
    //* ** ABEND IF UT997A IS UNSUCCESSFUL ** 00320000
    //STEPLIB DD DSN=&LINKLIB..LINKLIB, 00330000
    // DISP=SHR 00340000
    //SYSUDUMP DD SYSOUT=D 00350000
    //SYSOUT DD SYSOUT=* 00360000
    //SYSPRINT DD SYSOUT=* 00370000
    //* ** UNLOADS DATA FROM IXGRPI ** 00380000
    //UNLOADA EXEC PGM=PTLDRIVM, 00390000
    // PARM='EP=UTLGLCTL/DBP1', 00400000
    // TIME=1399 00410000
    //* ** ** 00420000
    //SYSIN DD DSN=&&UNLDA, 00430000
    // DISP=(OLD,DELETE) 00440000
    //STEPLIB DD DSN=&PTRP..MAIN.LOADLIB, 00450000
    // DISP=SHR 00460000
    // DD DSN=&DB2..DSNLOAD, 00470000
    // DISP=SHR 00480000
    //PTILIB DD DSN=&PTRP..MAIN.LOADLIB, 00490000
    // DISP=SHR 00500000
    // DD DSN=&DB2..DSNLOAD, 00510000
    // DISP=SHR 00520000
    //PTIPARM DD DSN=&PTRP..MAIN.PARMLIB, 00530000
    // DISP=SHR 00540000
    //PTIXMSG DD DSN=&PTRP..MAIN.XMESSAGE, 00550000
    // DISP=SHR 00560000
    //SYSUDUMP DD SYSOUT=D 00570000
    //SYSOUT DD SYSOUT=* 00580000
    //PTIMSG DD SYSOUT=* 00590000
    //PTIMSG01 DD SYSOUT=* 00600000
    //ST01MSG DD SYSOUT=* 00610000
    //ST01WK01 DD UNIT=SYSDA 00620000
    //ST01WK02 DD UNIT=SYSDA 00630000
    //ST01WK03 DD UNIT=SYSDA 00640000
    //ST01WK04 DD UNIT=SYSDA 00650000
    //ST01WK05 DD UNIT=SYSDA 00660000
    //ST01WK06 DD UNIT=SYSDA 00670000
    //ST01WK07 DD UNIT=SYSDA 00680000
    //ST01WK08 DD UNIT=SYSDA 00690000
    //ST01WK09 DD UNIT=SYSDA 00700000
    //ST01WK10 DD UNIT=SYSDA 00710000
    //ST01WK11 DD UNIT=SYSDA 00720000
    //ST01WK12 DD UNIT=SYSDA 00730000
    //ST01WK13 DD UNIT=SYSDA 00740000
    //ST01WK14 DD UNIT=SYSDA 00750000
    //ST01WK15 DD UNIT=SYSDA 00760000
    //ST01WK16 DD UNIT=SYSDA 00770000
    //ST01WK17 DD UNIT=SYSDA 00780000
    //ST01WK18 DD UNIT=SYSDA 00790000
    //ST01WK19 DD UNIT=SYSDA 00800000
    //ST01WK20 DD UNIT=SYSDA 00810000
    //ST01WK21 DD UNIT=SYSDA 00820000
    //ST01WK22 DD UNIT=SYSDA 00830000
    //ST01WK23 DD UNIT=SYSDA 00840000
    //ST01WK24 DD UNIT=SYSDA 00850000
    //ST01WK25 DD UNIT=SYSDA 00860000
    //ST01WK26 DD UNIT=SYSDA 00870000
    //ST01WK27 DD UNIT=SYSDA 00880000
    //ST01WK28 DD UNIT=SYSDA 00890000
    //ST01WK29 DD UNIT=SYSDA 00900000
    //ST01WK30 DD UNIT=SYSDA 00910000
    //ST01WK31 DD UNIT=SYSDA 00920000
    //ST01WK32 DD UNIT=SYSDA 00930000
    //ST01WK33 DD UNIT=SYSDA 00940000
    //ST01WK34 DD UNIT=SYSDA 00950000
    //ST01WK35 DD UNIT=SYSDA 00960000
    //ST01WK36 DD UNIT=SYSDA 00970000
    //ST01WK37 DD UNIT=SYSDA 00980000
    //ST01WK38 DD UNIT=SYSDA 00990000
    //ST01WK39 DD UNIT=SYSDA 01000000
    //ST01WK40 DD UNIT=SYSDA 01010000
    //ST01WK41 DD UNIT=SYSDA 01020000
    //ST01WK42 DD UNIT=SYSDA 01030000
    //ST01WK43 DD UNIT=SYSDA 01040000
    //ST01WK44 DD UNIT=SYSDA 01050000
    //ST01WK45 DD UNIT=SYSDA 01060000
    //ST01WK46 DD UNIT=SYSDA 01070000
    //ST01WK47 DD UNIT=SYSDA 01080000
    //ST01WK48 DD UNIT=SYSDA 01090000
    //ST01WK49 DD UNIT=SYSDA 01100000
    //ST01WK50 DD UNIT=SYSDA 01110000
    //ST01WK51 DD UNIT=SYSDA 01120000
    //ST01WK52 DD UNIT=SYSDA 01130000
    //ST01WK53 DD UNIT=SYSDA 01140000
    //ST01WK54 DD UNIT=SYSDA 01150000
    //SYSCTL01 DD DUMMY 01160000
    //SYSREC01 DD DSN=&PRODIXN..EOB.IXGRPI.UNLOAD.FILE, 01170000
    // DISP=(NEW,CATLG,DELETE), 01180000
    // RECFM=FB, 01190000
    // UNIT=SYSDA 01200000
    //* ** ** 01210000
    //ABENDB EXEC PGM=ABEND, 01220000
    // COND=(4,GE,UNLOADA), 01230000
    // PARM='UNSUCCESSFUL UNLD' 01240000
    //* ** ABEND IF UNLD STEP IS UNSUCCESSFUL ** 01250000
    //STEPLIB DD DSN=&LINKLIB..LINKLIB, 01260000
    // DISP=SHR 01270000
    //SYSUDUMP DD SYSOUT=D 01280000
    //SYSOUT DD SYSOUT=* 01290000
    //SYSPRINT DD SYSOUT=* 01300000
    //* ** =================================== ** 01310000
    //* ** SORT DATACARD =IXD0021B ** 01320000
    //* ** =================================== ** 01330000
    //UT997B EXEC PGM=UT997, 01340000
    //* ** EXTRACT IN SORT ** 01350000
    // PARM='++WRITE WORK,&MEMB' 01360000
    //* ** EXTRACT IN SORT ** 01370000
    //SYSPRINT DD SYSOUT=* 01380000
    //ALTPRINT DD SYSOUT=* 01390000
    //SYSUDUMP DD SYSOUT=D 01400000
    //LINKPGM DD DSN=&&PAN#1, 01410000
    // UNIT=VIO 01420000
    //PANDD1 DD DSN=&GHDATA..PANVALET, 01430000
    // DISP=SHR 01440000
    //PANDD2 DD DSN=&&SORTCRDS, 01450000
    // DISP=(,PASS), 01460000
    // UNIT=VIO 01470000
    //ALTPRINT DD SYSOUT=* 01480000
    //* ** ** 01490000
    //ABENDC EXEC PGM=ABEND, 01500000
    // COND=(4,GE,UT997B), 01510000
    // PARM='UNSUCCESSFUL UT997B' 01520000
    //* ** ABEND IF UT997B IS UNSUCCESSFUL ** 01530000
    //STEPLIB DD DSN=GHPROD.LINKLIB, 01540000
    // DISP=SHR 01550000
    //SYSUDUMP DD SYSOUT=D 01560000
    //SYSOUT DD SYSOUT=* 01570000
    //SYSPRINT DD SYSOUT=* 01580000
    //* ** ***************************************** ** 01590000
    //* ** * REMOVES DUPLICATE REC HAVING SAME * ** 01600000
    //* ** * GROUP NUMBER * ** 01610000
    //* ** ***************************************** ** 01620000
    //SORTA EXEC PGM=SORT 01630000
    //* ** EXTRACT IN SORT ** 01640000
    //SORTWK INCLUDE MEMBER=IXI001 01650000
    //SYSPRINT DD SYSOUT=* 01660000
    //SYSOUT DD SYSOUT=* 01670000
    //SORTIN DD DSN=&PRODIXN..EOB.IXGRPI.UNLOAD.FILE, 01680000
    // DISP=SHR 01690000
    //SORTOUT DD DSN=&PRODIXN..EOB.IXGRPI,DISP=(NEW,CATLG,DELETE) 01700000
    // DISP=(NEW,CATLG,DELETE), 01710000
    // RECFM=FB, 01720000
    // UNIT=SYSDA 01730000
    //SYSIN DD DSN=&&SORTCRDS, 01740000
    // DISP=(OLD,DELETE,DELETE) 01750000
    //ABENDD EXEC PGM=ABEND, 01760000
    // COND=(4,GE,SORTA), 01770000
    // PARM='UNSUCCESSFUL SORT' 01780000
    //* ** ABEND IF SORT IS UNSUCCESSFUL ** 01790000
    //STEPLIB DD DSN=GHPROD.LINKLIB, 01800000
    // DISP=SHR 01810000
    //SYSUDUMP DD SYSOUT=D 01820000
    //SYSOUT DD SYSOUT=* 01830000
    //SYSPRINT DD SYSOUT=* 01840000

    You might also like