         PROC                                                           JBP00010
JBPRE    NAME  0                                                        JBP00020
         DO    0                                                        JBP00030
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  JBP00040
*                                                                    *  JBP00050
*   THE FOLLOWING PROGRAMS ARE THE SOLE PROPERTY OF SPERRY           *  JBP00060
*                                                                    *  JBP00070
* UNIVAC CONTAINING ITS PROPRIETARY, CONFIDENTIAL INFORMATION        *  JBP00080
*                                                                    *  JBP00090
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *  *  JBP00100
         ENDO                                                           JBP00110
         GBL   &JP$$GEN                                                 JBP00120
         DO    '&JP$$GEN'='1'=0                                         JBP00130
&JP$$GEN SET   '1'                                                      JBP00140
*                                                                       JBP00150
*        JOB PREAMBLE                                                   JBP00160
*                                                                       JBP00170
JP$PRE   DS    0F                       BLOCK LABEL                     JBP00180
JP$NAM   DS    2F                       JOB NAME                        JBP00190
*                                                                       JBP00200
*                                  MEM. MANAGEMENT CONTROL BLK (MMCB)   JBP00210
JP$MLO   DC    Y(0)                     AD. OF PREV MEMORY REGION/256   JBP00220
JP$MHI   DC    Y(0)                     AD. OF NEXT MEMORY REGION/256   JBP00230
JP$SIZ   DS    F                        NO. OF BYTES ASSIGNED TO JOB    JBP00240
*                                                                       JBP00250
JP$JOB   DS    F                        LENGTH OF JOB AREA              JBP00260
JP$JSE   DS    F                        LENGTH OF JOB STEP AREA         JBP00270
JP$JSB   DS    F                        ABSOLUTE BASE AD. OF JOB-STEP   JBP00280
JP$EXT   DS    F                        REL. AD. OF EXTENT AREA         JBP00290
*                                                                       JBP00300
JP$ROOT  DS    2F                       NAME OF ROOT PHASE              JBP00310
JP$PHASE DS    2F                       NAME OF LAST PHASE LOADED       JBP00320
JP$LDDAT DS    XL3                      DATE OF LAST ROOT PHASE         JBP00330
JP$SSKEY DS    X                        SECONDARY STORAGE KEY           JBP00340
*                                                                       JBP00350
*                                  ISLAND CODE PARAMS                   JBP00360
JP$ABIC  DS    2F                       ABTERM ISLAND CODE PARAMETERS   JBP00370
JP$OCI   DS    3F                       OC ISLAND CODE PARAMETERS       JBP00380
JP$JCM   DS    CL11                     JOB COMMUNICATION REGION        JBP00390
JP$UPSI  DS    C                        JOB UPSI BYTE                   JBP00400
*                                                                       JBP00410
*                                  JOB ACCOUNTING                       JBP00420
JP$MJT   DS    F                        MAX JOB TIME - MILLISECS.       JBP00430
JP$AJT   DS    F                        ACCUM. JOB TIME - MILLISECS.    JBP00440
JP$ACT   DS    F                        AD. OF JOB ACCT. TABLE          JBP00450
JP$ACTNO DS    CL4                      JOB ACCOUNT NO.                 JBP00460
*                                                                       JBP00470
         DS    0F                  JOB DATES                            JBP00480
JP$DAT   DS    CL14                     PACKED DECIMAL: 0YYMMDD+        JBP00490
JP$DMDB  EQU   JP$DAT+4,4               JULIAN- DISC. BINARY: 0YDD      JBP00500
JP$DMDE  EQU   JP$DAT+8,6               JULIAN- EBCDIC: C' YYDDD'       JBP00510
*                                                                       JBP00520
*                                  SINGLE-COPY-SYMBIONT FLAGS           JBP00530
JP$REQSM DS    X                        "SGL-COPY-SYMB. REQUIRED" BITS  JBP00540
JP$ACTSM DS    X                        "SGL-COPY-SYMB. ACTIVE" BITS    JBP00550
*                                                                       JBP00560
*                                  JOB CONTROL AREA                     JBP00570
JP$OPT   DS    H                        JOB CONTROL OPTIONS             JBP00580
JP$JFLG1 DS    H                        MISCELLANEOUS FLAGS             JBP00590
JP$JFLG  DS    C                        JOB CONTROL FLAGS               JBP00600
JP$JQTID DS    C                        JOB QUEUE TABLE ID: F0=PREMPT,  JBP00610
*                                            F1=HIGH PRI, F2=LOW PRI    JBP00620
JP$JSN   DS    C                        JOB STEP NUMBER                 JBP00630
JP$ROCYL DS    X                        NO. OF CYLS FOR ROLLOUT/JOBDUMP JBP00640
JP$DMPAD DS    F                        RUNLIB ADDR FOR JOBDUMP COPY    JBP00650
*                                           (=JP$JQTID+3 FOR 2.0 GTJOB) JBP00660
JP$JCJID DS    H                        JOB INTERNAL IDENT. NUMBER      JBP00670
JP$SYMID EQU   JP$JCJID,2               SYMBIONT ID (SYMBIONTS ONLY)    JBP00680
JP$CSR   DS    H                        REC. CNT. OF EMBEDDED DATA FILE JBP00690
JP$CSA   DS    F                        AD. OF EMBEDDED DATA            JBP00700
JP$RLD   DS    F                        AD. OF JOB CONTROL DIRECTORY    JBP00710
JP$RPTCT DS    H                        COUNTER FOR REPEATED EXECUTIONS JBP00720
*                                                                       JBP00730
*                                  LOADER SEARCH TABLE                  JBP00740
JP$LLFLG DS    X                        DISP INTO JP$LOD OF LOAD LIB    JBP00750
JP$RLFLG DS    X                        DISP INTO JP$LOD OF RUN LIB     JBP00760
JP$LOD   DS    9F                       3 12-BYTE SLOTS (DSECT DJ$LOD)  JBP00770
JP$LODL  EQU   *-JP$LOD                 LENGTH OF LIB. SEARCH TABLE     JBP00780
*                                                                       JBP00790
*                                  TASKING                              JBP00800
JP$TMAX  DS    H                        MAX. NO. OF TASKS ALLOWED       JBP00810
JP$TNO   DS    H                        NO. OF OUTSTANDING TASKS        JBP00820
JP$HEAD  DS    F                        HEAD OF FREE TCB QUEUE          JBP00830
JP$TAIL  DS    F                        TAIL OF FREE TCB QUEUE          JBP00840
JP$OPNFL DS    F                        OPEN DATA FILE LIST             JBP00850
JP$LTSK  DS    F                        LAST ACTIVE TCB ADDR FOR JOBDMP JBP00860
*                                                                       JBP00870
*                                  JOB TERMINATION                      JBP00880
JP$SYMPB DS    H                        SYMBIONT PUB AD.                JBP00890
JP$CANRI DS    C                        CANCEL RE-ENTRY INDICATOR       JBP00900
JP$AICWT DS    C                        CT OF TASKS AWAITING ABTERM I.C JBP00910
JP$FLAG1 DS    C                        FLAGS                           JBP00920
JP$EOJRI DS    C                        EOJ RE-ENTRY INDICATOR          JBP00930
JP$MCCNT DS    H                        NO OF SETSVC'S DONE FOR IDLEJOB JBP00940
JP$IDLTR DS    C                        SVC OF TRANSIENT DOING IDLEJOB  JBP00950
JP$IDLQ  DS    C                        OUTSTANDING IDLEJOB REQUESTS    JBP00960
JP$CHKPT DS    H                        CHECKPOINT COUNT                JBP00970
*                                  SYMBIONT PUB ALLOCATION TABLE        JBP00980
JP$PBTAB DS    F                        PREAMBLE REL AD. OF PUB ALC TBL JBP00990
JP$PBCNT EQU   JP$PBTAB,1               NO. OF PUBS IN PUB ALLOC TABLE  JBP01000
*                                  GETCS POINTERS                       JBP01010
JP$CSBLK DS    H                        CURRENT GETCS BLOCK NO.         JBP01020
JP$CSSET DS    X                        CURRENT DATA SET NO.            JBP01030
JP$NOROL DS    X                        "CAN'T ROLL-OUT JOB" FLAGS      JBP01040
*                                  MISCELLANEOUS                        JBP01050
JP$RLKCT DS    H                        # OF TCB'S LOCKED DURING RST    JBP01060
JP$BJB   DS    H                        BINARY JOB NUMBER               JBP01070
JP$ROLL  DS    F                        RUNLIB ROLLOUT AREA ADDR        JBP01080
JP$TRNER DS    F                        TRANSIENT ID AND ERROR CODE     JBP01090
         DS    F                        UNUSED                          JBP01100
*                                  SPOOLING                             JBP01110
JP$WTLSC DS    F                        ADDRESS OF WTL SCT              JBP01120
JP$WTLBF DS    F                        ADDRESS OF SPOOL BUFFER POOL    JBP01130
JP$SPBSZ DS    X                        POOL BUFFER SIZE (/256)         JBP01140
JP$SPNOB DS    X                        NUMBER OF POOL BUFFERS          JBP01150
JP$PETLN DS    H                        LENGTH OF PROG. EXTERN TABLE    JBP01160
JP$SCHAD DS    F                        SCHEDULER TCB AD. FOR ROLL-OUT  JBP01170
JP$PET   DS    F                        PROGRAM EXTERN TABLE AD.        JBP01180
         CNOP  0,8                                                      JBP01190
JP$LNGTH EQU   *-JP$PRE                 PREAMBLE LENGTH                 JBP01200
JP$PTCB  EQU   JP$PRE+JP$LNGTH          PRIMARY TCB AD.                 JBP01210
*                                                                       JBP01220
*        PREAMBLE BITS                                                  JBP01230
*                                                                       JBP01240
BJ$ABIC  EQU   (JP$ABIC-JP$PRE)*256+X'80'    AB ISLAND CODE PRESENT     JBP01250
BJ$ABBSY EQU   (JP$ABIC-JP$PRE)*256+X'40'    AB ISLAND CODE BUSY        JBP01260
BJ$ABOUT EQU   (JP$ABIC-JP$PRE)*256+X'20'    AB ISLAND CODE OUTSTD      JBP01270
BJ$OCI   EQU   (JP$OCI-JP$PRE)*256+X'80'     OC ISLAND CODE PRESENT     JBP01280
BJ$OCBSY EQU   (JP$OCI-JP$PRE)*256+X'40'     OC ISLAND CODE BUSY        JBP01290
BJ$OCOUT EQU   (JP$OCI-JP$PRE)*256+X'20'     OC ISLAND CODE OUTSTD      JBP01300
*                                                                       JBP01310
*        PREAMBLE FLAG BITS                                             JBP01320
*                                                                       JBP01330
BJ$STOPD EQU   (JP$FLAG1-JP$PRE)*256+X'01'   STOP DUMP BIT              JBP01340
BJ$DOMCN EQU   (JP$FLAG1-JP$PRE)*256+X'02'   MCON SHOULD MOVE THIS JOB  JBP01345
BJ$JTBSY EQU   (JP$FLAG1-JP$PRE)*256+X'04'   JOB TERMINATION BUSY       JBP01350
BJ$SILOD EQU   (JP$FLAG1-JP$PRE)*256+X'80'   SAYS TCB IN JT$ECB IS      JBP01360
*                                                 WAITING FOR LOADER    JBP01370
*                                                 TO COMPLETE           JBP01380
BJ$SYEND EQU   (JP$FLAG1-JP$PRE)*256+X'40'   "SYMBIONT SHOULD END" FLAG JBP01390
BJ$EMFCK EQU   (JP$FLAG1-JP$PRE)*256+X'20'   EMF "MAYBE ROLLOUT" FLAG   JBP01400
BJ$RLOUT EQU   (JP$FLAG1-JP$PRE)*256+X'10'   "ROLLOUT THIS JOB" FLAG    JBP01410
*                                                                       JBP01420
*        JOB CONTROL OPTION BITS                                        JBP01430
*                                                                       JBP01440
BJ$JCALT EQU   (JP$OPT-JP$PRE)*256+X'80'     ALTER                      JBP01450
BJ$JCREP EQU   (JP$OPT-JP$PRE)*256+X'40'   REPEAT JOB STEP EACH /$-/*   JBP01460
BJ$JCLNK EQU   (JP$OPT-JP$PRE)*256+X'10'   LOAD LINKER AUTO             JBP01480
BJ$JCBOF EQU   (JP$OPT-JP$PRE)*256+X'08'   BOF                          JBP01490
BJ$JCDOF EQU   (JP$OPT-JP$PRE)*256+X'04'   DOF                          JBP01500
BJ$JCXUF EQU   (JP$OPT-JP$PRE)*256+X'02'   XUF                          JBP01510
BJ$JCSIG EQU   (JP$OPT-JP$PRE)*256+X'01'   SIG                          JBP01520
BJ$JCDMP EQU   (JP$OPT+1-JP$PRE)*256+X'40' OPTION DUMP                  JBP01540
BJ$JCLGO EQU   (JP$OPT+1-JP$PRE)*256+X'20' LINKER LOAD PROGRAM AUTO     JBP01550
BJ$JCSYS EQU   (JP$OPT+1-JP$PRE)*256+X'08' OPTION SYSDUMP               JBP01560
BJ$JCJOB EQU   (JP$OPT+1-JP$PRE)*256+X'04' OPTION JOBDUMP               JBP01570
BJ$JCMON EQU   (JP$OPT+1-JP$PRE)*256+X'02' OPTION TRACE                 JBP01580
BJ$JCNOS EQU   (JP$OPT+1-JP$PRE)*256+X'01'   OPTION NOSRCH              JBP01590
*                                                                       JBP01600
*        MISCELLANEOUS FLAG BITS                                        JBP01610
*                                                                       JBP01620
BJ$DIDMC EQU   (JP$JFLG1-JP$PRE)*256+X'80'   JOB MOVED BY MEMCON        JBP01630
BJ$BRECN EQU   (JP$JFLG1-JP$PRE)*256+X'40'   CONSOLE BRKPT IN PROGRESS  JBP01640
BJ$BT0SV EQU   (JP$JFLG1-JP$PRE)*256+X'20'   BKPT-SAVE BIT 0 IN USER R0 JBP01650
BJ$DIDRO EQU   (JP$JFLG1-JP$PRE)*256+X'10'   JOB MOVED BY ROLLOUT/IN    JBP01655
*                                                                       JBP01660
*        "CAN'T ROLL-OUT JOB" BITS                                      JBP01670
*                                                                       JBP01680
BJ$ROFUL EQU   (JP$NOROL-JP$PRE)*256+X'80'   NOT ENOUGH RUNLIB SPACE    JBP01690
BJ$ROLCK EQU   (JP$NOROL-JP$PRE)*256+X'40'   LOCK SET                   JBP01700
*                                                                       JBP01710
*        SPOOLING FLAG BITS                                             JBP01720
*                                                                       JBP01730
BJ$SPLPR EQU   (JP$JFLG1-JP$PRE)*256+X'08'   JOB-STEP HAD SPL PR FILE - JBP01740
*                                                 CALL PR SYMBIONT      JBP01750
BJ$SPLPU EQU   (JP$JFLG1-JP$PRE)*256+X'04'   JOB-STEP HAD SPL PU FILE - JBP01760
*                                                 CALL PU SYMBIONT      JBP01770
BJ$SPLRB EQU   (JP$JFLG1-JP$PRE)*256+X'02'   JOB HAD SPL REMOTE FILE -  JBP01780
*                                                 CALL RBP SYMBIONT     JBP01790
BJ$WLBST EQU   (JP$JFLG1-JP$PRE)*256+X'01'   WTL BUFFERS INITIALIZED    JBP01800
*                                                                       JBP01810
*        JOB CONTROL FLAG BITS                                          JBP01820
*                                                                       JBP01830
BJ$JCWKF EQU   (JP$JFLG-JP$PRE)*256+X'08'    WORK FILES ALLOC FOR STEP  JBP01840
BJ$JCEND EQU   (JP$JFLG-JP$PRE)*256+X'04'    LAST JOB STEP IN JOB       JBP01850
BJ$JCSTP EQU   (JP$JFLG-JP$PRE)*256+X'02'  STOP COMMAND FROM CONSOLE    JBP01860
BJ$JCABT EQU   (JP$JFLG-JP$PRE)*256+X'01'    JOB HAS ABNRMLLY TERMNATED JBP01870
BJ$JCERT EQU   (JP$JFLG-JP$PRE)*256+X'80'    JOB TERMNATED BY JOB CNTRL JBP01880
BJ$JCACT EQU   (JP$JFLG-JP$PRE)*256+X'40' SKIP JOB ACCT WHEN SKIP STEP  JBP01885
BJ$JCRES EQU   (JP$JFLG-JP$PRE)*256+X'20'    RESTART FLAG               JBP01890
BJ$JCSKP EQU   (JP$JFLG-JP$PRE)*256+X'10'    SKIP MODE                  JBP01900
*                                                                       JBP01910
*        SINGLE-COPY-SYMBIONT BITS                                      JBP01920
*                                                                       JBP01930
BJ$SFTIC EQU   (JP$REQSM-JP$PRE)*256+X'80'   JOB NEEDS ICAM             JBP01940
BJ$SFTMO EQU   (JP$REQSM-JP$PRE)*256+X'40'   JOB NEEDS MONITOR          JBP01950
BJ$SFTDB EQU   (JP$REQSM-JP$PRE)*256+X'20'   JOB NEEDS DBS              JBP01960
BJ$SFTTE EQU   (JP$REQSM-JP$PRE)*256+X'10'   JOB NEEDS TEST SYMB        JBP01970
*                                                                       JBP01980
BJ$ACTIC EQU   (JP$ACTSM-JP$PRE)*256+X'80'   ICAM ACTIVE FOR JOB        JBP01990
BJ$ACTMO EQU   (JP$ACTSM-JP$PRE)*256+X'40'   MONITOR ACTIVE FOR JOB     JBP02000
BJ$ACTDB EQU   (JP$ACTSM-JP$PRE)*256+X'20'   DBS ACTIVE FOR JOB         JBP02010
BJ$ACTTE EQU   (JP$ACTSM-JP$PRE)*256+X'10'   TEST SYMB ACTIVE FOR JOB   JBP02020
*                                                                       JBP02030
*        OUTSTANDING IDLEJOB REQUEST BITS                               JBP02040
*                                                                       JBP02050
BJ$IDLMC EQU   (JP$IDLQ-JP$PRE)*256+X'80'    MEMCON WANTS TO IDLEJOB    JBP02060
BJ$IDLCP EQU   (JP$IDLQ-JP$PRE)*256+X'40'    CHKPT WANTS TO IDLEJOB     JBP02070
BJ$IDLRO EQU   (JP$IDLQ-JP$PRE)*256+X'20'    ROLL-OUT WANTS TO IDLEJOB  JBP02080
*                                                                       JBP02100
*                                                                       JBP02110
         ENDO                                                           JBP02120
         END                                                            JBP02130
