JDL Example
Here is an excerpt of a JDL. This excerpt is referenced in the control group options discussion.
CBA: JDL;
T1: TABLE CONSTANT=X'121212121212121212';
T2: TABLE CONSTANT=X'13131313131313131313';
T3: TABLE CONSTANT=X'FFFF26FFFF';
C1: CRITERIA CONSTANT=(0,9,EQ,T1);
C2: CRITERIA CONSTANT=(0,10,EQ,T2);
C3: CRITERIA CONSTANT=(1,5,EQ,T3);
VOLUME HOST=IBMONL;
LINE DATA=(0,255);
IDEN PRE=A'@@@DJDE',
OFF=0,
SKIP=8;
ROFFSET TEST=C1;
RSTACK TEST=C2,DELIMITER=YES,PRINT=NONE;
RPAGE TEST=C3,SIDE=NUFRONT;
/* 8.5 x 11 job */
USA1: JDE; /* JOB can be used in place of JDE */
OUTPUT PAPERSIZE=USLETTER;
/* 8.5 x 14 job */
META: JOB;
VOLUME CODE=NONE
/* Default job */
DFLT: JDE;
VOLUME CODE=EBCDIC
END;
© Copyright 2020, Oracle and/or its affiliates. All rights reserved. Legal notices.