//$64159CC JOB (NASSCO,141800,NAS,08),PCRIBBS, // MSGLEVEL=(1,1), // MSGCLASS=X, // REGION=8M, //* TYPRUN=SCAN, //* RESTART=STEP2, // TIME=60, // NOTIFY=$64159, // COND=(8,LE) //* //********************************************************************* //* * //* THIS JCL WILL DEMONSTRATE THE ABLITY TO REPORT ON * //* AN IMS APPLICATION * //* * //* PLEASE MAKE THE NECESSARY MODIFICATIONS TO CONFORM * //* TO YOUR INSTALLATION STANDARDS. * //* * //* NOTES: MANUAL CHANGES ARE REQUIRED IN THIS JOB STREAM * //* TO UPDATE SYSIN PORTIONS BEYOND THE CONTROL * //* OF THE PROCEDURE'S SUBSTITUTIONAL PARAMETERS. * //* THE IDCAMS SYSIN MUST BE MANUALLY CHANGED * //* TO REFLECT YOUR CHOSEN VSAM FILE NAME. * //* SEE THE COMMENTS IN THE INPUT OVERIDES THROUGHOUT * //* THIS JOB STREAM. THEY ARE MARKED WITH *CHANGE* * //* WHERE APPLICABLE. * //* * //********************************************************************* //DLITEST PROC MBR=TEMPNAME,PSB=,BUF=7, 00000010 // SPIE=0,TEST=0,EXCPVR=0,RST=0,PRLD=, 00000020 // SRCH=0,CKPTID=,MON=N,LOGA=0,FMTO=T, 00000030 // IMSID=,SWAP=,DBRC=,IRLM=,IRLMNM=, 00000040 // BKO=N,IOB=,SSM=,APARM=, 00000050 // RGN=4096K, 00000060 // SOUT=A, /* SYSOUT CLASS FOR IMS 00000070 // IMSHLQ=SYSNZ.IMS.NIMSP, /* IMS HIGH LEVEL QUAL. 00000070 // COMPLIB=IGY.SIGYCOMP, /* COBII OR ABOVE COMPILER // LNKLIB=CEE.SCEELKED, /* LE/370 LINK-EDIT FILE // RUNLIB=CEE.SCEERUN, /* LE/370 EXECUTION FILE // SYM=SYSNZ.OPTII.PROTSYM, /* SYMBOLIC FILE // OPTHLQ=SYSNZR.OPTII, /* PRODUCT HIGH LEVEL QUAL. // RESLIB='SYSNZ.IMS.TIMS.SDFSRESL' //*===================================================================* //* STEP 1 - GENERATE TEST DATABASE DBD AND PSB ----------------------* //*===================================================================* //ASMDBD1 EXEC PGM=ASMA90,PARM='OBJECT,NODECK',REGION=1M //SYSLIB DD DSN=&IMSHLQ..MACLIB,DISP=SHR //* DD DSN=&IMSHLQ..GENLIBA,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(100,50)), // DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(100,50)), // DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(100,50)), // DISP=(,DELETE) //SYSLIN DD DSN=&&TEMPLIB,DISP=(,PASS), // UNIT=SYSDA, // SPACE=(80,(100,100),RLSE), // DCB=(RECFM=F,LRECL=80,BLKSIZE=80) //SYSIN DD DUMMY //*------------------------------------------------------------------* //LNKDBD1 EXEC PGM=IEWL,COND=(0,LT,ASMDBD1), // PARM='XREF,LIST' //SYSLIB DD DSN=&RESLIB,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSLIN DD DSN=*.ASMDBD1.SYSLIN,DISP=(OLD,DELETE) //SYSLMOD DD DSN=&&DBDLIB(DEMODBSE),DISP=(,PASS),UNIT=SYSDA, // SPACE=(TRK,(1,1,1)),DCB=(BLKSIZE=23200) //SYSUT1 DD DSN=&&SYSUT1, // UNIT=SYSDA,SPACE=(1024,(100,10)), // DISP=(,DELETE) //*===================================================================* //ASMPCB1 EXEC PGM=ASMA90,PARM='OBJECT,NODECK',REGION=1M //SYSLIB DD DSN=&IMSHLQ..MACLIB,DISP=SHR //* DD DSN=&IMSHLQ..GENLIBA,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(100,50)), // DISP=(,DELETE) //SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(100,50)), // DISP=(,DELETE) //SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(100,50)), // DISP=(,DELETE) //SYSLIN DD DSN=&&TEMPLIB,DISP=(,PASS), // UNIT=SYSDA, // SPACE=(80,(100,100),RLSE), // DCB=(RECFM=F,LRECL=80,BLKSIZE=80) //SYSIN DD DUMMY //*------------------------------------------------------------------* //LNKPCB1 EXEC PGM=IEWL,COND=(0,LT,ASMPCB1), // PARM='XREF,LIST,SIZE=(256K,100K)' //SYSLIB DD DSN=&RESLIB,DISP=SHR //SYSPRINT DD SYSOUT=* //SYSLIN DD DSN=*.ASMPCB1.SYSLIN,DISP=(OLD,DELETE) //SYSLMOD DD DSN=&&PSBLIB(DEMOPSB),DISP=(,PASS),UNIT=SYSDA, // SPACE=(TRK,(1,1,1)),DCB=(BLKSIZE=23200) //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(100,10)), // DISP=(,DELETE) //*===================================================================* //* STEP 2 - ALLOCATE VSAM SPACE FOR TEST DATABASE -------------------* //*===================================================================* //DEFVSAM EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //*===================================================================* //* STEP 3 - COMPILE LINK AND RUN PROGRAM TO POPULATE DATABASE -------* //*===================================================================* //COB2 EXEC PGM=IGYCRCTL,REGION=4M,COND=(99,LT,DEFVSAM), 00081081 // PARM=('APOST,DYN,RES,SOURCE,MAP,LIST,XREF') 00121083 //STEPLIB DD DSN=&COMPLIB,DISP=SHR 00200082 //SYSPRINT DD DSN=&&LST,DISP=(NEW,PASS), 00320042 // UNIT=SYSDA,SPACE=(TRK,(10,10)) //SYSUDUMP DD SYSOUT=* 00330062 //SYSOUT DD SYSOUT=* 00340000 //SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10)) 00350000 //SYSUT2 DD UNIT=SYSDA,SPACE=(TRK,(10,10)) 00360000 //SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,(10,10)) 00370000 //SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,(10,10)) 00380000 //SYSUT5 DD UNIT=SYSDA,SPACE=(TRK,(10,10)) 00390000 //SYSUT6 DD UNIT=SYSDA,SPACE=(TRK,(10,10)) 00400000 //SYSUT7 DD UNIT=SYSDA,SPACE=(TRK,(10,10)) 00410000 //SYSPUNCH DD SYSOUT=* 00440000 //SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS), 00450000 // UNIT=(SYSDA,SEP=CAIUT2),SPACE=(400,(2000,200)) 00460000 //SYSIN DD DUMMY 00480081 //* //IEBGENER EXEC PGM=IEBGENER,COND=EVEN //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&LST,DISP=(OLD,PASS) //SYSUT2 DD SYSOUT=* //SYSPRINT DD DUMMY //SYSIN DD DUMMY //***************************************************************** //*** CREATE THE CARDS PARM MEMBER ******************************** //***************************************************************** //PARM EXEC PGM=IN25PARM,REGION=4M,COND=(4,LT), // PARM='OPIMSDMO,LISTER=ALL,CUTPRINT=ALL' //STEPLIB DD DSN=&OPTHLQ..CARXLOAD,DISP=SHR // DD DSN=&OPTHLQ..CAILIB,DISP=SHR //CARDS DD DSN=&&CARDS,DISP=(NEW,PASS), // UNIT=SYSDA,SPACE=(TRK,(1)) //***************************************************************** //*** LOAD THE PROTSYM ******************************************** //***************************************************************** //SYM EXEC PGM=IN25COB2,REGION=4M,COND=(4,LT) //STEPLIB DD DSN=&OPTHLQ..CARXLOAD,DISP=SHR // DD DSN=&OPTHLQ..CAILIB,DISP=SHR //PROTSYM DD DSN=&SYM,DISP=SHR //INPUT DD DSN=&&LST,DISP=(OLD,PASS) //OUTPUT DD SYSOUT=*,DCB=(LRECL=133,BLKSIZE=3990,RECFM=FBA) //CARDS DD DSN=&&CARDS,DISP=(OLD,DELETE) //MESSAGE DD SYSOUT=* //********************************************************************* 00542077 //** ----- LINKEDIT ----- ** 00550068 //********************************************************************* 00560068 //LKED EXEC PGM=IEWL,REGION=512K,COND=(4,LT,COB2), 00570068 // PARM=('LIST,XREF') 00580068 //OBJECT DD DSN=&&LOADSET,DISP=(OLD,DELETE) 00590068 //SYSLMOD DD DSN=&&LOADLIB(OPIMSDMO),DISP=(,PASS),UNIT=SYSDA, // SPACE=(TRK,(1,1,1)),DCB=(BLKSIZE=23200) //RESLIB DD DISP=SHR,DSN=&RESLIB 00670068 //SYSLIB DD DSN=&OPTHLQ..CARXLOAD,DISP=SHR 00720068 // DD DSN=&OPTHLQ..CAILIB,DISP=SHR // DD DSN=&LNKLIB,DISP=SHR 00750068 //SYSUT1 DD UNIT=SYSDA,SPACE=(1024,(50,20)) 00790068 //SYSPRINT DD SYSOUT=* 00800068 //SYSLIN DD DUMMY //********************************************************************* 00560068 //GO EXEC PGM=DFSRRC00,REGION=&RGN, 00000080 // PARM=(DLI,&MBR,&PSB,&BUF, 00000090 // &SPIE&TEST&EXCPVR&RST,&PRLD, 00000100 // &SRCH,&CKPTID,&MON,&LOGA,&FMTO, 00000110 // &IMSID,&SWAP,&DBRC,&IRLM,&IRLMNM, 00000120 // &BKO,&IOB,&SSM,'&APARM') 00000130 //DFSRESLB DD DSN=&RESLIB,DISP=SHR 00000160 //STEPLIB DD DSN=&RESLIB,DISP=SHR 00000160 // DD DISP=SHR,DSN=&OPTHLQ..CARXLOAD // DD DISP=SHR,DSN=&OPTHLQ..CAILIB // DD DISP=SHR,DSN=&RUNLIB // DD DISP=(OLD,DELETE),DSN=&&LOADLIB //PROCLIB DD DISP=SHR,DSN=&IMSHLQ..PROCLIB //IEFRDER2 DD DUMMY //DFSURWF1 DD DSN=&&WF1A,DISP=NEW, // UNIT=SYSDA, // SPACE=(TRK,(4,2)), // DCB=(RECFM=VB,LRECL=900,BLKSIZE=1800) //CAISYM DD DSN=&SYM,DISP=SHR 00880000 //IMS DD DISP=(OLD,DELETE),DSN=&&PSBLIB // DD DISP=(OLD,DELETE),DSN=&&DBDLIB //IEFRDER DD DUMMY 00000200 //SYSOUT DD SYSOUT=&SOUT //SYSUDUMP DD SYSOUT=&SOUT,DCB=(RECFM=FBA,LRECL=121,BLKSIZE=605), 00000230 // SPACE=(605,(500,500),RLSE,,ROUND) 00000240 //IMSMON DD DUMMY 00000250 //SYSPRINT DD SYSOUT=* //SYSUDUMP DD SYSOUT=* //SYSABOUT DD DUMMY //* PHC ADDITIONS //* 00021000 //CAIPRINT DD SYSOUT=* //CAITIMSV DD DSN=&&TIMSV,DISP=(MOD,PASS), // UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE), // DCB=(LRECL=20,BLKSIZE=4320,RECFM=FB) //CAIOPTS DD DUMMY //*CAISYM DD DSN=SYSNZ.OPTII.PROTSYM,DISP=SHR //*CAISYM DD DSN=$64159.OPTII.PROTSYM,DISP=SHR //CAIPRNT1 DD SYSOUT=* //CAIPRNT2 DD SYSOUT=* //*CAISTATS DD DSN=YOUR.OPTII.STATISTICS-FILE,DISP=SHR // PEND //********************************************************************* 00560068 //DBLOAD EXEC PROC=DLITEST,SOUT='*', // MBR=OPIMSDMO,PSB=DEMOPSB, // DBRC=N,IRLM=N, // IMSHLQ=SYSNZ.IMS.NIMSP, 00000070 //* COMPLIB=CEE.COMPLIB, *CHANGE* // COMPLIB=IGY.SIGYCOMP, // LNKLIB=CEE.SCEELKED, *CHANGE* // RUNLIB=CEE.SCEERUN, *CHANGE* // OPTHLQ=SYSNZR.OPTII //ASMDBD1.SYSIN DD * PRINT ON,NOGEN * 00010000 *********************************************************************** 00020000 * * 00021000 * DBD SOURCE FOR DEMO DATABASE * 00022000 * * 00023000 *********************************************************************** 00130000 * 00140000 DBD NAME=DEMODBSE,ACCESS=(HISAM,VSAM) 00160000 DATASET DD1=DEMODSDD,DEVICE=3380,OVFLW=DEMODSOV, X00170000 SIZE=(2048,2048),RECORD=(678,678) 00180000 SEGM NAME=DEMOROOT,PARENT=0,BYTES=35,FREQ=250 00190000 FIELD NAME=(DEMOKEY,SEQ),TYPE=C,BYTES=5,START=1 00200000 SEGM NAME=DEMODATA,PARENT=DEMOROOT,BYTES=25,FREQ=1 00210000 FIELD NAME=(DATAKEY,SEQ),TYPE=C,BYTES=6,START=1 00220000 DBDGEN 00290000 FINISH 00300000 END 00310000 /* //ASMPCB1.SYSIN DD * TITLE 'SAMPLE DEMO PSB' 00010000 * 00020000 PCB TYPE=DB,DBDNAME=DEMODBSE,PROCOPT=L,KEYLEN=11, X00200000 PCBNAME=DEMOLOAD SENSEG NAME=DEMOROOT,PARENT=0 00210000 SENSEG NAME=DEMODATA,PARENT=DEMOROOT 00220000 * PCB TYPE=DB,DBDNAME=DEMODBSE,PROCOPT=A,KEYLEN=11, 00200000 * PCBNAME=DEMOPSB * SENSEG NAME=DEMOROOT,PARENT=0 00210000 * SENSEG NAME=DEMODATA,PARENT=DEMOROOT 00220000 PSBGEN LANG=COBOL,PSBNAME=DEMOPSB 00260000 END 00470000 /* //DEFVSAM.SYSIN DD * *CHANGE* DELETE (MACPACT.DEMO.DATABASE) DELETE (MACPACT.DEMO.DATABASO) SET MAXCC=0 DEFINE CLUSTER (- NAME(MACPACT.DEMO.DATABASE)- INDEXED- RECORDSIZE (678,678)- KEYS (5,6) - CONTROLINTERVALSIZE (2048)- RECORDS(30,10)- VOLUMES(TSTLB7))- DATA (- NAME(MACPACT.DEMO.DATABASE.DATA))- INDEX (- NAME(MACPACT.DEMO.DATABASE.INDX)) DEFINE CLUSTER (- NAME(MACPACT.DEMO.DATABASO)- NONINDEXED- RECORDSIZE (678,678)- CONTROLINTERVALSIZE (2048)- RECORDS(30,10)- VOLUMES(TSTLB7))- DATA (- NAME(MACPACT.DEMO.DATABASO.DATA)) /* //COB2.SYSIN DD * IDENTIFICATION DIVISION. 00010000 PROGRAM-ID. OPIMSDMO. 00020000 * 00030000 * IMS DEMO PROGRAM. 00059000 * 00058000 ENVIRONMENT DIVISION. 00060000 CONFIGURATION SECTION. 00070000 INPUT-OUTPUT SECTION. 00100000 FILE-CONTROL. 00110000 SELECT INPUT-FILE ASSIGN TO INFILE. 00120000 DATA DIVISION. 00130000 FILE SECTION. 00140000 FD INPUT-FILE 00150000 RECORD CONTAINS 80 CHARACTERS 00160000 BLOCK CONTAINS 0 RECORDS 00170000 RECORDING MODE IS F 00180000 LABEL RECORDS ARE OMITTED 00190000 DATA RECORD IS INPUT-RECORD. 00200000 01 INPUT-RECORD. 00210000 02 INP-SEG-NAME PICTURE X(08). 00220000 02 FILLER PICTURE X(01). 00230000 02 INP-DATA PICTURE X(71). 00240000 WORKING-STORAGE SECTION. 00260000 01 DL1-FUNCTION PICTURE X(04). 00270000 01 HOLD-SEGMENT-NAME PICTURE X(08). 00300000 01 BUILD-SEGMENT-AREA. 00300100 02 BUILD-SEG-NAME PICTURE X(08) VALUE SPACE. 00301000 02 FILLER PICTURE X(01). 00302000 02 BUILD-DATA-AREA PICTURE X(71). 00310000 01 MISC-ARITHMETIC-FIELDS USAGE COMPUTATIONAL. 00330000 02 SUB-1 PICTURE S9(02) VALUE ZEROS. 00340000 01 DEMOROOT-SSA. 00350000 02 SEG-NAME-ROOT PICTURE X(08) VALUE 'DEMOROOT'. 00360000 02 BEGIN-OP-ROOT PICTURE X(01) VALUE '('. 00370000 02 KEY-NAME-ROOT PICTURE X(08) VALUE 'DEMOKEY'. 00380000 02 REL-OPER-ROOT PICTURE X(02) VALUE ' ='. 00390000 02 KEY-VALUE-ROOT PICTURE X(05). 00400000 02 END-OP-ROOT PICTURE X(01) VALUE ')'. 00410000 01 DEMODATA-SSA. 00420000 02 SEG-NAME-DEMO PICTURE X(08) VALUE 'DEMODATA'. 00430000 02 BEGIN-OP-DEMO PICTURE X(01) VALUE '('. 00440000 02 KEY-NAME-DEMO PICTURE X(08) VALUE 'DATAKEY '. 00450000 02 REL-OPER-DEMO PICTURE X(02) VALUE ' ='. 00460000 02 KEY-VALUE-DEMO PICTURE X(06). 00470000 02 END-OP-DEMO PICTURE X(01) VALUE ')'. 00480000 01 ROOT-INSERT-AREA. 00700000 02 ROOT-KEY PICTURE X(05). 00712000 02 FILLER PICTURE X(01). 00713000 02 ROOT-CITY PICTURE X(20). 00714000 02 FILLER PICTURE X(01). 00715000 02 ROOT-STATE PICTURE X(02). 00716000 02 FILLER PICTURE X(01). 00717000 02 ROOT-REGION PICTURE X(05). 00718000 02 FILLER PICTURE X(36). 00719000 01 DEMODATA-INSERT-AREA. 00720000 02 DEMO-KEY PICTURE X(06). 00723000 02 FILLER PICTURE X(01). 00724000 02 DEMO-SEASON PICTURE X(06). 00725000 02 FILLER PICTURE X(01). 00726000 02 DEMO-AVG-HI-TEMP PICTURE 99. 00727000 02 FILLER PICTURE X(01). 00728000 02 DEMO-AVG-LOW-TEMP PICTURE 99. 00729000 02 FILLER PICTURE X(52). 00730000 01 HI-TEMP-CALC PICTURE 99. 00740000 01 HI-TEMP5 PICTURE 99. 00750000 01 HI-TEMP9 PICTURE 99. 00751000 01 HI-TEMP-CELSIUS PICTURE 99. 00760000 LINKAGE SECTION. 00860000 01 PCB-AREA-1. 00870000 02 DBD-NAME PICTURE X(08). 00880000 02 SEGMENT-LEVEL PICTURE X(02). 00890000 02 STATUS-CODES PICTURE X(02). 00900000 02 PROCESS-OPTIONS PICTURE X(04). 00910000 02 FILLER PICTURE S9(05) COMPUTATIONAL. 00920000 02 SEG-NAME PICTURE X(08). 00930000 PROCEDURE DIVISION. 00940000 ENTRY-POINT. 00960000 ENTRY 'DLITCBL' USING PCB-AREA-1. 00970000 OPEN INPUT INPUT-FILE. 00990000 MOVE 'ISRT' TO DL1-FUNCTION. 01000000 READ-IN-RECORD. 01010000 READ INPUT-FILE AT END 01020000 GO TO END-READ-RECORD. 01030000 MOVE INPUT-RECORD TO BUILD-SEGMENT-AREA. 01031000 PERFORM LOAD-EM-UP THRU ALL-DONE. 01041100 MOVE BUILD-SEG-NAME TO HOLD-SEGMENT-NAME. 01041200 LOAD-EM-UP. 01170000 EVALUATE HOLD-SEGMENT-NAME 01200000 WHEN 'DEMOROOT' PERFORM BUILD-DEMOROOT-SEG 01201000 WHEN 'DEMODATA' PERFORM BUILD-DEMODATA-SEG 01202000 WHEN OTHER GO TO ALL-DONE 01202106 END-EVALUATE. 01203000 BUILD-DEMOROOT-SEG. 01280000 MOVE BUILD-SEGMENT-AREA TO ROOT-INSERT-AREA. 01290000 MOVE ROOT-KEY TO KEY-VALUE-ROOT. 01300000 MOVE SPACE TO BEGIN-OP-ROOT. 01310000 CALL 'CBLTDLI' USING DL1-FUNCTION, PCB-AREA-1, 01320000 ROOT-INSERT-AREA, DEMOROOT-SSA. 01330000 MOVE '(' TO BEGIN-OP-ROOT. 01340000 IF STATUS-CODES NOT = SPACES, 01350000 GO TO ALL-DONE. 01360000 GO TO READ-IN-RECORD. 01361001 BUILD-DEMODATA-SEG. 01370000 MOVE BUILD-SEGMENT-AREA TO DEMODATA-INSERT-AREA. 01380000 MOVE DEMO-KEY TO KEY-VALUE-DEMO. 01400000 MOVE SPACE TO BEGIN-OP-DEMO. 01410000 CALL 'CBLTDLI' USING DL1-FUNCTION, PCB-AREA-1, 01420000 DEMODATA-INSERT-AREA, DEMOROOT-SSA, 01430000 DEMODATA-SSA. 01440000 MOVE '(' TO BEGIN-OP-DEMO. 01450000 IF STATUS-CODES NOT = SPACES, 01460000 GO TO ALL-DONE. 01461000 GO TO READ-IN-RECORD. 01462001 ALL-DONE. 01800000 PERFORM READ-IN-RECORD. 01810003 EXIT. 01820000 END-READ-RECORD. 01880000 CLOSE INPUT-FILE. 01881000 01882000 * CALCULATE THE DEGREES CELSIUS FROM THE TEMPERATURE 01890000 * USING THE FORMULA C = 5/9(F-32) 01891000 * SHOULD GET S0CB SINCE VALUE OF HI-TEMP9 IS LOW VALUES. 01891100 01892000 * SUBTRACT 32 FROM DEMO-AVG-HI-TEMP GIVING HI-TEMP-CALC. 01901000 * MULTIPLY HI-TEMP-CALC BY 5 GIVING HI-TEMP5. 01902000 * DIVIDE HI-TEMP5 BY HI-TEMP9 01903100 * GIVING HI-TEMP-CELSIUS. 01904000 01905000 NOW-LEAVE. 01940000 GOBACK. 01950000 /* //LKED.SYSLIN DD * INCLUDE RESLIB(DFSLI000) INCLUDE OBJECT ENTRY DLITCBL NAME OPIMSDMO(R) /* //* THE FOLLOWING 2 DATA SETS NAMES MUST MATCH THE DATA SETS //* DEFINED IN STEP DEFVSAM //GO.DEMODSDD DD DSN=MACPACT.DEMO.DATABASE,DISP=SHR //GO.DEMODSOV DD DSN=MACPACT.DEMO.DATABASO,DISP=SHR //GO.INFILE DD * 00880000 DEMOROOT 30147 BOSTON MA EAST DEMODATA 001212 WINTER 38 24 DEMODATA 000345 SPRING 56 40 DEMODATA 000678 SUMMER 80 63 DEMODATA 091011 AUTUMN 63 47 DEMOROOT 20492 HOUSTON TX SOUTH DEMODATA 001212 WINTER 64 43 DEMODATA 000345 SPRING 79 58 DEMODATA 000678 SUMMER 93 72 DEMODATA 091011 AUTUMN 81 59 DEMOROOT 11465 MINNEAPOLIS MN NORTH DEMODATA 001212 WINTER 25 08 DEMODATA 000345 SPRING 55 35 DEMODATA 000678 SUMMER 81 61 DEMODATA 091011 AUTUMN 57 38 DEMOROOT 42832 SACRAMENTO CA WEST DEMODATA 001212 WINTER 55 39 DEMODATA 000345 SPRING 72 46 DEMODATA 000678 SUMMER 90 57 DEMODATA 091011 AUTUMN 77 50 //GO.DFSVSAMP DD * VSRBF=4096,5 VSRBF=2048,5 VSRBF=512,5 IOBF=(2048,5) //GO.CAIOPTS DD * XCOUNT ON XTIME FIRST XREPORT ON CAIOPTS /* //* //*===================================================================* //* ------ DELETE THE TEST DATABASES -------------------------------* //*===================================================================* //DELVSAM EXEC PGM=IDCAMS,COND=EVEN //SYSPRINT DD SYSOUT=* //SYSIN DD * *CHANGE* DELETE (MACPACT.DEMO.DATABASE) DELETE (MACPACT.DEMO.DATABASO) //