Deck 5870JDL

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.5870jdl +++|*NOSEQ
00002  M00S00002.5870jdl +++|$$$START CDCONL.JSL
00003  M00S00003.5870jdl +++|CDCONL:  JDL;
00004  M00S00004.5870jdl +++|/*                                                              */
00005  M00S00005.5870jdl +++|/*       JOB DESCRIPTOR LIBRARY FOR USE WITH CDC ONLINE SYSTEMS */
00006  M00S00006.5870jdl +++|/*                                                              */
00007  M00S00007.5870jdl +++|/*       DEFINE FORMAT LEVELS                                   */
00008  M00S00008.5870jdl +++|/*                                                              */
00009  M00S00009.5870jdl +++|VFU1:    VFU      ASSIGN=( 1, 1),
00010  M00S00010.5870jdl +++|                  ASSIGN=( 2,( 4,28,52)),
00011  M00S00011.5870jdl +++|                  ASSIGN=( 3,( 7,31,55)),
00012  M00S00012.5870jdl +++|                  ASSIGN=( 4,(10,34,58)),
00013  M00S00013.5870jdl +++|                  ASSIGN=( 5,(13,37,61)),
00014  M00S00014.5870jdl +++|                  ASSIGN=( 6, 1),
00015  M00S00015.5870jdl +++|                  ASSIGN=( 7,(16,40)),
00016  M00S00016.5870jdl +++|                  ASSIGN=( 8,(19,43)),
00017  M00S00017.5870jdl +++|                  ASSIGN=( 9,66),
00018  M00S00018.5870jdl +++|                  ASSIGN=(10,(22,46)),
00019  M00S00019.5870jdl +++|                  ASSIGN=(11,(25,49)),
00020  M00S00020.5870jdl +++|                  ASSIGN=(12,64),
00021  M00S00021.5870jdl +++|                  TOF=1,BOF=66;
00022  M00S00022.5870jdl +++|/*                                                              */
00023  M00S00023.5870jdl +++|VFU2:    VFU      ASSIGN=( 1, 1),
00024  M00S00024.5870jdl +++|                  ASSIGN=( 6, 1),
00025  M00S00025.5870jdl +++|                  ASSIGN=( 9,60),
00026  M00S00026.5870jdl +++|                  ASSIGN=(12,60),
00027  M00S00027.5870jdl +++|                  TOF=1,BOF=60;
00028  M00S00028.5870jdl +++|/*                                                              */
00029  M00S00029.5870jdl +++|/*       DEFINE LANDSCAPE PAGE CHARACTERISTICS                  */
00030  M00S00030.5870jdl +++|/*                                                              */
00031  M00S00031.5870jdl +++|PDE1:    PDE      PMODE=LANDSCAPE,
00032  M00S00032.5870jdl +++|                  BEGIN=( .35, .66),
00033  M00S00033.5870jdl +++|                  FONTS=L0112C;
00034  M00S00034.5870jdl +++|/*                                                              */
00035  M00S00035.5870jdl +++|/*       DEFINE 2UP PORTRAIT PAGE CHARACTERISTICS               */
00036  M00S00036.5870jdl +++|/*                                                              */
00037  M00S00037.5870jdl +++|PDE2:    PDE      PMODE=PORTRAIT,
00038  M00S00038.5870jdl +++|                  BEGIN=( .27, .4),
00039  M00S00039.5870jdl +++|                  BEGIN=(5.55, .4),
00040  M00S00040.5870jdl +++|                  FONTS=P1012B;
00041  M00S00041.5870jdl +++|/*                                                              */
00042  M00S00042.5870jdl +++|/*       DEFINE PORTRAIT PAGE CHARACTERISTICS FOR DOCUMENTS     */
00043  M00S00043.5870jdl +++|/*                                                              */
00044  M00S00044.5870jdl +++|PDE3:    PDE      PMODE=PORTRAIT,
00045  M00S00045.5870jdl +++|                  BEGIN=( .5, .5),
00046  M00S00046.5870jdl +++|                  FONTS=P07TCC;
00047  M00S00047.5870jdl +++|/*                                                              */
00048  M00S00048.5870jdl +++|/*       DEFINE HOST CHARACTERISTICS                            */
00049  M00S00049.5870jdl +++|/*                                                              */
00050  M00S00050.5870jdl +++|/*       MAP CDC ASCII GRAPHICS TO STANDARDS FONTS              */
00051  M00S00051.5870jdl +++|/*                                                              */
00052  M00S00052.5870jdl +++|/*       NOTE: GRAVE ACCENT WILL STILL BE IMAGED                */
00053  M00S00053.5870jdl +++|/*             AS A CENT MARK DUE TO LIMITATION OF              */
00054  M00S00054.5870jdl +++|/*             STANDARD FONTS.                                  */
00055  M00S00055.5870jdl +++|/*                                                              */
00056  M00S00056.5870jdl +++|CDCASC:  CODE     DEFAULT=ASCII,
Line S00057 Modification History
M01 (Removed by) 5870jd1
Seq #  *Modification Id* Act 
----------------------------+
00057  M01S00057.5870jd1 ---|                  ASSIGN=(X'7B',(X'1A',X'1B',X'1C',X'1D'));
Line S00001 Modification History
M01 (Added by) 5870jd1
Seq #  *Modification Id* Act 
----------------------------+
00058  M01S00001.5870jd1 +++|                  ASSIGN=(X'7B',(X'8B',X'4F',X'9B',X'5F'));
00059  M00S00058.5870jdl +++|/*                                                              */
00060  M00S00059.5870jdl +++|/*       DEFINE INPUT PROCESSING CHARACTERISTICS                */
00061  M00S00060.5870jdl +++|/*                                                              */
00062  M00S00061.5870jdl +++|         VOLUME   HOST=IBMONL,
00063  M00S00062.5870jdl +++|                  CODE=CDCASC,
00064  M00S00063.5870jdl +++|                  OPTIMIZE=(NCC,NDC,NPR);
00065  M00S00064.5870jdl +++|         LINE     PCCTYPE=IBM3211,
00066  M00S00065.5870jdl +++|                  VFU=VFU1,
00067  M00S00066.5870jdl +++|                  UCSB=IGNORE,
00068  M00S00067.5870jdl +++|                  FCB=IGNORE;
00069  M00S00068.5870jdl +++|         ACCT     USER=NONE;
00070  M00S00069.5870jdl +++|/*                                                              */
00071  M00S00070.5870jdl +++|/*       DEFINE DJDE STRING                                     */
00072  M00S00071.5870jdl +++|/*                                                              */
00073  M00S00072.5870jdl +++|/*       NOTE: MUST MATCH THAT DEFINED IN COMDECK *COMSBIO*     */
00074  M00S00073.5870jdl +++|/*                                                              */
00075  M00S00074.5870jdl +++|         IDEN     PREFIX=(A'  DJDE '),
00076  M00S00075.5870jdl +++|                  SKIP=7,
00077  M00S00076.5870jdl +++|                  OFFSET=0,
00078  M00S00077.5870jdl +++|                  OPRINFO=NO;
00079  M00S00078.5870jdl +++|/*                                                              */
00080  M00S00079.5870jdl +++|/*       TABLE AND CRITERIA DECLARATIONS                        */
00081  M00S00080.5870jdl +++|/*                                                              */
00082  M00S00081.5870jdl +++|TX:      TABLE    CONSTANT=(A'UJN          = ');
00083  M00S00082.5870jdl +++|TZ:      TABLE    CONSTANT=(A'.UCLP, ');
00084  M00S00083.5870jdl +++|CX:      CRITERIA CONSTANT=(19,15,EQ,TX),LINENUM=(1,15);
00085  M00S00084.5870jdl +++|CZ:      CRITERIA CONSTANT=(8,7,EQ,TZ);
00086  M00S00085.5870jdl +++|/*                                                              */
00087  M00S00086.5870jdl +++|/*       DECLARE BANNER AND TRAILER PROCESSING                  */
00088  M00S00087.5870jdl +++|/*                                                              */
00089  M00S00088.5870jdl +++|         BANNER   TEST=(CX OR CZ),
00090  M00S00089.5870jdl +++|                  HCOUNT=1,
00091  M00S00090.5870jdl +++|                  TCOUNT=1,
00092  M00S00091.5870jdl +++|                  HJOBNO=(34,6),
00093  M00S00092.5870jdl +++|                  TYPE=BANNER;
00094  M00S00093.5870jdl +++|         RAUX     TEST=CZ;
00095  M00S00094.5870jdl +++|/*                                                              */
00096  M00S00095.5870jdl +++|/*       JOB DECLARATIONS                                       */
00097  M00S00096.5870jdl +++|/*                                                              */
00098  M00S00097.5870jdl +++|/*       DEFAULT JOB (SAME AS 1X1SMP)                           */
00099  M00S00098.5870jdl +++|/*                                                              */
00100  M00S00099.5870jdl +++|DFLT:    JOB;
00101  M00S00100.5870jdl +++|         OUTPUT   FORMAT=PDE1;
00102  M00S00101.5870jdl +++|/*                                                              */
00103  M00S00102.5870jdl +++|/*       1X1SMP: LANDSCAPE SINGLE SIDED                         */
00104  M00S00103.5870jdl +++|/*                                                              */
00105  M00S00104.5870jdl +++|1X1SMP:  JOB;
00106  M00S00105.5870jdl +++|         OUTPUT   FORMAT=PDE1;
00107  M00S00106.5870jdl +++|/*                                                              */
00108  M00S00107.5870jdl +++|/*       1X1DUP: LANDSCAPE DOUBLE SIDED                         */
00109  M00S00108.5870jdl +++|/*                                                              */
00110  M00S00109.5870jdl +++|1X1DUP:  JOB;
00111  M00S00110.5870jdl +++|         OUTPUT   DUPLEX=YES,
00112  M00S00111.5870jdl +++|                  FORMAT=PDE1,
00113  M00S00112.5870jdl +++|                  SHIFT=(75,75);
00114  M00S00113.5870jdl +++|/*                                                              */
00115  M00S00114.5870jdl +++|/*       2UPSMP: PORTRAIT SINGLE SIDED                          */
00116  M00S00115.5870jdl +++|/*                                                              */
00117  M00S00116.5870jdl +++|2UPSMP:  JOB;
00118  M00S00117.5870jdl +++|         OUTPUT   FORMAT=PDE2;
00119  M00S00118.5870jdl +++|/*                                                              */
00120  M00S00119.5870jdl +++|/*       2UPDUP: PORTRAIT DOUBLE SIDED                          */
00121  M00S00120.5870jdl +++|/*                                                              */
00122  M00S00121.5870jdl +++|2UPDUP:  JOB;
00123  M00S00122.5870jdl +++|         OUTPUT   DUPLEX=YES,
00124  M00S00123.5870jdl +++|                  FORMAT=PDE2;
00125  M00S00124.5870jdl +++|/*                                                              */
00126  M00S00125.5870jdl +++|/*       1UPSMP: PORTRAIT (DOCUMENT) SINGLE SIDED               */
00127  M00S00126.5870jdl +++|/*                                                              */
00128  M00S00127.5870jdl +++|1UPSMP:  JOB;
00129  M00S00128.5870jdl +++|         LINE     PCCTYPE=IBM3211,
00130  M00S00129.5870jdl +++|                  VFU=VFU2,
00131  M00S00130.5870jdl +++|                  UCSB=IGNORE,
00132  M00S00131.5870jdl +++|                  FCB=IGNORE;
00133  M00S00132.5870jdl +++|         OUTPUT   FORMAT=PDE3;
00134  M00S00133.5870jdl +++|/*                                                              */
00135  M00S00134.5870jdl +++|/*       1UPDUP: PORTRAIT (DOCUMENT) DOUBLE SIDED               */
00136  M00S00135.5870jdl +++|/*                                                              */
00137  M00S00136.5870jdl +++|1UPDUP:  JOB;
00138  M00S00137.5870jdl +++|         LINE     PCCTYPE=IBM3211,
00139  M00S00138.5870jdl +++|                  VFU=VFU2,
00140  M00S00139.5870jdl +++|                  UCSB=IGNORE,
00141  M00S00140.5870jdl +++|                  FCB=IGNORE;
00142  M00S00141.5870jdl +++|         OUTPUT   DUPLEX=YES,
00143  M00S00142.5870jdl +++|                  FORMAT=PDE3;
00144  M00S00143.5870jdl +++|/*                                                              */
00145  M00S00144.5870jdl +++|         END;
00146  M00S00145.5870jdl +++|$$$END