Template:JZNEWLB

//NEW204LB PROC PRITRK='320',BLK=6400,SYSPRT=DUMMY //* //* Usage: //BLD EXEC NEW204LB,VERSION=nn, (e.g., 75, 76, ...) //* // HLQ=m204DsnHighLevelQual, //* // OBJINP=objlibInputStreamDsn, //* // MACINP=maclibInputStreamDsn //* //* Important note: The output object library, macro library, //* and the local object library are first deleted. //* //* This proc creates: //* - an object library, using the input stream which was downloaded //* from the Rocket Model 204 object files download web page; //* - an empty local object library //* - a macro library, using the input stream which was downloaded //* from the Rocket Model 204 macro library download web page. //* //* After downloading, the object and macro library inputs must //* each be un-zipped, and then FTP'd (BINARY, 80 byte fixed //* length records) into the OBJINP= and MACINP= sequential //* files, the two z/OS datasets which are input to this proc. //* //DEL EXEC PGM=IEFBR14 //OBJ DD DSN=&HLQ..M204V&VERSION..RKOBJLIB,DISP=(MOD,DELETE), // UNIT=SYSDA,SPACE=(TRK,1) //LOCALOBJ DD DSN=&HLQ..M204V&VERSION..LOCAL.OBJLIB,DISP=(MOD,DELETE), // UNIT=SYSDA,SPACE=(TRK,1) //MAC DD DSN=&HLQ..M204V&VERSION..RKMACLIB,DISP=(MOD,DELETE), // UNIT=SYSDA,SPACE=(TRK,1) //* //BLDOBJLB EXEC PGM=IEBUPDTE,PARM=NEW //SYSPRINT DD &SYSPRT << Note: this output will contain on the order //* of 160K lines or more //SYSUT2 DD DISP=(NEW,CATLG),SPACE=(TRK,(&PRITRK,50,60),RLSE), // UNIT=SYSDA,DCB=(DSORG=PO,LRECL=80,RECFM=FB,BLKSIZE=&BLK), // DSN=&HLQ..M204V&VERSION..RKOBJLIB //LOCALOBJ DD DISP=(NEW,CATLG),SPACE=(TRK,(&PRITRK,50,60),RLSE), // UNIT=SYSDA,DCB=(DSORG=PO,LRECL=80,RECFM=FB,BLKSIZE=&BLK), // DSN=&HLQ..M204V&VERSION..LOCAL.OBJLIB //SYSIN DD DISP=SHR,DSN=&OBJINP //* //BLDMACLB EXEC PGM=IEBUPDTE,PARM=NEW //SYSPRINT DD &SYSPRT << Note: this output will contain on the order //* of 100K lines or more //SYSUT2 DD DISP=(NEW,CATLG),SPACE=(TRK,(&PRITRK,50,60),RLSE), // UNIT=SYSDA,DCB=(DSORG=PO,LRECL=80,RECFM=FB,BLKSIZE=&BLK), // DSN=&HLQ..M204V&VERSION..RKMACLIB //SYSIN DD DISP=SHR,DSN=&MACINP //* // PEND