You are here: Available Utilities > M > MRG2FAP > Building Metacode Resources > PrtType Control Group > JDL Example

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;