Loading...
Select Version
&pagelevel(4)&pagelevel
SSVSCB D
MFPRE MF=D,PREFIX=SCB,MACID=E,ALIGN=D,DNAME=E
SCBE DSECT ,
*,##### PREFIX=SCB, MACID=E #####
SCBETOP DC Y(SCBELEN) LENGTH OF SCB
SCBESTDL EQU X'0520' STANDARD LENGTH OF THE SCB = 1016
SCBEMAXL EQU X'0BF8' MAX SCB LEN (FOR 3.0) = 3064
DC CL2' ' FILLER CHARACTERS
SSVJTC ,E,SCB
SCBEJTC DS 0F
***********************************************************************
* *
* COMMON BLOCK *
* *
***********************************************************************
SCBEINDC DC X'00' JTBP/SPCB INDICATOR FOR ACCOUNTING
SCBEIJT EQU X'00' JTBP INDICATOR
SCBEISP EQU X'01' SPCB INDICATOR
DC XL1'00' RESERVED FOR FUTURE USAGE
*---------------------------------------------------------------------*
* KEY DEFINITION *
*---------------------------------------------------------------------*
SCBENKEY DS 0CL32 QUEUE FILE KEY FOR EQUISAM FILE
SCBEQUE# DC X'00' QUEUE FILE NUMBER
SCBEKEY DS 0CL5 QUEUE FILE KEY FOR OLD FILE METHOD
SCBEPRI DC X'00' PRIORITY CLASS < LOGON
SCBETSN DC F'0' TASK SEQUENCE # FOR THIS JOB
SCBESEQ# DC X'00' QUEUE SEQUENCE#
DS CL25 UNUSED
ORG SCBENKEY MESSAGE QUEUE KEY DEFINITION
SCBERQE# DS X QUEUE FILE # FOR MESSAGE QUEUE ONLY
SCBERSTN DS CL8 STATION IDENTIFICATION
DS CL23 UNUSED
ORG SCBENKEY REPLAY TAPES QUEUE KEY DEFINITION
SCBEQ# DS X QUEUE FILE # (X'0C')
SCBEQF# EQU X'0C' QUEUE #
SCBESID DS CL6 SESSION-ID FROM "SRD.SESSION-ID"
SCBEVSN DS CL6 VOLUME ON WHICH THE FILE RESIDES
SCBETYPE DS 0XL3 TYPE OF OUTDEV FOR THE FILE
SCBETYP0 DS X 1ST BYTE OF THE TYPE
SCBETMM EQU X'80' - MIXED MODE
*
SCBETYP1 DS X 2ND BYTE OF THE TYPE
SCBETPU EQU X'01' - PUNCHED REQUESTED
SCBETPRT EQU X'02' - PRINTER REQUESTED
*
SCBETYP2 DS X 3RD BYTE OF THE TYPE
SCBELP3 EQU X'01' - PRINTER 136
SCBELP6 EQU X'02' - PRINTER 160
SCBETND EQU X'04' - ND2
SCBETSD EQU X'08' - SD23
SCBETCD EQU X'10' - CARD PUNCHER
SCBETFD EQU X'20' - FD
*
SCBEFSEQ DS CL2 FSEQ OF FILE ON TAPE
SCBEIND DS X INDICATOR BYTE
SCBEICF EQU X'01' - CONTINUATION FILE
*
SCBETPRI DS X PRIORITY FROM ORIGINAL CMD
SCBETTSN DS CL4 TSN FROM ORIGINAL CMD
SCBESQ# DS X SEQUENCE # FROM ORIGINAL CMD
DS CL7 UNUSED
SCBEKLEN EQU 32 KEY LENGTH
*---------------------------------------------------------------------*
* LOGON TYPE INFORMATIONS *
*---------------------------------------------------------------------*
SCBEJNAM DS CL8 JOB NAME (RJOB, LOGON OR DEFAULT)
SCBEUSR DC XL8'00' ALPHANUMERIC USERID <LOGON
SCBEACT DC XL8'00' ACCOUNT NUMBER <LOGON
SCBEPSWD DC XL8'00' PASSWORD < LOGON
SCBEPVG DC X'00' PRIVILEGED USER
SCBEADM EQU X'01' INDICATES SYSTEM ADMINISTRATOR
SCBEUSER EQU X'02' INDICATES NORMAL USER
SCBEOPR EQU X'04' INDICATES OPERATOR
*
SCBESCLA DC X'00' SPOOLOUT CLASS DEFINITION
SCBESPCS DS X INITIAL SPACE VALUE OF PRINT CMD
SCBECTCS DS X INITIAL CONTROL CHAR VALUE OF PRINT
SCBECCST DS X CCS TYPE
SCBECCSV DS X CCS VARIANT
*---------------------------------------------------------------------*
* CATALOG,ACCOUNTING,... INFORMATIONS *
*---------------------------------------------------------------------*
SCBEUTID DC F'0' USER TID 002
SCBES#IO DC F'0' #I/O DURING SPOOLIN
SCBEUID DC 2F'0' /ACCOUNT SUPPLIED INFORMATION
SCBECODE DC H'00' PRIMARY CATAL BLOCK NUMBER
SCBEDLOF DC XL3'00' DATE LOGOFF WAS PROCESSED
SCBETLOF DC XL2'00' TIME LOGOFF WAS PROCESSED
*---------------------------------------------------------------------*
* RBP INFORMATIONS *
*---------------------------------------------------------------------*
SCBEXBSE DC X'00' INDEX OF BATCH ENTRY STATIONS
SCBEXBJE DC X'00' INDEX OF BATCH JOB ENTRIES *---------------------------------------------------------------------* * GENERAL INFORMATIONS * *---------------------------------------------------------------------* SCBEMSG DC X'00' OPTION BYTE SCBEFLMG EQU X'01' F = FULL MESSAGE OPTION SCBECDMG EQU X'02' C = SHORT MESSAGE OPTION SCBEHCMG EQU X'04' H = HARD COPY OPTION SCBEHCT EQU X'08' T = TERMINAL'S HARD-COPY SCBEDSTP EQU X'10' --- SWITCH FROM DISC TO TAPE SCBEMSLO EQU X'20' L = LOGGING REQUESTED INDICATOR SCBEBCPU EQU X'80' --- INSUFFICIENT CPU TIME LEFT OR * --- BIAS TIME VALUE IS SET LOWER * --- THEN TIME VALUE GIVEN OR * --- DEFAULTED SCBESW DC X'00' JTBP SWITCH FIELD SCBEPVT EQU X'01' SET: ENTER ERASE=YES GIVEN SCBESCHD EQU X'02' SET: JOB IS SCHEDULED SCBEDVQ EQU X'04' SET: TASK IS ON THE DEVICE QUEUE SCBENTL EQU X'08' SET: NTL REQUESTED SCBEENTR EQU X'10' JOB CREATED VIA ENTER SCBERBP EQU X'20' JOB CREATED VIA REMOTE SCBERCJ EQU X'40' JOB CREATED VIA RCARD SCBENER EQU X'80' DO NOT ERASE FILE DURING LOGOFF * ALSO, DO NOT SET UP TCB DURING * TSN ASSIGNEMENT, ONLY THE JTBP SCBELRI DS X MAX PRI ALLOWED FOR AN ACCOUNT # * SCBESW2 DC X'00' SYSFILE SWITCH FIELD 2 SCBETEMF EQU X'80' TEMP FILE USED SCBETEMJ EQU X'40' TEMP JV USED SCBEEX94 EQU X'20' EXIT 94 LOADED SCBEUFSF EQU X'08' UFS FILE SCBEUFSC EQU X'04' UFS COPY CREATED SCBERSRL EQU X'02' RESOURCE LOCATION : ON=SERVER * OFF=CLIENT SCBELIBM EQU X'01' LMS LIBRARY MEMBER * SCBEPARE DC X'00' SPARAM EDIT VALUE SCBEPARN EQU X'00' EDIT= NO SCBEPARP EQU X'01' EDIT= PARTIAL SCBEPART EQU X'02' EDIT= TOTAL * SCBEMLN DC CL1' ' MESSAGE LANGUAGE SCBEMLNS DC CL1' ' MESSAGE LANGUAGE STANDARD SCBECNAM DS CL8 JOBCLASS NAME SCBEJPRI DS X JOB PRIORITY SCBEHLDI DS X JOB HOLD INDICATOR
SCBEHLDY EQU X'80' - JOB IN HOLD
SCBECENT DS X CENTURY FOR THE DATE 036
SCBESW3 DS X INDICATOR 3 042
SCBEFTIP EQU X'01' - FT IN PROGRESS(NO DELETE AT
SCBESICK EQU X'02' - SINIX CLIENT KEEP 061
SCBEFILT EQU X'04' - JOB FILTERED 081
SCBEUSTT EQU X'08' - USER TRANSLATION TABLE 081
SCBESTPR EQU X'10' - START-PROC NE IMMEDIATE 082
SCBERDCM EQU X'20' - RDIR COMMAND FROM SYSFILE 082
* CLIENT STARTUP
SCBEFPP# DS F TOTAL PPAGE# IN A FAMILY 005
SCBECLEN EQU *-SCBEJTC
SCBETLP EQU X'40' - 3337 TYPE (SEE &P.TYP2)
SCBETHP EQU X'80' - HP TYPE (SEE &P.TYP2)
EJECT
SSVSCBE ,E
MFPRE MF=,PREFIX=SCB,MACID=E,ALIGN=F,DNAME=ESCB 010
SCBESCB DS 0F
***********************************************************************
* SPOOL SUBSYSTEM BLOCK *
***********************************************************************
*
*
*******************************
* SOURCE INFORMATION *
*******************************
*
*
*---------------------------------------------------------------------*
* LOCAL AND REMOTE SPOOL COMMON FIELDS *
*---------------------------------------------------------------------*
SCBESCB# DS CL3 SCB VERSION NUMBER
SCBEV30A EQU X'100' START SCB VERSION NUMBER OF VERSION 3.0A
SCBESCBV EQU X'103' CURRENT SCB VERSION NUMBER, 95-06-07
SCBELST# DS X SYSLST NUMBER
SCBEOTSN DC F'0' TSN OF TASK REQUESTOR
SCBEFILN DC A(0) INTERNAL FILENAME OF FILE TO BE PRINTED
SCBESIZE DS F FILE SIZE (# OF PAM PAGES) 100
SCBERPSW DC XL4'00' FILE READ PASSWORD
SCBEFID DC CL54' ' FILE TO BE PRINTED(OR FILE# FOR EAM)
SCBEFTYP DC X'00' FILE TYPE TO BE OUTPUTTED
SCBESEAM EQU X'01' SYSTEM FILE(EAM)
SCBEOMF EQU X'02' OBJECT MODULE FILE(EAM)
SCBESOUT EQU X'04' SYSOUT
SCBESLST EQU X'08' SYSLST
SCBETEMP EQU X'10' TEMPORARY FILE SBC
SCBESOPT EQU X'20' SYSOPT SBC
SCBEUEAM EQU X'40' USER CREATED EAM FILE
SCBEFAM EQU X'80' FIRST MEMBER OF A FAMILY
*
SCBEFFCB DC X'00' FILE TYPE
SCBEFSAM EQU X'00' SAM FILE
SCBEFTAP EQU X'01' FILE RESIDES ON TAPE 101
SCBEFEAM EQU X'20' EAM FILE (TO KEEP FOR COMPATIBILITY)
SCBEFISA EQU X'40' ISAM FILE
SCBEFBTA EQU X'80' BTAM FILE
SCBEFPAM EQU X'C0' PAM FILE
*
SCBERTYP DC X'00' FILE RECORD FORMAT FROM CATAL
SCBERVAR EQU X'02' VARIABLE LENGTH RECORDS(V-TYPE)
SCBERFIX EQU X'04' FIXED LENGTH RECORDS(F-TYPE)
SCBERUND EQU X'06' UNDEFINED RECORDS
*
SCBEBITF DS X BIT MAP INDICATOR
SCBELOER EQU X'80' LOCK ERROR
SCBECKAV EQU X'40' CHECKPOINT APA AVAILABLE
SCBEAPPL EQU X'20' ON : APPLICATION NOT ALLOWED 011
SCBEBITN EQU X'01' DO NOT RESET BIT MAP
*
SCBERSIZ DS H RECSIZE
SCBEBSIZ DS H BLOCKSIZE
*
SCBEMAIL DS CL64 MAILING ADDRESS
*
SCBEFOBS DS H FOB SIZE.
*
DS 0F 102
DS H EAM TAPE FILENAME (TO KEEP FOR COMPAT.)
SCBEOFIL DS X ORIGINAL FILE SPECIFICATIONS
SCBER164 EQU X'80' RECORD 164 PRESENT FOR LIB.ELEM.
SCBEPEF1 EQU X'40' FCB TYPE OF PLAM ELEMENT
SCBEPEF2 EQU X'20' IDEM
SCBEASAC EQU X'10' ASA-CODE SPECIFIED FOR FILE
SCBEPGMO EQU X'08' PAGE-MODE
SCBEIAS6 EQU X'04' $SYSSPOOL IMAGE APA FILE (600 DPI) 022
SCBEIAU6 EQU X'02' $USER IMAGE APA FILE (600 DPI) 022
SCBEOEAM EQU X'01' EAM FILE
*
SCBEIMFL DS X IMAGE ND OR HP FILE USED
SCBEIMNO EQU X'00' NO INFO (OLD SCB)
SCBEIMUS EQU X'01' $USER IMAGE HP FILE
SCBEIMTS EQU X'02' $TSOS IMAGE HP FILE
SCBEIDUS EQU X'04' $USER IMAGE ND FILE
SCBEIDTS EQU X'08' $TSOS IMAGE ND FILE
SCBEIAUS EQU X'10' $USER IMAGE APA FILE
SCBEIASY EQU X'20' $SYSSPOOL IMAGE APA FILE
SCBEIAU3 EQU X'40' $USER IMAGE APA FILE (300 DPI) 022 SCBEIAS3 EQU X'80' $SYSSPOOL IMAGE APA FILE (300 DPI) 022 * SCBE#VSN DS H # OF VSN'S IN VSNLIST (FIELD SCBETPVL) 102 SCBEFSQ DS H FSEQ FOR TAPE PROCESSING 102 SCBERTPD DS H RETENTION PERIOD 102 SCBESTSN DS CL4 TSN REPLAY SAVE AREA 102 SCBETPTY DS X TAPE TYPE 102 SCBETPR EQU X'01' * REPLAY TAPE 102 SCBETPUS EQU X'02' * USER TAPE (DEVIN=STAPE) 102 SCBETPD EQU X'04' * DMS TAPE (DEVIN=TAPE) 102 SCBETPP EQU X'08' * POOLER TAPE 102 * SCBETFL DS X TAPE FLAG 102 SCBETFLC EQU X'01' * TAPE PROCESSED IN COPY MODE 102 SCBETFLD EQU X'02' * TAPE PROCESSED IN DIRECT MODE 102 SCBETFLI EQU X'04' * INPUT TAPE 102 SCBETFLO EQU X'08' * OUTPUT TAPE 102 SCBETFLF EQU X'10' STATE=FOREIGN SCBETFLM EQU X'80' MIXED MODE * SCBETD DS X TAPE DENSITY 102 SCBETY EQU X'B0' * TAPE = YES SCBET9N EQU X'B1' * TAPE = T9N SCBET9P EQU X'B2' * TAPE = T9P SCBET9G EQU X'B4' * TAPE = T9G * SCBEPBLK DS X BLOCKSIZE FOR POOLER TAPE 102 SCBETPVL DS 4CL6 VSN LIST FOR CURRENT FILE SCBETPLG EQU *-SCBETPVL VSN LIST LENGTH SCBECHD1 DS X CHARS DENSITY FOR ND2 OFF LINE SCBELPI EQU X'C0' LINES PER INCH SCBECPI EQU X'30' CHARS PER INCH SCBE12L EQU X'80' 12 LPI SCBE8L EQU X'40' 8 LPI SCBE6L EQU X'00' 6 LPI SCBE15C EQU X'30' 15 CPI SCBE12C EQU X'20' 12 CPI SCBE10C EQU X'10' 10 CPI * SCBECHD2 DS X CHARS2 DENSITY SCBECHD3 DS X CHARS3 DENSITY SCBECHD4 DS X CHARS4 DENSITY SCBEFOBN DS CL4 FOB/FOBPOOL NAME SCBEUPDI DS X DPRINT INDICATOR SCBEFDIS EQU X'80' - FILE CAN BE DISTRIBUTED SCBEPVCS EQU X'40' - PVS SHARED BETWEEN CLIENT AND SERVER SCBEPVCG EQU X'20' - PVS SHARED BETWEEN CLIENT AND GATEWAY
SCBEBLKT EQU X'10' - BLOCKTYPE = STD SCBEERAU EQU X'08' - ERASE OF FILE AUTHORIZED SCBESTUP EQU X'04' - STARTUP SCBELCK EQU X'02' - LOCK SCBEDEL EQU X'01' - DELETE * SCBEFTST DS X FILE TRANSFER STATUS BYTE SCBEFTNK EQU X'01' - FT ENDED NOT OK SCBEFTOK EQU X'02' - FT ENDED OK SCBEFTIN EQU X'04' - FT IN PROGRESS SCBEFTRQ EQU X'08' - FT REQUESTED SCBEFTWT EQU X'10' - FT WAITING SCBEFTRE EQU X'20' - FT RECOVERY 074 * SCBEJBTY DS X JOB TYPE SCBEJBSP EQU X'80' - SPOOL JOB (LOCAL) SCBEJBDP EQU X'04' - DPRINT JOB (LOCAL) SCBECPCL EQU X'02' - JOB SENT TO ANOTHER HOST (CLIENT COPY) SCBECPSV EQU X'01' - JOB COMING FROM ANOTHER HOST (SERVER C.) * SCBECLTT DS X CLUSTER TYPE SCBECLHO EQU X'00' - LOCAL CLUSTER SCBECLSX EQU X'01' - SINIX CLUSTER SCBECLBS EQU X'02' - BS2000 CLUSTER * ************************************ * DESTINATION INFORMATION * ************************************ * * *---------------------------------------------------------------------* * LOCAL SPOOL SPECIFIC FIELDS * *---------------------------------------------------------------------* SCBEODEV DC H'0' OUTPUT DEVICE MNEMONIC SCBEDENT DC X'00' OUTPUT DEVICE TYPE SCBEPRT EQU X'20' PRINTER SCBEPUN EQU X'30' PUNCH SCBEPFD EQU X'90' FLOPPY DISK SCBETAP EQU X'B0' TAPE SCBEDESF DS X DESTINATION FLAG SCBEDGRO EQU X'01' DEVICE GROUP SCBERDIR EQU X'02' COMING FROM RDIR SCBEDIST EQU X'04' JOB SCHEDULED ON A REMOTE SERVER (DP) SCBEIDOM EQU X'08' JOB IDOM 078 SCBEBSDC EQU X'10' SBSD CALLER 078 SCBELHST EQU X'20' LONG HOSTNAME SUPPORT 078 *---------------------------------------------------------------------* * REMOTE SPOOL SPECIFIC FIELDS *
*---------------------------------------------------------------------*
SCBERUID DC CL8'00' REMOTE OUTPUT USERID 211
ORG SCBERUID
SCBENUID DS CL8 NEW REMOTE OUTPUT USERID
*************************************
* REQUIREMENT INFORMATION *
*************************************
*
*---------------------------------------------------------------------*
* PRINT COMMAND PARAMETERS-COMMON TO LOCAL AND REMOTE *
* (AND ALSO COMMON WITH PUNCH COMMAND FIELDS) *
*---------------------------------------------------------------------*
SCBEPNAM DS XL8 PRINT OR PUNCH JOB NAME
SCBECNTR DS X RECORD BYTE FOR CONTROL PHYSICAL
SCBEREAD DS X REMAIN ADVANCE FROM PCC
SCBESTRT DC F'0' STARTNO:BINARY LHE RECORD POSITION
SCBESALL EQU X'00' ZERO=BEGIN AT FIRST POSITION/BLOCK
SCBEEND DC F'0' ENDNO:BINARY RHE STOP RECORD POSITION
SCBEEALL EQU X'00' ZERO=END AT 132 OR 160 FOR PRINTER
SCBEFRM DC XL6'40' FORM SIZE CODE
SCBEFRMS EQU C'STD' INDICATE SYSTEM STANDART OR DEFAULT
SCBEHREC DC H'0' FREQUENCY OF HISTORICAL RECORDS
SCBEHPRT EQU 336 PRINTER DEFAULT IS 336 LINES
SCBEHPUN EQU 26 PUNCH DEFAULT IS 26 CARDS
*
SCBEER DC X'00' ERASE OPTION
SCBEERN EQU X'00' DO NOT ERASE FILE AFTER PROCESSING
SCBEERD EQU X'FE' DESTROY OPTION
SCBEERY EQU X'FF' ERASE FILE AFTER PROCESSING
*
SCBEERR DC X'00' READ ERROR OPTION
SCBEERT EQU X'00' TERMINATE UPON READ ERROR
SCBEERS EQU X'40' SKIP BAD BLOCK UPON READ ERROR
SCBEERA EQU X'80' OUTPUT BAD BLOCK AS IT IS
SCBEERF EQU X'C0' OUTPUT BAD BLOCK AND FLAG IT
*---------------------------------------------------------------------*
* PRINT COMMAND PARAMETERS-COMMON TO LOCAL AND REMOTE *
* (BUT NO LONGER COMMON WITH PUNCH COMMAND FIELDS) *
*---------------------------------------------------------------------*
SCBELINE DC H'0' NUMBER OF LINES MAXIMUM PER PAGE 210
SCBEPSIZ DC Y(132) PRINTER SIZE IN BYTES PER LINES
SCBEP132 EQU 132 INDICATES 132 CHARACTER PRINTER
SCBEP160 EQU 160 INDICATES 160 CHARACTER PRINTER
*
SCBEHDR DC X'00' HEADER INFORMATION ON EACH PAGE
SCBEHRDN EQU X'00' NOTHING IS PRINTED AS PART OF HEADER
SCBEHDRP EQU X'04' PAGE NUMBER PART OF HEADER
SCBEHDRS EQU X'10' STANDARD HEADER-ID,PG,TSN,DAT,FNAME
SCBEHDRD EQU X'40' DATE PART OF HEADER SCBEHDRT EQU X'80' FIRST LOGICAL RCD=HEADER/PAGE * SCBEHEAD DC X'00' CMD INFO 212 SCBEHNCS EQU X'00' 212 SCBELSPE EQU X'01' LINE SPECIFIED IN PRINT REQUEST 210 SCBEHNSP EQU X'02' JOB NOT REALLY SUSPENDED (FROM) LPM SCBESHSP EQU X'04' SHIFT SPECIFIED IN PRINT REQUEST 212 * SCBESPRT DC X'00' SEPARATOR PAGE TO BE OUTPUT SCBESYES EQU X'00' YES SCBESNO EQU X'01' NO * SCBETRLR DC X'00' TRAILER PAGE NECESSARY SCBETYES EQU X'00' YES SCBETNO EQU X'01' NO * SCBEEDIT DC X'01' EDIT CHARACTER OR SPACING SCBEEDTE EQU X'00' SPACE=E(1ST RCD CHAR=PRNT CNTRL) SCBEEDT1 EQU X'01' LINES=1(SPACE 1 LINE BETWEEN RCDS) SCBEEDT2 EQU X'02' LINES=2( 2 ) SCBEEDT3 EQU X'03' LINES=3( 3 ) SCBEEDTN EQU X'04' SPACE=NO (FOR RSO 2.0) * SCBEETYP DC X'00' CONTROL CHAR TYPE SCBEEIBM EQU X'01' CONTROL CHAR IS IBM SCBEEASA EQU X'02' CONTROL CHAR IS ASA SCBEPALN EQU X'04' PARAM LINE SPECIFIED SCBEETE EQU X'80' SPACE=TE (FOR RSO 2.0) SCBEETI EQU X'81' SPACE=TI " SCBEETA EQU X'82' SPACE=TA " * SCBECSW1 DS XL1 OUTPUT CONTROLLER SWITCH 1 213 SCBENOER EQU X'04' S: NO ERASE ALLOWED 213 SCBENODL EQU X'02' S: NO DEL. FROM SHUT. Q 213 * SCBECSW2 DS XL1 OUTPUT CONTROLLER SWITCH 2 213 SCBEIOER EQU X'01' S: I/O ERROR HAPPENED ON PRINTER 213 SCBEDMSE EQU X'04' S: DMS ERROR HAPPENED ON INPUT FILE 213 SCBEUSRE EQU X'08' S: USER ERROR HAPPENED 213 SCBERTDR EQU X'80' S: REPLAY TAPE DIRECT 213 * SCBEEXIT DC X'00' EXIT CALL REQUEST 210 SCBEEX95 EQU X'02' OUTPUT RECORD 210 SCBEEX90 EQU X'01' INPUT RECORD 210 SCBEBIN DC X'00' BINARY OPTION SCBEXPBN EQU X'00' GRAPHIC ONLY IS OUTPUTTED SCBEXPBY EQU X'02' BOTH HEX AND GRAPHIC ARE OUTPUTTED
SCBEPPFL DC F'0' NO OF PAM PAGES IN FILE SCBEPPPR DC F'0' NO OF PAM PAGES PRINTED SCBEFRNB DC F'0' VALUE OF FROM OR LAST PARAM SCBETONB DC F'0' VALUE OF TO PARAM SCBESEL DC X'00' SELECTIVE PRINT OPTION FEATURE INDICATOR SCBENSEL EQU X'00' NO SELECTIVE PRINT FEATURE SCBESELA EQU X'02' LAST OPTION SCBESELT EQU X'04' TO OPTION SCBESELF EQU X'08' FROM OPTION SCBESELL EQU X'40' TYPE=L SCBESELP EQU X'80' TYPE=P * SCBEFCPY DC X'00' NUMBER OF FILE COPIES SCBECOPY EQU SCBEFCPY SCBEPCPY DC X'00' NUMBER OF PAGE COPIES *---------------------------------------------------------------------* * PRINT COMMAND PARAMETERS-ONLY MEANINGFULL FOR LOCAL * *---------------------------------------------------------------------* SCBES2 DC X'00' SWITCH 2 SCBESD EQU X'01' JOB MAY BE DIRECTED ON SD23 SCBEND EQU X'02' JOB MAY BE DIRECTED ON ND2 SCBEMEX EQU X'04' MXM EXTENSION INDIRECTLY REQUESTED SCBECVFB EQU X'08' CHECK VFB INDIRECTLY REQUESTED SCBEMND EQU X'10' JOB MUST BE DIRECTED ON ND2 SCBENOLD EQU X'20' JOB MAY NOT GO ON OLD PRINTER SCBE160 EQU X'40' JOB MUST BE REDIRECTED ON 160 CLEAN SCBE37 EQU X'80' MAY ON 3337 * SCBELOOP DS XL3 LOOP PARAMETER 102 SCBEFT1 DS XL3 FONT 1 KEY 102 SCBEFT2 DS XL3 FONT 2 KEY 102 SCBEFT3 DS XL3 FONT 3 KEY 102 SCBEFT4 DS XL3 FONT 4 KEY 102 SCBEDIA DC XL2'00' DIA IDENTIFICATION SCBEIMAG DC XL4'00' IMAGE IDENTIFICATION-ND2 PREFIX SCBESHIF DC X'00' SHIFT COLUMN DELAY SCBECC DC X'00' CONTROL PARAM SCBECCN EQU X'01' CONTROL = NO SCBECCP EQU X'02' = PHYSICAL SCBEC12 EQU X'08' = 12LPI SCBECCL EQU X'04' = LOGICAL SCBELNMD EQU X'10' = LINEMODE 210 SCBECCTR EQU X'20' = TRANSPARENT SCBECAPA EQU X'40' = APA *---------------------------------------------------------------------* * SQ COMMAND AND ABNORMAL I/O MSG PARAMETERS * *---------------------------------------------------------------------*
SCBEAND DC X'00' ACTION INDICATOR 102 SCBEANDR EQU X'01' RESPOOL SPECIFIED 102 SCBEANDS EQU X'02' SUSPEND SPECIFIED 102 SCBEANDH EQU X'04' HOLD "H" SPECIFIED 102 SCBEANDK EQU X'08' HOLD "K" SPECIFIED 102 SCBEIMEX EQU X'10' MPVS IMPORT-EXPORT MPVS * SCBESUSI DC X'00' SUSPEND INDICATOR SCBESUSL EQU X'01' < SPECIFIED SCBESUSP EQU X'02' P SPECIFIED SCBESUSB EQU X'04' B SPECIFIED SCBESUSS EQU X'08' S SPECIFIED SCBESUSM EQU X'10' PAGE # SPECIFIED SCBESUSY EQU X'20' PRIORITY SPECIFIED 102 SCBECRLG EQU X'40' - DEFAULT FORM FROM GEN REC 070 * SCBELPHC DS CL3 REQUESTED CROSS LOOP FOR HP (ROTAT.) SCBESUSG DC F'0' PAGE # SPECIFIED IN THE CMD SCBESUSV DC X'00' PRIORITY SPECIFIED IN THE CMD 102 SCBESEC# DS CL2 SECOND # AT PRINT START *---------------------------------------------------------------------* * SPECIAL PARAMETERS FOR PUNCH FLOPPY DISC * *---------------------------------------------------------------------* SCBEFDNM DS CL8 FILENAME SPECIFIED SCBECH#P DS X ORDER# OF CHARS REQUESTED IN POOL (HP) SCBEFDSC DC H'0' NUMBER OF RESERVED SECTORS SCBEFDRP DC H'0' RETENTION PERIOD SCBERCZ DS H RECSIZE FROM PUNCH CMD SCBEFDCB DC X'00' CONTROL BYTE SCBEFDBP EQU X'01' BYPASS=Y SCBEFDAC EQU X'02' ACCESS=N SCBEFDWP EQU X'04' WRITEPR=Y SCBEFDSU EQU X'08' SKEL=US SCBEFDSN EQU X'10' SKEL=NS SCBEFLST EQU X'20' REPORT REQUESTED CLEAN * SCBEFDB2 DC X'00' CONTROL BYTE 2 102 SCBEFDNO EQU X'01' OWNERID = NO 102 * 103 SCBEFDB3 DC X'00' CONTROL BYTE 3 103 SCBEFDSA EQU X'01' JOB COPIED SHUTDOWN->ACTIVE Q 103 * 103 SCBESAER DS CL1 SAVE ERASE OPTION *---------------------------------------------------------------------* * VSN LIST USED BY FLOPPY DISCS * *---------------------------------------------------------------------* SCBEFDVS DS 10CL6 VSN LIST FOR FLOPPY DISC SCBEFDLG EQU *-SCBEFDVS VSN LIST LENGTH
*************************************** * CONTROL-STATUS INFORMATION * *************************************** * *---------------------------------------------------------------------* * COMMON INFORMATIONS * *---------------------------------------------------------------------* SCBELHI DS X LOOP LENGTH IN 1/6 INCH SCBELHIC DS X CROSS LOOP LENGTH IN 1/6 INCH SCBEROE DS A @ OF ROE 102 SCBECOUN DC F'0' SAVED LINES/CARDS COUNT(AFTER /SQ) SCBEIO DC F'0' SAVED I/O COUNT ON PUB DEVICE(AFTER /SQ) SCBECNT DC F'0' LINES/CARDS # TO PRINT/PUNCH SCBEDSPO DC XL3'00' DATE JOB SPOOLED OUT * UNUSED (SCBETSPO) FOR COMPATIBIL. SCBECTTY DS X CONTROL TYPE SCBECTCP EQU X'01' = COMPATIBLE SCBECTHP EQU X'02' = HP SCBECEDA DS X CENTURY FOR DATE JOB SPOOLED OUT END SCBEDSPF DC XL3'00' DATE JOB SPOOLED OUT FINISH * UNUSED (SCBETSPF) FOR COMPATIBIL. 211 SCBEPTYP DS 0XL2 PRINTER TYPE SCBEPTY1 DS X FIRST BYTE SCBEPTY2 DS X SECOND BYTE SCBEPT65 EQU X'08' = LP65 SCBEPTHP EQU X'04' = HP SCBEPTAP EQU X'02' = APA SCBEPTAN EQU X'01' = ANY * SCBEEPCD DS X ERROR PAGE CODE 102 SCBEDMSC EQU X'01' DMS ERROR CODE SCBERTPR EQU X'02' ERROR PAGE INDICATOR SCBESPND EQU X'04' SUSPENDED SCBEHLD EQU X'08' HOLDED SCBECNCL EQU X'10' CANCELLED SCBEWCB EQU X'20' WRONG CONTROL BYTE SCBELTR EQU X'40' LINE TRUNCATION OCCURED SCBETMSG EQU X'80' SCBEEPMS IS A PRINTABLE MSG * SCBEEPMS DS CL40 ERROR PAGE MESSAGE 102 SCBEDSCD DS CL1 DELAY SCHEDULING BYTE SCBENSCD EQU X'FF' DELAY SCHEDULING IN EFFECT SCBEFMND DS X FAMILY INDICATOR SCBEFFM EQU X'01' -FIRST MEMBER OF FAMILY SCBEFMNQ EQU X'02' -ALL FAMILY NOT YET IN Q SCBEFBIT EQU X'04' -DO NOT RESET BIT MAP
*---------------------------------------------------------------------* * LOCAL SPOOL SPECIFIC FIELDS * *---------------------------------------------------------------------* SCBEROTV DS X ROTATION VALUES SCBER00 EQU X'F0' 0 DEGREE SCBER90 EQU X'F1' 90 DEGREES SCBER180 EQU X'F2' 180 DEGREES SCBER270 EQU X'F3' 270 DEGREES SCBER018 EQU X'F4' (0,180) DEGREES SCBER927 EQU X'F5' (90,270) DEGREES SCBE1800 EQU X'F6' (180,0) DEGREES SCBER279 EQU X'F7' (270,90) DEGREES SCBERYES EQU C'Y' ROTATION=YES SCBERNO EQU X'00' ROTATION=NO * SCBESAMP DC H'0' SAMPLE=VALUE USED FOR FORMS ALIGN. SCBENSAM EQU X'00' ZERO=NO FORMS ALIGNMENT SCBEXPND DC X'00' SQ/CANCEL INDICATOR SCBEXINT EQU X'08' OTHER RESPOOL/SUSPEND NOT ALLOWED SCBEXPC EQU X'10' CANCEL SPOOL-OUT W/NO SHUTDOWN ENTRY SCBEXPCH EQU X'20' SPOOL SHUTDOWN IN PROGRESS 210 * SCBECPL DC X'00' SPOOLOUT COMPLETION SWITCH SCBELOK EQU X'00' NORMAL COMPLETION SCBELCAN EQU X'01' SPOOLOUT TASK CANCELLED SCBELER1 EQU X'02' ABNORMAL OUTPUT I/O TERMINATED TASK SCBELER2 EQU X'04' ABNORMAL INPUT I/O TERMINATED TASK SCBELRES EQU X'08' TASK WAS STOPPED AND RESPOOLED * SCBEDIRE DS H DISPLACEMENT IN RECORD (MLR) SCBEHRC DS 0F SKIP TYPE HISTORICAL RECORD SCBEDISP DC H'0' DISPLACEMENT WITHIN I/P RECORD SCBEPOS DC H'0' # OF GET LOOPS ON I/P RECORD SCBESELC DC F'0' SEL PRINT CNT(#LINES)PAGES CORRESPONDING * TO THE I/O COUNT FOR THE SUSPEND FEATURE) SCBESAVP DC F'0' SAVED CURRENT PAGE# FOR HEADER(SQ) SCBETFLN DC XL12'00' NEW FILE NAME GIVEN TO THE FILE WHEN CATA- * LOGING FROM TAPE TO DISC *---------------------------------------------------------------------* * ND2 SPECIFIC FIELDS * *---------------------------------------------------------------------* SCBEREC DC F'0' RECORD # (HIST. RCD) SCBEUF DC F'0' BUFFER # (HIST. RCD) SCBELNA DC F'0' LINE ADDR (HIST. RCD) SCBEVFBL DC X'00' # OF LINES FROM THE VFB SCBECH1 DS X FONT# & DENSITY OF 1ST SET 12LPI SCBECH2 DS X FONT# & DENSITY OF 2ND SET 12LPI SCBEDEFV DC X'00' DEFAULT VALUES GIVEN BY THE SPOOL
SCBECHAR EQU X'80' CHARS SCBELPRO EQU X'40' LOOP SCBECLPD EQU X'20' CROSS LOOP * SCBEFNAM DS CL10 REPLAY FILE MNEMONIC SCBEIDEV DS H INPUT DEVICE MNEMONIC SCBEVBSD DC X'00' # OF LINES FROM VFB FOR SD23 SCBEVBLP DC X'00' # OF LINES FROM VFB FOR 3337 SCBEVBND DC X'00' # OF LINES FROM VFB FOR ND2 SCBELCH1 DC X'00' NUMBER OF LINES BEFORE CHANEL 1 SCBEITN DC F'0' ITN (USABLE BY STATUS ONLY ! ) *---------------------------------------------------------------------* * REMOTE CONTROL-TO BE UPDATED IN 1.2 * *---------------------------------------------------------------------* SCBEPAGE DC F'0' CURRENT PAGE# FOR HEADER SCBECHPN DS CL4 CHARS POOL NAME SCBECRLO DS CL3 CROSS LOOP PARAMETER SCBEFDNA DS C FD NAME FROM DEVICE PARAMETER SCBE3171 EQU X'00' DEVICE=FD3171 (0 FOR COMPATIBILITY) SCBEFACO EQU X'9B' FD75407 (FALCON) REQUESTED SCBEHPID DS CL4 USED HPFILE CODED FILE ID. SCBECHAN DS H CHARS NUMBER IN POOL SCBESTID DS X STREAM INTERNAL ID (SLOT SCHEDULING) SCBELOID EQU X'00' STREAM FOR LOCAL SCHEDULING SCBERSID EQU X'01' STREAM FOR RSO SCHEDULING SCBESPRI DS X PRIORITY BEFORE SCHEDULING *---------------------------------------------------------------------* * TEMPORARY FOR TAPES * *---------------------------------------------------------------------* SCBEFLTP DS X FLAG BYTE FOR TAPES **** 102 SCBEUSTP EQU X'11' * USER TAPE SCBERLTP EQU X'10' * REPLAY TAPE SCBERRCD DS CL8 RSO PRINTER ERROR CODE SCBEDFES DS X TO SAVE DFER (RBP CONTROL SWITCH). * SCBEDSTN DS CL8 DESTINATION STATION JSI & 211 SCBEVBHC DS H # OF LINES FROM CROSS VFB FOR HP *---------------------------------------------------------------------* * REMOTE CONTROL SPOOL V2 * *---------------------------------------------------------------------* SCBEINF DS 0F HISTORICAL RECORD 211 SCBEDMEC DS CL8 DCAM ERROR CODE (..SPOL:..DMEC) 211 SCBERJBN DS CL8 REMOTE JOB NAME 211 SCBERINF DS X REMOTE INFORMATION 211 SCBETERM EQU X'01' SET: JOB ABNORMALLY TERMINATED 211 SCBERPRT EQU X'02' SET: PRINT TO THE REMOTE 211 * RESET: LOGOFF PROCESSING 211 SCBEGRPC EQU X'08' SET: GROUP IN CONFIGURATION
SCBERSO EQU X'10' SET: RSO DESTINATION 211 SCBEDFER DC X'00' CONTROL SWITCH 211 SCBEDRMT EQU X'01' SET: REMOTE DESTINATION 211 * RESET: CENTRAL DESTINATION 211 SCBEDFRR EQU X'02' SET: DEFERRED OUTPUT 211 * RESET: IMMEDIATE OUTPUT 211 SCBERESV EQU X'04' SET: RESERVED OUTPUT 211 * RESET: NOT RESERVED OUTPUT 211 SCBESUBM EQU X'08' SET: RESERVED BY SUBMITTER 211 * RESET: RESERVED BY ALTERNATE 211 *---------------------------------------------------------------------* * NEW FIELDS FOR SPOOL V2 * *---------------------------------------------------------------------* SCBECH1C DS H # OF LINES BEF. CHANNEL1, CROSS HP SCBETRLN DC F'0' TRAILER NUMBER 211 SCBEHDRN DC F'0' HEADER NUMBER 211 SCBEUSTX DC CL32' ' USER TEXT IN HEADER-TRAILER 213 SCBELIND DS H TOTAL LINES/PAGE FOR ND2 SCBELISD DS H TOTAL LINES/PAGE FOR SD23 SCBELILP DS H TOTAL LINES/PAGE FOR LP3337 SCBELIHP DS H TOTAL LINES/PAGE FOR HP (3351, 3353) SCBEVBHP DS H # OF LINES FROM VFB FOR HP SCBES2B DS X SWITCH 2 BIS SCBEHP EQU X'01' JOB MAY BE DIRECTED ON HP SCBEMHP EQU X'02' JOB MUST BE DIRECTED ON HP SCBECVFH EQU X'04' CHECK VFB REQUESTED FOR HP SCBENDX EQU X'08' JOB MAY BE DIRECTED ON HP54 (=NDX) SCBEMNDX EQU X'10' JOB MUST BE DIRECTED ON HP54 SCBECVFX EQU X'20' CHECK VFB REQUESTED FOR HP54 SCBEMUNW EQU X'40' MUST NEW, FROM SPOOL 2.5 * SCBERDT DS X REQUESTED DEVICE TYPE SCBEDTAL EQU X'00' *ALL SCBEDTND EQU X'01' ND PRINTER SCBEDTHP EQU X'02' HP PRINTER * SCBEHPFL DS X HP FLAG SCBEFOBP EQU X'01' FOB POOL USED SCBECHPO EQU X'02' CHARS POOL USED SCBEROTF EQU X'04' ROTATION SPECIFIED IN REQUEST SCBEH2SP EQU X'08' HP TO SPS JOB 074 * SCBELPHP DS CL3 REQUESTED LOOP FOR HP SCBELPND DS CL3 REQUESTED LOOP FOR ND2 SCBELPSD DS CL3 REQUESTED LOOP FOR SD23 SCBELPLP DS CL3 REQUESTED LOOP FOR 3337 SCBEFDTY DS X FDTYPE PARAM SCBEFSRA EQU X'00' SCRATCH
SCBE3170 EQU X'40' FD3170 SCBE1S1D EQU X'F1' FD1S1D (SINGLE SIDE, SINGLE DENSITY) SCBE11BD EQU X'40' FD11BD (SINGLE SIDE, SINGLE DENSITY) SCBE2S1D EQU X'F2' FD2S1D (DOUBLE SIDE, SINGLE DENSITY) SCBE2S2D EQU X'D4' FD2S2D (DOUBLE SIDE, DOUBLE DENSITY) * SCBECH1H DS H # OF LINES BEFORE CHANEL 1 FOR HP SCBEVFBH DS H SCBEVFBL FOR HP SCBEC#DH DS CL1 LPI AND CPI (CPI - 6) FOR HP FROM * 1RST CMD OR POOL CHARS OR DEFAULT CH. SCBELIRD EQU X'80' RESERVED FOR CHARS# FROM FIRST CHARS SCBELPI6 EQU X'10' 6 LPI FOR HP SCBELPI8 EQU X'20' 8 LPI FOR HP SCBELP10 EQU X'30' 10 LPI FOR HP SCBELP12 EQU X'40' 12 LPI FOR HP SCBELP24 EQU X'50' 24 LPI FOR HP SCBEHCPI EQU X'0F' CPI VALUE IN 4 LAST BITS * SCBEHPOS DS CL4 $TSOS HPFILE CODED FILE ID SCBEFIFL DS X FILE FLAG SCBEFIPL EQU 1 PLAM LIB SCBEPRER EQU 2 SECTION PREPROCESSING REQUESTED. SCBEPREI EQU 4 SECTION IN PREPROCESS SCBEPRES EQU 8 SECTION PREPROCESSED WITH SUCCESS SCBEPREF EQU 16 PREPROCESSING FAILED WITH DMS ERROR * (WHICH IS IN &P.SDMS). SCBEPREL EQU 32 PREPROCESSING LOGICAL FAILURE SCBECOFI EQU 64 FILE COPIES IS REQUESTED SCBECOPA EQU 128 PAGE COPIES IS REQUESTED * SCBEPLRF DS X PLAM RECORD TYPE FROM SCBEPLRT DS X PLAM RECORD TYPE TO SCBEERRP DS X ERROR PROCESSING= SCBETRIG EQU 1 TRUNC=IGNORE | RESET = SCBETRKE EQU 2 TRUNC=KEEP | STD SCBEMGPY EQU 4 MSGPAGE=YES | RESET = SCBEMGPN EQU 8 MSGPAGE=NO | STD * SCBELP48 DS CL3 REQUESTED LOOP FOR LP48 SCBELI48 DS H TOTAL LINES/PAGE FOR LP48 SCBEVB48 DS H # OF LINES FROM VFB FOR LP48 SCBELI65 DS H TOTAL LINES/PAGE FOR LP65 (=ND50) SCBEVB65 DS H # OF LINES FROM VFB FOR LP65 SCBELIUL DS H TOTAL LINES/PAGE FOR EMULATED SCBEVBUL DS H # OF LINES FROM VFB FOR EMULATED SCBELP65 DS CL3 REQUESTED LOOP FOR LP65 SCBELPUL DS CL3 REQUESTED LOOP FOR EMULATED PRINTER SCBEDSEM DS H DISPLACEMENT TO DSEM PRINT PARAMETER
SCBEFACR DS X NUMBER OF FILES IN A FAMILY(1RST MEM.) SCBESEFL DS X SECTION FLAG SCBESERE EQU 1 SECTION REQUESTED IN THE COMMAND SCBESEBF EQU 2 FROM BEGIN OF FILE SCBESEFY EQU 4 FROM *ANY SCBESEEF EQU 8 TO END OF FILE SCBESETY EQU 16 TO *ANY SCBESCTY EQU 32 SET = SECT IN CHR, RESET = HEXA SCBEFITY EQU 64 SET = FIRST IN CHR, RESET = HEXA SCBELATY EQU 128 SET = LAST IN CHR, RESET = HEXA *---------------------------------------------------------------------* * CHARS FOR RSO * *---------------------------------------------------------------------* SCBEFT5 DS XL3 FONT 5 KEY (SRC SEQ # MODIF) SCBEFT6 DS XL3 FONT 6 KEY SCBEFT7 DS XL3 FONT 7 KEY 211 SCBEFT8 DS XL3 FONT 8 KEY 211 SCBEFT9 DS XL3 FONT 9 KEY 211 SCBEFT10 DS XL3 FONT 10 KEY 211 SCBEFT11 DS XL3 FONT 11 KEY 211 SCBEFT12 DS XL3 FONT 12 KEY 211 SCBEFT13 DS XL3 FONT 13 KEY 211 SCBEFT14 DS XL3 FONT 14 KEY 211 SCBEFT15 DS XL3 FONT 15 KEY 211 SCBEFT16 DS XL3 FONT 16 KEY 211 SCBEFTTL EQU *-SCBEFT5+12 TOTAL FONTS LENGTH 211 SCBEFT# EQU SCBEFTTL/L'SCBEFT1 FONTS NUMBER 211 SCBEC#D1 DS CL(SCBEFT#) DENSITIES CORR. TO (16) FONTS 211 *---------------------------------------------------------------------* * GENERAL OUTPUT INFORMATIONS * *---------------------------------------------------------------------* SCBETSPO DC XL3'000' TIME JOB SPOOLED OUT HHMMSS 211 SCBETSPF DC XL3'000' TIME JOB SPOOLED OUT FINISH HHMMSS 211 SCBELIHC DS H TOTAL LINES/CROSS PAGE FOR HP SCBELPP# DS F LAST RETRIEVAL @: BLOCK#(BBBBBBFF) SBC SCBE#PP DS F FILE SIZE IN PRINTER PAGES SBC SCBECH1# DS F COUNTER OF SKIP TO CHANNEL 1 SBC SCBESBC# DS H PRINT SEQUENCE # SBC *---------------------------------------------------------------------* * RSO 2.0 SPECIFIC FIELDS * *---------------------------------------------------------------------* SCBETRA# DS X INPUT TRAY # FOR RSO & NDY SCBEITMA EQU X'80' = MANUAL 011 SCBEITA3 EQU X'81' = A3 011 SCBEITA4 EQU X'82' = A4 011 SCBEITA5 EQU X'83' = A5 011 SCBEITB4 EQU X'84' = B4 011 SCBEITB5 EQU X'85' = B5 011
SCBEITDO EQU X'86' = DOUBLE-LETTER 011 SCBEITEX EQU X'87' = EXEC 011 SCBEITFO EQU X'88' = FOLIO 011 SCBEITIV EQU X'89' = INVOICE 011 SCBEITLG EQU X'8A' = LEGAL 011 SCBEITLT EQU X'8B' = LETTER 011 SCBEITMO EQU X'8C' = MONARCH 011 SCBEIT10 EQU X'8D' = COM10 011 SCBEITDL EQU X'8E' = DL 011 SCBEITC5 EQU X'8F' = C5 011 SCBEITIG EQU X'FF' = IGNORE 011 * SCBESQSA DS X PREVIOUS "SQ" KIND SAVED SCBEXSEC DS F TDFILE SECTION NUMBER SCBESHRO DS D RSO SCHEDULING SCBETRAT DS CL8 TRANSLATION TABLE NAME SCBERDST DS CL8 RSO AND LOCAL DESTINATION GROUP SCBEPINF DS X RSO PRINT INFO SCBECHMO EQU X'01' CHARS MODIFICATION SCBERSMP EQU X'02' SET: SAMPLE=YES GIVEN SCBERDI EQU X'04' SET: RDIR=NO * SCBEXTYP DS X MODE TYPE SCBEXRSO EQU X'00' XTYPE=RSO (DEFAULT) SCBEXRTD EQU X'01' XTYPE=TDSPOOL * SCBESPC2 DS X SPACE OPERAND FOR RSO 2.0 SCBESPE EQU X'00' SPACE=E SCBESP1 EQU X'01' SPACE=1 SCBESP2 EQU X'02' SPACE=2 SCBESP3 EQU X'03' SPACE=3 SCBESPN EQU X'04' SPACE=NO * SCBETYP3 DS X SPACE OPERAND FOR RSO 2.0 SCBESPI EQU X'01' SPACE=IBM SCBESPA EQU X'02' SPACE=ASA SCBELN2 EQU X'04' LINES=SPECIFIED SCBESPTE EQU X'80' SPACE=TE SCBESPTI EQU X'81' SPACE=TI SCBESPTA EQU X'82' SPACE=TA * SCBECTL2 DS X CONTROL OPERAND FOR RSO 2.0 SCBECTNO EQU X'01' CONTROL=NO SCBECTPH EQU X'02' CONTROL=PHYSICAL SCBECTLG EQU X'04' CONTROL=LOGICAL SCBECTLN EQU X'10' CONTROL=LINEMODE SCBECTTR EQU X'20' CONTROL=TRANSPARENT *
SCBETTIM DS CL4 IMAGE FOR TRANSLATION TABLE
SCBEEXHC DS CL8 EXTENDED HOST CODE
SCBESRMD DS X SORT MODE 011
SCBESMNO EQU X'01' = NO 011
SCBESMGR EQU X'02' = GROUP 011
SCBESMCO EQU X'03' = COLLATE 011
SCBESMST EQU X'04' = STACKER 011
SCBESMAU EQU X'05' = AUTOMATIC 011
*
SCBERPPD DS H RSO PRINT PARAM. DISPLACEMENT
SCBEESTS DS F ESTIMATE SIZE FOR STATUS
SCBETOOS DS H TOP OFFSET 011
SCBELEOS DS H LEFT OFFSET 011
SCBEMTSN DS CL4 OLD TSN DURING /MOVE-PR-JOB COMMAND 077
SCBEMOVE DS X INDICATOR FOR /MOVE-PR-JOB COMMAND 077
SCBENEW EQU X'80' NEW TSN HAS BEEN ASSIGNED DURING MOVE 077
SCBEMVPJ EQU X'40' MOVE-PR-JOB COMMAND GIVEN 077
SCBEMPJA EQU X'20' MODIFY-PR-JOB-ATTR COMMAND GIVEN 077
SCBENSCH EQU X'10' JOB IS NOT SCHEDULABLE 077
DS CL1 RESERVED FOR RSO 2.0
*---------------------------------------------------------------------*
* GENERAL INFORMATIONS *
*---------------------------------------------------------------------*
SCBECPUT DS XL8 CPU TIME USED BY SPOOL
SCBEUTAP DS XL8 USER PARAM TAPE=
ORG SCBEUTAP
SCBENFNM DS CL54 NEW SAM FILENAME
SCBEFUT DS 0F UNUSED IN VER = 102 102
ORG SCBETOP+X'3F8' 102
*---------------------------------------------------------------------*
* ATTENTION: THE REAL LENGTH OF THE SCB IS IN &P.TOP. !!!!!!!!!!! *
*---------------------------------------------------------------------*
SCBELIEX DS CL1024 MAXIMUM EXTENSION LENGTH
ORG SCBELIEX FIXED PART OF THE EXTENSION
SCBEPLRA DS F MAXIMUM RECSIZE FOR SATZART A
SCBEPLRB DS F MAXIMUM RECSIZE FOR SATZART B
SCBEPLED DS H DISPLACEMENT FOR PLAM ELEMENT NAME
* FROM THE BEGIN OF THE COMPLETE SCB.
SCBEPLVD DS H IDEM FOR PLAM ELEMENT VERSION.
SCBEPLTD DS H IDEM FOR PLAM ELEMENT TYPE
SCBEJVDI DS H IDEM FOR JOB VARIABLE
SCBEJPWD DS CL4 USER JOB VARIABLE PASSWORD
SCBECPY# DS H NUMBER OF PRINT EXEMPLARS
SCBEPARM DS H DISPL. TO PRINT PARAMETERS
*
SCBEJVEX DS X JOB VARIABLE INDICATOR
SCBEJVXY EQU 1 JV EXISTS
SCBEJVXN EQU 2 JV INACCESSIBLE
SCBEJUWP EQU 4 USER PASSWORD TO RESTORE SCBEJVCR EQU 8 JV CREATED BY SPOOL * SCBESDMS DS X SECTION DMS ERROR CODE INDICATOR SCBESDEF EQU 1 EMPTY FILE SCBESDOP EQU 2 DMS CODE IN SCBEPERR SCBESDSE EQU 4 SETL ERROR * SCBEPERR DS CL4 DMS ERROR CODE OF PREPROCESSING SCBEDIAR DS X DIA RECTO FOR LP65 (=ND50) SCBEDIAV DS X DIA VERSO FOR LP65 SCBESIDD DS H DISPLACEMENT FOR SECTION ID SCBESEPO DS H SECTION ID POSITION SCBESF# DS F SECTION FROM NUMBER SCBESFDI DS H DISPLACEMENT OF FROM SECTION ID SCBESFPO DS H SECTION FROM POSITION SCBEST# DS F SECTION TO NUMBER SCBESTDI DS H DISPLACEMENT OF TO SECTION ID SCBESTPO DS H SECTION TO POSITION SCBESLB# DS F SETL BLOCK NUMBER SCBESLR# DS F SETL RECORD NUMBER SCBER#BF DS F RECORD NUMBER FROM BEGIN OF FILE SCBEFSCR DS F FROM (FIRST) STRING COUNTER SCBETSCR DS F TO (LAST) STRING COUNTER SCBESSCR DS F SECTION STRING COUNTER SCBEISKY DS H ISAM KEY DISPLACEMENT FOR SECTIONS SCBEIMDI DS H DISPLACEMENT FOR IMAGE FILENAME * SCBECKPT DS X CHEKPOINT TO DO SCBECKPP EQU 0 AT PAGE SCBECKPS EQU 1 AT SECTION * SCBEDPLX DS X DUPLEX = SCBEDUPD EQU 0 STD SCBEDUPY EQU 1 YES SCBEDUPT EQU 2 TUMBLE SCBEDUPN EQU 4 NO * SCBEPACC DS X PAGE CONTROL CHARACTER (TOP OF PAGE) SCBEPACS EQU 0 STD SCBEPACN EQU 1 NO * SCBEOTRA DS X OUTPUT TRAY # LP65 (=ND50,NDY) SCBEOTIG EQU X'80' OUT-TRAY = NO ( RSO ) 011 SCBEOTSO EQU X'81' OUT-TRAY = SORTER ( RSO ) 011 * SCBENPAD DS F PAGEDEF VALUE FOR LP65 SCBEPCCD DS F PRINT CONTROL CHARACTER POSITION
SCBETTID DS H TRANSLATION TABLE IMAGE DISPL. SCBEVBNX DS H USABLE LINES FROM VFB (HP54=NDX) SCBELINX DS H TOTAL LINES#/PAGE (HP54) SCBECH1X DS H LINES# BEFORE CHANNEL 1 (HP54) SCBELPNX DS CL3 REQUESTED LOOP FOR HP54 SCBELXI DS X LOOP LENGTH IN 1/6 INCH (HP54) SCBERPMX DS F RASTER PATTERN MEMORY IN KB (HP54) SCBETWUX DS X TWO-UP MODE FRO: RECORD FORM SCBETW1X EQU X'01' MODE 1 SCBETW2X EQU X'02' MODE 2 SCBETW3X EQU X'04' MODE 3 SCBETWNX EQU X'80' NO TWO-UP * SCBEC#DX DS CL1 LPI AND CPI (CPI-6) FOR HP54 FROM 1RST * CMD OR POOL OR DEFAULT CHARS * TO USE WITH THE EQU OF SCBOC#DH. SCBEITRA DS X INPUT TRAY # (LP65=NDY,ND50) SCBERESR DS X RESOURCE PRINTER SCBEND65 EQU X'80' LP65 SCBED65R EQU X'40' DIA RECTO FOR LP65 SPECIFIED SCBED65V EQU X'20' DIA VERSO FOR LP65 SPECIFIED SCBERAPA EQU X'10' APA SCBERFOD EQU X'08' FORMDEF SPECIFIED FOR APA SCBERPAD EQU X'04' PAGEDEF SPECIFIEC FOR APA SCBETRCY EQU X'02' TAB-REF-CHAR = YES SCBELIP EQU X'01' LIP-2090 002 * SCBEVBXC DS H USABLE LINES FROM CROSS VFB (HP54=NDX) SCBELIXC DS H CROSS TOTAL LINES#/PAGE (HP54) SCBECX1C DS H CROSS LINES# BEFORE CHANNEL 1 (HP54) SCBECRLX DS CL3 REQUESTED CROSS LOOP FOR HP54 SCBELXIC DS X CROSS LOOP LENGTH IN 1/6 INCH (HP54) SCBETRCD DS H DISPLACEMENT TO TABLE REFERENCE CHAR * [A(SCB) + &P.TRCD] POINTS TO AN AREA * OF (4 * 8) BYTES. SCBETSAV DS F TO (LAST) STRING COUNTER SAVED SCBESSAV DS F SECTION COUNTER SAVED SCBE50FO DS CL8 FORMDEF FOR APA-2050 SCBE50PA DS CL8 PAGEDEF FOR APA-2050 SCBE90FO DS CL8 FORMDEF FOR APA-2090 SCBE90PA DS CL8 PAGEDEF FOR APA-2090 SCBEKPOS DS H KEYPOS OF FILE TO BE PRINTED SCBEFKLN DS X KEYLEN OF FILE TO BE PRINTED SCBELAGX DS X LANGUAGE EXTENSION SCBEARTL EQU X'01' = ARABIC RIGHT TO LEFT SCBEALTR EQU X'02' = ARABIC LEFT TO RIGHT SCBEFRTL EQU X'03' = FARSI RIGHT TO LEFT SCBEFLTR EQU X'04' = FARSI LEFT TO RIGHT
*
SCBEFOND DS H DISPLACEMENT TO FORMAT NAME
SCBETMBS DS C START TIME JOB SPOOLED OUT (SUMMER/WINTER)
SCBETMES DS C END TIME JOB SPOOLED OUT (SUMMER/WINTER)
SCBELOTS DS C LOGOFF TIME (SUMMER/WINTER)
SCBEDOCF DS X DOCUMENT-FORMAT 001
SCBEDCFT EQU X'00' = TEXT
SCBEDCFP EQU X'01' = PAGE-FORMAT
SCBEDCFS EQU X'02' = SPECIAL-FORMAT
*
SCBEUFND DS H DISPLACEMENT TO UFS FILENAME
SCBEUCND DS H DISPLACEMENT TO UFS COPY NAME
SCBECFRM DS CL6 CLIENT FORM FOR EXIT 94
SCBEMLSV DS H MAX LINES OF PRINT REQUEST
SCBEDIFD DS H DISPLACEMENT TO DIA-IN-FORM STRUCTURE 002
SCBESPSD DS H DISPLACEMENT TO SPS PRINT PARAMETER 022
SCBEDPRD DS H DISPLACEMENT TO DPRINT PRINT PARAMETER 022
SCBEFLTD DS H DISPLACEMENT TO FILTER WORK FILE INFORM. 022
SCBEFRMD DS H DISPLACEMENT TO DOCUMENT FORMAT 022
SCBESEND DS F END OF SECTION (# RECORDS) 022
SCBECMXI DS 0XL20 CMX_INFORMATION
SCBECMXH DS F HEADER
SCBECMXN DS CL8 HOST NAME
SCBECMXA DS CL8 APPLICATION
SCBEOHST DS CL8 ORIGINAL HOST NAME
SCBECTSN DS CL4 ORIGINAL TSN
SCBEIHST DS CL8 ICRM HOST NAME
SCBESERV DS CL8 ORIGINAL SERVER NAME
SCBEDHST DS CL8 DESTINATION HOST NAME
SCBEDTSN DS CL4 SERVER TSN
SCBECIFT DS CL4 CATID OF FILE TO BE TRANSFER
SCBECICT DS CL4 CATID OF CONTAINER
SCBERDSB DS CL8 ORIGINAL SCHEDULING BITS FOR RDIR
SCBEVIDS DS H DISPLACEMENT TO PROGRAM NAME AND STRING 021
SCBEAPSC DS H DISPLACEMENT TO SPS SCHEDULING AREA 063
SCBEPCLD DS H DISPLACEMENT TO PCL INFORMATION STRUCTURE 071
SCBEAIDD DS H DISPLACEMENT TO ACCOUNT-ID 073
SCBESDAT DS F SCHEDULING DATE 074
SCBESTIM DS H SCHEDULING TIME 074
ORG SCBESDAT
SCBESCDC DS CL6 DATE AND TIME IN CHAR 074
ORG SCBESDAT
SCBESCDB DS XL6 DATE AND TIME IN HEXA 074
SCBELUID DS H DISPLACEMET TO LONG USER-ID 076
SCBEAPAD DS H APA OVERLAY DISPLACMENT 078
DS H DISPL FOR NEW EXTENSIONS - DON'T TOUCH ! 078
SCBEVARI DS CL728 VARIABLE PART OF THE EXTENSION
SCBEVAR2 DS CL1024 EXTENSION FOR POSIX FILENAME
***********************************************************************
* *
* THE VARIABLE PART MUST BE USED FOR PARAMETERS OF VARIABLE *
* LENGTH, I.E. PLAMLIB ELEMENT NAME, JV NAME, SECTION ID. *
* EACH VARIABLE NAME MUST BE PRECEEDED BY ITS LENGTH (1 BYTE). *
* THE ADDRESS OF THIS FIELD = SCB @ + SCB DISPLACEMENT FIELD. *
* THE DISPLACEMENT FIELDS ARE EITHER IN THE FIXED PART OR IN *
* THE EXTENSION FIXED PART OF THE SCB. *
* FOR EXAMPLE : *
* &P.PLEL DS X LENGTH OF PLAM ELEMENT NAME 930 *
* &P.PLEN DS CL(&P.PLEL) PLAM ELEMENT NAME 930 *
* THE ADDRESS OF &P.PLEL = ADDR(SCB) + SCBOPLED. *
* *
***********************************************************************
SCBESLEN EQU *-SCBESCB
SCBELEN EQU *-SCBETOP
END