REXX for CA JCLCheck and JCLNeat › Subroutines for JCLNeat › Sample Output for JCLNeat

Sample Output for JCLNeat

The following is the JCLNeat output showing the options in effect for this run.

   CA   			JCLNEAT OPTIONS
   CA JCLCHECK               			GENLEVEL=110010AJ600

PARM FIELD OPTIONS SPECIFIED BY USER:

INLIB=PDS
OUTLIB=SEQ
MEMBERS=INCLUDE
REXXMEM=CAZ1NREX
PARMS IN EFFECT THIS RUN:

BCI=Y
BCS=N
CDEL=0
CEC=35
CECJ=35
CSC=16
DCBS=N
FCC=-
FORMAT=Y
JOBF=Y
ICSC=37
INCR=10
INLIB=PDS
LINES=55
MEMBERS=INCLUDE
MKW=60
MQKW=10
OPSC=12
OUTLIB=SEQ
PACK=N
RECOVER=Y
REPORT=7
REXXMEM=CAZ1NREX
RSYM=N
SECC=*
SEQ1=10
SIM=N
MEMBERS TO BE INCLUDED BY USER:

NEAT@W96

This is a sample of the JCLNeat Original JCL report.

   CA 			JCLNEAT ORIGINAL JCL
   CA JCLCHECK                			GENLEVEL=110010AJ600

IN  //PRODJOB JOB (40100000),'J. DOE',CLASS=W,MSGCLASS=X,
IN  //     NOTIFY=USERDOE,PRTY=15
CAY6541W Class should be P for production work, CLASS value reset
IN  //*   PRODUCTION PAYROLL JOB
IN  //S0 EXEC PGM=PAYROLL
IN  //DD1 DD DSN=CAI.PAY.MASTER,DISP=(NEW,CATLG,DELETE),
IN  //   UNIT=BOGUS,SPACE=(CYL,(500,50),RLSE),
IN  //   DCB=(RECFM=VB,LRECL=255,BLKSIZE=16320,DSORG=PS)
CAY6541I Blocksize reset for system determined value and UNIT nullified

The CAY6541 messages in this report are the messages issued from the CAZ1NREX sample subroutines. This is a sample of the JCLNeat Reformatted JCL report.

   CA  			REFORMATED JCL
   CA JCLCHECK                			GENLEVEL=110010AJ600

OUT //PRODJOB  JOB (40100000),				00000010
OUT // 	  'J. DOE',  					00000020
OUT //  	  CLASS=P,  					00000030
OUT // 	  MSGCLASS=X,   				00000040
OUT // 	  NOTIFY=USERDOE,   				00000050
OUT //  	  PRTY=15   					00000060
OUT //**------------------------------------------------------------------------------------------------------* 00000070
OUT //**   					                        	* 00000080
OUT //*   PRODUCTION PAYROLL JOB 				00000090
OUT //**    					                        	* 00000100
OUT //**------------------------------------------------------------------------------------------------------* 00000110
OUT //S0 	  EXEC PGM=PAYROLL,  				00000120
OUT //  	  TIME=NOLIMIT  				00000130
OUT //DD1	  DD  DCB=(BLKSIZE=0,DSORG=PS,LRECL=255,RECFM=VB),  	00000140
OUT //  	  DISP=(NEW,CATLG, 				00000150
OUT //  	  DELETE), 					00000160
OUT //  	  DSN=CAI.PAY.MASTER,  				00000170
OUT //  	  SPACE=(CYL,((500,50,  				00000180
OUT // 	  ),RLSE)   					00000190