Filter
Top Products
PDL principles and procedures
1-64 Using LCDS Print Description Language
RSTACK TEST=(C1), DELIMITER=YES;
ACCT USER=TRAY;
/******* Catalog level commands *******/
CATPOW; CATALOG;
VOLUME HOST=IBMOS, CODE=EBCDIC;
BLOCK LENGTH=2048, PREAMBLE=6, LTHFLD=2,
FORMAT=BIN, OFFSET=4;
RECORD LENGTH=135, STRUCTURE=VB, PREAMBLE=2,
LTHFLD=2, FORMAT=BIN, OFFSET=0,
ADJUST=3;
CATGRP: CATALOG;
VOLUME HOST=GRASP, CODE=EBCDIC
BLOCK LENGTH=4096, PREAMBLE=0, ZERO=YES;
RECORD LENGTH=135, STRUCTURE=VB, PREAMBLE=1,
LTHFLD=1, FORMAT=BIN, OFFSET=0,
ADJUST=2;
/******* Job or JDE level commands *******/
1: JDE;
OUTPUT IDR=IDR1, NUMBER=(1,1,0,1,’BLACK’),
FORMAT=PDE1, LOGO=(SIG1, 1.5 IN,6.0 IN);
2: JDE; INCLUDE=CATPOW;
VOLUME HOST=UNIVAC, CODE=PEBCDIC;
OUTPUT IDR=IDR2, FORMAT=PDE2, IDFAULT=2,
FORMS=STMT3;
ABNORMAL ERROR=CONTINUE, IMISMATCH=CONTINUE;
3: JDE; INCLUDE=CATGRP;
OUTPUT COPIES=5, IDFAULT=’BLACK’;
DFLT: JDE;
END;
Table 1-11. Sample offline JSL (Continued)