User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:5870jdl

Deck 5870JDL

1 Modification

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.5870jdl +++|*NOSEQ
00002  M01S00002.5870jdl +++|$$$START CDCONL.JSL
00003  M01S00003.5870jdl +++|CDCONL:  JDL;
00004  M01S00004.5870jdl +++|/*                                                              */
00005  M01S00005.5870jdl +++|/*       JOB DESCRIPTOR LIBRARY FOR USE WITH CDC ONLINE SYSTEMS */
00006  M01S00006.5870jdl +++|/*                                                              */
00007  M01S00007.5870jdl +++|/*       DEFINE FORMAT LEVELS                                   */
00008  M01S00008.5870jdl +++|/*                                                              */
00009  M01S00009.5870jdl +++|VFU1:    VFU      ASSIGN=( 1, 1),
00010  M01S00010.5870jdl +++|                  ASSIGN=( 2,( 4,28,52)),
00011  M01S00011.5870jdl +++|                  ASSIGN=( 3,( 7,31,55)),
00012  M01S00012.5870jdl +++|                  ASSIGN=( 4,(10,34,58)),
00013  M01S00013.5870jdl +++|                  ASSIGN=( 5,(13,37,61)),
00014  M01S00014.5870jdl +++|                  ASSIGN=( 6, 1),
00015  M01S00015.5870jdl +++|                  ASSIGN=( 7,(16,40)),
00016  M01S00016.5870jdl +++|                  ASSIGN=( 8,(19,43)),
00017  M01S00017.5870jdl +++|                  ASSIGN=( 9,66),
00018  M01S00018.5870jdl +++|                  ASSIGN=(10,(22,46)),
00019  M01S00019.5870jdl +++|                  ASSIGN=(11,(25,49)),
00020  M01S00020.5870jdl +++|                  ASSIGN=(12,64),
00021  M01S00021.5870jdl +++|                  TOF=1,BOF=66;
00022  M01S00022.5870jdl +++|/*                                                              */
00023  M01S00023.5870jdl +++|VFU2:    VFU      ASSIGN=( 1, 1),
00024  M01S00024.5870jdl +++|                  ASSIGN=( 6, 1),
00025  M01S00025.5870jdl +++|                  ASSIGN=( 9,60),
00026  M01S00026.5870jdl +++|                  ASSIGN=(12,60),
00027  M01S00027.5870jdl +++|                  TOF=1,BOF=60;
00028  M01S00028.5870jdl +++|/*                                                              */
00029  M01S00029.5870jdl +++|/*       DEFINE LANDSCAPE PAGE CHARACTERISTICS                  */
00030  M01S00030.5870jdl +++|/*                                                              */
00031  M01S00031.5870jdl +++|PDE1:    PDE      PMODE=LANDSCAPE,
00032  M01S00032.5870jdl +++|                  BEGIN=( .35, .66),
00033  M01S00033.5870jdl +++|                  FONTS=L0112C;
00034  M01S00034.5870jdl +++|/*                                                              */
00035  M01S00035.5870jdl +++|/*       DEFINE 2UP PORTRAIT PAGE CHARACTERISTICS               */
00036  M01S00036.5870jdl +++|/*                                                              */
00037  M01S00037.5870jdl +++|PDE2:    PDE      PMODE=PORTRAIT,
00038  M01S00038.5870jdl +++|                  BEGIN=( .27, .4),
00039  M01S00039.5870jdl +++|                  BEGIN=(5.55, .4),
00040  M01S00040.5870jdl +++|                  FONTS=P1012B;
00041  M01S00041.5870jdl +++|/*                                                              */
00042  M01S00042.5870jdl +++|/*       DEFINE PORTRAIT PAGE CHARACTERISTICS FOR DOCUMENTS     */
00043  M01S00043.5870jdl +++|/*                                                              */
00044  M01S00044.5870jdl +++|PDE3:    PDE      PMODE=PORTRAIT,
00045  M01S00045.5870jdl +++|                  BEGIN=( .5, .5),
00046  M01S00046.5870jdl +++|                  FONTS=P07TCC;
00047  M01S00047.5870jdl +++|/*                                                              */
00048  M01S00048.5870jdl +++|/*       DEFINE HOST CHARACTERISTICS                            */
00049  M01S00049.5870jdl +++|/*                                                              */
00050  M01S00050.5870jdl +++|/*       MAP CDC ASCII GRAPHICS TO STANDARDS FONTS              */
00051  M01S00051.5870jdl +++|/*                                                              */
00052  M01S00052.5870jdl +++|/*       NOTE: GRAVE ACCENT WILL STILL BE IMAGED                */
00053  M01S00053.5870jdl +++|/*             AS A CENT MARK DUE TO LIMITATION OF              */
00054  M01S00054.5870jdl +++|/*             STANDARD FONTS.                                  */
00055  M01S00055.5870jdl +++|/*                                                              */
00056  M01S00056.5870jdl +++|CDCASC:  CODE     DEFAULT=ASCII,
Line S00057 Modification History
M01 (Added by) 5870jdl
M02 (Updated by) 5870jd1
Seq #  *Modification Id* Act 
----------------------------+
00057  M02S00057.5870jd1 ---|                  ASSIGN=(X'7B',(X'1A',X'1B',X'1C',X'1D'));
00058  M01S00001.5870jd1 +++|                  ASSIGN=(X'7B',(X'8B',X'4F',X'9B',X'5F'));
00059  M01S00058.5870jdl +++|/*                                                              */
00060  M01S00059.5870jdl +++|/*       DEFINE INPUT PROCESSING CHARACTERISTICS                */
00061  M01S00060.5870jdl +++|/*                                                              */
00062  M01S00061.5870jdl +++|         VOLUME   HOST=IBMONL,
00063  M01S00062.5870jdl +++|                  CODE=CDCASC,
00064  M01S00063.5870jdl +++|                  OPTIMIZE=(NCC,NDC,NPR);
00065  M01S00064.5870jdl +++|         LINE     PCCTYPE=IBM3211,
00066  M01S00065.5870jdl +++|                  VFU=VFU1,
00067  M01S00066.5870jdl +++|                  UCSB=IGNORE,
00068  M01S00067.5870jdl +++|                  FCB=IGNORE;
00069  M01S00068.5870jdl +++|         ACCT     USER=NONE;
00070  M01S00069.5870jdl +++|/*                                                              */
00071  M01S00070.5870jdl +++|/*       DEFINE DJDE STRING                                     */
00072  M01S00071.5870jdl +++|/*                                                              */
00073  M01S00072.5870jdl +++|/*       NOTE: MUST MATCH THAT DEFINED IN COMDECK *COMSBIO*     */
00074  M01S00073.5870jdl +++|/*                                                              */
00075  M01S00074.5870jdl +++|         IDEN     PREFIX=(A'  DJDE '),
00076  M01S00075.5870jdl +++|                  SKIP=7,
00077  M01S00076.5870jdl +++|                  OFFSET=0,
00078  M01S00077.5870jdl +++|                  OPRINFO=NO;
00079  M01S00078.5870jdl +++|/*                                                              */
00080  M01S00079.5870jdl +++|/*       TABLE AND CRITERIA DECLARATIONS                        */
00081  M01S00080.5870jdl +++|/*                                                              */
00082  M01S00081.5870jdl +++|TX:      TABLE    CONSTANT=(A'UJN          = ');
00083  M01S00082.5870jdl +++|TZ:      TABLE    CONSTANT=(A'.UCLP, ');
00084  M01S00083.5870jdl +++|CX:      CRITERIA CONSTANT=(19,15,EQ,TX),LINENUM=(1,15);
00085  M01S00084.5870jdl +++|CZ:      CRITERIA CONSTANT=(8,7,EQ,TZ);
00086  M01S00085.5870jdl +++|/*                                                              */
00087  M01S00086.5870jdl +++|/*       DECLARE BANNER AND TRAILER PROCESSING                  */
00088  M01S00087.5870jdl +++|/*                                                              */
00089  M01S00088.5870jdl +++|         BANNER   TEST=(CX OR CZ),
00090  M01S00089.5870jdl +++|                  HCOUNT=1,
00091  M01S00090.5870jdl +++|                  TCOUNT=1,
00092  M01S00091.5870jdl +++|                  HJOBNO=(34,6),
00093  M01S00092.5870jdl +++|                  TYPE=BANNER;
00094  M01S00093.5870jdl +++|         RAUX     TEST=CZ;
00095  M01S00094.5870jdl +++|/*                                                              */
00096  M01S00095.5870jdl +++|/*       JOB DECLARATIONS                                       */
00097  M01S00096.5870jdl +++|/*                                                              */
00098  M01S00097.5870jdl +++|/*       DEFAULT JOB (SAME AS 1X1SMP)                           */
00099  M01S00098.5870jdl +++|/*                                                              */
00100  M01S00099.5870jdl +++|DFLT:    JOB;
00101  M01S00100.5870jdl +++|         OUTPUT   FORMAT=PDE1;
00102  M01S00101.5870jdl +++|/*                                                              */
00103  M01S00102.5870jdl +++|/*       1X1SMP: LANDSCAPE SINGLE SIDED                         */
00104  M01S00103.5870jdl +++|/*                                                              */
00105  M01S00104.5870jdl +++|1X1SMP:  JOB;
00106  M01S00105.5870jdl +++|         OUTPUT   FORMAT=PDE1;
00107  M01S00106.5870jdl +++|/*                                                              */
00108  M01S00107.5870jdl +++|/*       1X1DUP: LANDSCAPE DOUBLE SIDED                         */
00109  M01S00108.5870jdl +++|/*                                                              */
00110  M01S00109.5870jdl +++|1X1DUP:  JOB;
00111  M01S00110.5870jdl +++|         OUTPUT   DUPLEX=YES,
00112  M01S00111.5870jdl +++|                  FORMAT=PDE1,
00113  M01S00112.5870jdl +++|                  SHIFT=(75,75);
00114  M01S00113.5870jdl +++|/*                                                              */
00115  M01S00114.5870jdl +++|/*       2UPSMP: PORTRAIT SINGLE SIDED                          */
00116  M01S00115.5870jdl +++|/*                                                              */
00117  M01S00116.5870jdl +++|2UPSMP:  JOB;
00118  M01S00117.5870jdl +++|         OUTPUT   FORMAT=PDE2;
00119  M01S00118.5870jdl +++|/*                                                              */
00120  M01S00119.5870jdl +++|/*       2UPDUP: PORTRAIT DOUBLE SIDED                          */
00121  M01S00120.5870jdl +++|/*                                                              */
00122  M01S00121.5870jdl +++|2UPDUP:  JOB;
00123  M01S00122.5870jdl +++|         OUTPUT   DUPLEX=YES,
00124  M01S00123.5870jdl +++|                  FORMAT=PDE2;
00125  M01S00124.5870jdl +++|/*                                                              */
00126  M01S00125.5870jdl +++|/*       1UPSMP: PORTRAIT (DOCUMENT) SINGLE SIDED               */
00127  M01S00126.5870jdl +++|/*                                                              */
00128  M01S00127.5870jdl +++|1UPSMP:  JOB;
00129  M01S00128.5870jdl +++|         LINE     PCCTYPE=IBM3211,
00130  M01S00129.5870jdl +++|                  VFU=VFU2,
00131  M01S00130.5870jdl +++|                  UCSB=IGNORE,
00132  M01S00131.5870jdl +++|                  FCB=IGNORE;
00133  M01S00132.5870jdl +++|         OUTPUT   FORMAT=PDE3;
00134  M01S00133.5870jdl +++|/*                                                              */
00135  M01S00134.5870jdl +++|/*       1UPDUP: PORTRAIT (DOCUMENT) DOUBLE SIDED               */
00136  M01S00135.5870jdl +++|/*                                                              */
00137  M01S00136.5870jdl +++|1UPDUP:  JOB;
00138  M01S00137.5870jdl +++|         LINE     PCCTYPE=IBM3211,
00139  M01S00138.5870jdl +++|                  VFU=VFU2,
00140  M01S00139.5870jdl +++|                  UCSB=IGNORE,
00141  M01S00140.5870jdl +++|                  FCB=IGNORE;
00142  M01S00141.5870jdl +++|         OUTPUT   DUPLEX=YES,
00143  M01S00142.5870jdl +++|                  FORMAT=PDE3;
00144  M01S00143.5870jdl +++|/*                                                              */
00145  M01S00144.5870jdl +++|         END;
00146  M01S00145.5870jdl +++|$$$END
cdc/nos2.source/opl.opl871/deck/5870jdl.txt ยท Last modified: by 127.0.0.1