//* YOUR JOB CARD GOES HERE **********************                      00000100
/*ROUTE  PRINT HOLD                                                     00000200
/*JOBPARM LINES=82                                                      00000300
//*  THIS DATASET IS NAMED STORET.HELP.PARCASF                          00000400
//*  IT WILL SELECT PARAMETER CODE RECORDS BASED ON THE                 00000500
//*  CAS NUMBERS SUPPLIED AFTER THE "//INF DD * " CARD.                 00000600
//*  UP TO 500 CAS NUMBERS MAY BE REQUESTED.                            00000700
//*                                                                     00000800
//*  IF AN OUTPUT FILE IS DESIRED, REPLACE LINES 2800 AND 2900          00000900
//*  WITH THE TWO LINES IMMEDIATELY FOLLOWING THEM. (DELETE THE "*").   00001000
//*  ALSO DO THE SAME WITH LINES 3800 AND 3900.                         00001100
//*                                                                     00001200
//*                                                                     00001300
//*                                                                     00001400
// EXEC PGM=PARCASF,REGION=500K                                         00001500
//STEPLIB DD DISP=SHR,DSN=CWT.F.STORET.LOADLIB                          00001600
//SYSPRINT DD SYSOUT=A,DCB=BLKSIZE=4000                                 00001700
//CARDF DD DISP=SHR,DSN=STORET.HELP.PARNOS                              00001800
//OUTF DD DISP=(,PASS),UNIT=DISK,SPACE=(TRK,(1,1),RLSE),                00001900
//  DSN=&OUT,DCB=(RECFM=FB,BLKSIZE=13200,LRECL=132)                     00002000
//INF DD *                                                              00002100
  74908             COLUMNS 1-9 CONTAIN THE CAS # DESIRED               00002200
7553562                                                                 00002300
    57125                                                               00002400
/*                                                                      00002500
// EXEC SORTV,CSIZE=950000,REGION=1250K,CYLN=15,PRINT=A                 00002600
//SORTIN DD DISP=SHR,DSN=&OUT                                           00002700
//SORTOUT DD DISP=(,PASS),UNIT=DISK,SPACE=(TRK,(1,1),RLSE),             00002800
//  DSN=&OUT2,DCB=(RECFM=FB,BLKSIZE=13200,LRECL=132)                    00002900
//*SORTOUT DD DISP=(,CATLG),UNIT=DISK,SPACE=(TRK,(1,1),RLSE),           00003000
//*  DSN=IIIAAAA.OUTCAS,DCB=(RECFM=FB,BLKSIZE=13200,LRECL=132)          00003100
//SYSIN DD *                                                            00003200
   SORT FIELDS=(130,3,CH,A,10,5,CH,A)                                   00003300
/*                                                                      00003400
//PARNUMER EXEC PGM=PARLIST,REGION=500K                                 00003500
//STEPLIB  DD   DISP=SHR,DSN=CWT.F.STORET.LOADLIB                       00003600
//SYSPRINT DD   SYSOUT=A,DCB=BLKSIZE=4000                               00003700
//CARDF    DD   DISP=SHR,DSN=&OUT2                                      00003800
//*CARDF    DD   DISP=SHR,DSN=IIIAAAA.OUTCAS                            00003900
/*                                                                      00004000
