Library Member Format: MODIFY

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.enquire +++|          IDENT  ENQUIRE,STR,ENQUIRE
00002  M00S00002.enquire +++|          ABS
00003  M00S00003.enquire +++|          SST
00004  M00S00004.enquire +++|          SYSCOM B1
00005  M00S00005.enquire +++|          ENTRY  ENQUIRE
00006  M00S00006.enquire +++|          ENTRY  LENGTH
00007  M00S00007.enquire +++|          ENTRY  STATUS

Seq #  *Modification Id* Act 
----------------------------+
00008  M01S00008.enqui12 ---|          ENTRY  SUMMARY
00009  M00S00009.enquire +++|          ENTRY  RFL=
00010  M00S00010.enquire +++|          ENTRY  SSJ=
00011  M00S00011.enquire +++|          ENTRY  SSM=
00012  M00S00012.enquire +++|          TITLE  ENQUIRE - ENQUIRE PROCESSOR.
00013  M00S00013.enquire +++|          SPACE  4,10
00014  M00S00014.enquire +++|*COMMENT  ENQUIRE - ENQUIRE ABOUT JOB STATUS.

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00015.ns22000 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1974.

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00001.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORP. 1982.

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00018  M00S00016.enquire +++|          SPACE  4,10
00019  M00S00017.enquire +++|****      ENQUIRE - PROVIDE JOB STATUS.
00020  M00S00018.enquire +++|*         L. CLINTON         74/01/23.
00021  M00S00019.enquire +++|*         D. D. SADLER       75/02/18.
00022  M00S00020.enquire +++|          SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
00023  M01S00021.v23l617 ---|***       CONTROL STATEMENT CALLS.

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00001.v23l617 +++|***       COMMAND FORMATS.
00025  M00S00022.enquire +++|*
00026  M00S00023.enquire +++|*         ENQUIRE(O=LFN1,FN=LFN2,OP=X)
00027  M00S00024.enquire +++|*         ENQUIRE(JSN=AAAA,O=LFN1)
00028  M00S00025.enquire +++|*         ENQUIRE(JSN,O=LFN1)
00029  M00S00026.enquire +++|*         ENQUIRE(UJN=BBBBBBB,O=LFN1)
00030  M00S00027.enquire +++|*         ENQUIRE(UJN,O=LFN1)
00031  M00S00028.enquire +++|*         ENQUIRE.  -  SAME AS ENQUIRE(OP=A).
00032  M00S00029.enquire +++|*
00033  M00S00030.enquire +++|*         LENGTH(LFN2)  -  SAME AS ENQUIRE(FN=LFN2).
00034  M00S00031.enquire +++|*
00035  M00S00032.enquire +++|*         STATUS(...)  -  SAME AS ENQUIRE(...).
00036  M00S00033.enquire +++|*         STATUS.  -  SAME AS ENQUIRE.

Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00034.enqui12 ---|*
00038  M01S00035.enqui12 ---|*         SUMMARY(O=LFN1,FN=LFN2,OP=X).
00039  M01S00036.enqui12 ---|*         SUMMARY.  -  SAME AS ENQUIRE(OP=R).
00040  M00S00037.enquire +++|*
00041  M00S00038.enquire +++|*         PARAMETERS ARE ORDER-INDEPENDENT, AND ABSENCE OF
00042  M00S00039.enquire +++|*         A KEYWORD IMPLIES *OP*.
00043  M00S00040.enquire +++|*
00044  M00S00041.enquire +++|*         LFN1 = OUTPUT FILE NAME. DEFAULT IS *OUTPUT*.
00045  M00S00042.enquire +++|*
00046  M00S00043.enquire +++|*         LFN2 = USER-S FILE NAME TO SEARCH FOR.
00047  M00S00044.enquire +++|*
00048  M00S00045.enquire +++|*         AAAA = JOB SEQUENCE NUMBER (JSN) TO SEARCH FOR.
00049  M00S00046.enquire +++|*
00050  M00S00047.enquire +++|*         BBBBBBB = USER JOB NAME (UJN) TO SEARCH FOR.
00051  M00S00048.enquire +++|*
00052  M00S00049.enquire +++|*         FOR THE *FN*, *JSN*, AND *UJN* PARAMETERS, WHEN THE
00053  M00S00050.enquire +++|*         SPECIFIED FILE OR JOB IS NOT FOUND, AN INFORMATIVE
00054  M00S00051.enquire +++|*         MESSAGE IS WRITTEN TO THE OUTPUT FILE IF IT IS
00055  M00S00052.enquire +++|*         ASSIGNED TO A TERMINAL.  OTHERWISE THE MESSAGE IS
00056  M00S00053.enquire +++|*         WRITTEN TO THE USER-S DAYFILE.
00057  M00S00054.enquire +++|*
00058  M00S00055.enquire +++|*         X = STRING OF CONCATENATED OPTION LETTERS SPECIFYING OPTIONS
00059  M00S00056.enquire +++|*             TO BE EXECUTED.  THE MAXIMUM NUMBER OF LETTERS IN THE
00060  M00S00057.enquire +++|*             STRING IS 7.  ENQUIRY INFORMATION IS RETURNED TO THE
00061  M00S00058.enquire +++|*             OUTPUT FILE.
00062  M00S00059.enquire +++|*
00063  M00S00060.enquire +++|*         THE POSSIBLE OPTION LETTERS ARE-
00064  M00S00061.enquire +++|*         A = SELECTION OF ALL OPTIONS.
00065  M00S00062.enquire +++|*         B = ENQUIRY INFORMATION GIVES USER IDENTIFICATION
00066  M00S00063.enquire +++|*             AND HIS PRIORITIES.
00067  M00S00064.enquire +++|*         D = ENQUIRY INFORMATION GIVES RESOURCE DEMAND AND
00068  M00S00065.enquire +++|*             ASSIGNED COUNTS.
00069  M00S00066.enquire +++|*         F = ENQUIRY INFORMATION IS IN SAME FORMAT AS THAT GIVEN
00070  M00S00067.enquire +++|*             BY *FN* PARAMETER, BUT FOR ALL USER-S WORKING FILES.
00071  M00S00068.enquire +++|*             NOTE - LENGTH VALUE DISPLAYED FOR EACH FILE
00072  M00S00069.enquire +++|*             IS RELEVANT ONLY FOR MASS STORAGE FILES.
00073  M00S00070.enquire +++|*         J = ENQUIRY INFORMATION GIVES CONTENTS OF USER-S
00074  M00S00071.enquire +++|*             CONTROL REGISTERS AND ERROR FLAG REGISTER.
00075  M00S00072.enquire +++|*         L = ENQUIRY INFORMATION GIVES LOADER INFORMATION,
00076  M00S00073.enquire +++|*             AND CONSISTS OF USER-S MAP OPTIONS AND GLOBAL
00077  M00S00074.enquire +++|*             LIBRARY SET.
00078  M00S00075.enquire +++|*         R = ENQUIRY INFORMATION GIVES AMOUNT OF RESOURCES
00079  M00S00076.enquire +++|*             USER HAS USED.
00080  M00S00077.enquire +++|*         S = ENQUIRY INFORMATION GIVES USER-S CURRENT SRU VALUE.
00081  M00S00078.enquire +++|*         T = ENQUIRY INFORMATION GIVES USER-S CURRENT CP TIME VALUE.
00082  M00S00079.enquire +++|*         U = ENQUIRY INFORMATION GIVES RESOURCE USAGE ALLOWED
00083  M00S00080.enquire +++|*             USER, AND CONSISTS OF NUMBER OF DAYFILE MESSAGES,
00084  M00S00081.enquire +++|*             JOB STEP TIME AND SRU LIMITS, ACCOUNT BLOCK SRU LIMIT,

Seq #  *Modification Id* Act 
----------------------------+
00085  M01S00082.v23l617 ---|*             CONTROL STATEMENTS, DISPOSED FILES, AND MASS STORAGE

Seq #  *Modification Id* Act 
----------------------------+
00086  M01S00002.v23l617 +++|*             COMMANDS, DISPOSED FILES, AND MASS STORAGE
00087  M00S00083.enquire +++|*             SPACE ALLOWED.
00088  M00S00084.enquire +++|          SPACE  4,10
00089  M00S00085.enquire +++|***       DAYFILE MESSAGES.
00090  M00S00086.enquire +++|*
00091  M00S00087.enquire +++|*         * ARGUMENT ERRORS.* = *ENQUIRE* CALL WAS NOT VALID.
00092  M00S00088.enquire +++|*

Seq #  *Modification Id* Act 
----------------------------+
00093  M01S00089.enqui12 ---|*         * DROPPING SUPPORT OF SUMMARY, USE ENQUIRE.* = *SUMMARY*
00094  M01S00090.enqui12 ---|*         WILL BE REMOVED IN A FUTURE RELEASE.  *ENQUIRE* SHOULD BE
00095  M01S00091.enqui12 ---|*         USED INSTEAD.
00096  M01S00092.enqui12 ---|*
00097  M00S00093.enquire +++|*         * ENQUIRE ABORTED.* = *ENQUIRE* HAS BEEN ABORTED AS A RESULT
00098  M00S00094.enquire +++|*         OF A SYSTEM ERROR.
00099  M00S00095.enquire +++|*
00100  M00S00096.enquire +++|*         * ENQUIRY COMPLETE.* = INFORMATIVE MESSAGE INDICATING THAT
00101  M00S00097.enquire +++|*         THE ENQUIRY HAS COMPLETED.
00102  M00S00098.enquire +++|*
00103  M00S00099.enquire +++|*         * FILE NOT FOUND.* = REQUESTED FILE COULD NOT BE FOUND.
00104  M00S00100.enquire +++|*

Seq #  *Modification Id* Act 
----------------------------+
00105  M01S00101.v23l617 ---|*         * INVALID OPTION  X.* = OPTION *X* IS NOT DEFINED IN

Seq #  *Modification Id* Act 
----------------------------+
00106  M01S00003.v23l617 +++|*         * INCORRECT OPTION  X.* = OPTION *X* IS NOT DEFINED IN
00107  M00S00102.enquire +++|*         *ENQUIRE*.
00108  M00S00103.enquire +++|*

Seq #  *Modification Id* Act 
----------------------------+
00109  M01S00104.v23l617 ---|*         * INVALID QUEUE TYPE.* = *ENQUIRE* WAS ABORTED DUE TO AN
00110  M01S00105.v23l617 ---|*         INVALID QUEUE TYPE ERROR CODE RETURNED BY *QAC* ON A

Seq #  *Modification Id* Act 
----------------------------+
00111  M01S00004.v23l617 +++|*         * INCORRECT QUEUE TYPE.* = *ENQUIRE* WAS ABORTED DUE TO AN
00112  M01S00005.v23l617 +++|*         INCORRECT QUEUE TYPE ERROR CODE RETURNED BY *QAC* ON A
00113  M00S00106.enquire +++|*         PEEK REQUEST.
00114  M00S00107.enquire +++|*
00115  M00S00108.enquire +++|*         * NO JOBS FOUND.* = NO JOBS WERE FOUND FOR THE USER.
00116  M00S00109.enquire +++|*
00117  M00S00110.enquire +++|*         * NNNNNNN NOT FOUND.* = THE SPECIFIED JSN (JSN=NNNN)
00118  M00S00111.enquire +++|*         OR UJN (UJN=NNNNNNN) WAS NOT FOUND.
00119  M00S00112.enquire +++|*
00120  M00S00113.enquire +++|*         * QAC ERROR ENCOUNTERED.* = *ENQUIRE* WAS ABORTED DUE TO AN
00121  M00S00114.enquire +++|*         UNEXPECTED ERROR CODE RETURNED BY *QAC*.
00122  M00S00115.enquire +++|          SPACE  4,10
00123  M00S00116.enquire +++|**        COMMON DECKS.
00124  M00S00117.enquire +++|
00125  M00S00118.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00126  M01S00119.enqui9  ---|*CALL COMCMAC

Seq #  *Modification Id* Act 
----------------------------+
00127  M01S00002.ns22000 +++|*CALL     COMCCMD

Seq #  *Modification Id* Act 
----------------------------+
00128  M01S00120.enqui9  ---|*CALL COMSEJT
00129  M01S00121.enqui9  ---|*CALL COMSJIO

Seq #  *Modification Id* Act 
----------------------------+
00130  M01S00001.enqui9  +++|*CALL     COMCMAC
00131  M01S00002.enqui9  +++|*CALL     COMSEJT
00132  M01S00003.enqui9  +++|*CALL     COMSJIO
00133  M00S00122.enquire +++|*CALL     COMSLFD

Seq #  *Modification Id* Act 
----------------------------+
00134  M01S00003.ns22000 +++|*CALL     COMSMLS

Seq #  *Modification Id* Act 
----------------------------+
00135  M01S00123.enqui9  ---|*CALL COMSQAC

Seq #  *Modification Id* Act 
----------------------------+
00136  M01S00004.ns22000 +++|*CALL     COMSPFM

Seq #  *Modification Id* Act 
----------------------------+
00137  M01S00124.enqui9  ---|*CALL COMSREM

Seq #  *Modification Id* Act 
----------------------------+
00138  M01S00004.enqui9  +++|*CALL     COMSQAC
00139  M01S00005.enqui9  +++|*CALL     COMSREM

Seq #  *Modification Id* Act 
----------------------------+
00140  M01S00001.ns21000 +++|*CALL     COMSRSX

Seq #  *Modification Id* Act 
----------------------------+
00141  M01S00005.ns22000 +++|*CALL     COMSSCD
00142  M01S00006.ns22000 +++|*CALL     COMSSFM

Seq #  *Modification Id* Act 
----------------------------+
00143  M01S00125.enqui9  ---|*CALL COMSSSJ

Seq #  *Modification Id* Act 
----------------------------+
00144  M01S00006.enqui9  +++|*CALL     COMSSSJ
00145  M00S00126.enquire +++|          TITLE  MACRO DEFINITION.
00146  M00S00127.enquire +++|          SPACE  4,15
00147  M00S00128.enquire +++|**        INDEX - INDEX TABLE ENTRY GENERATION.
00148  M00S00129.enquire +++|*
00149  M00S00130.enquire +++|*         INDEX GENERATES TABLES WHICH ARE TO BE INDEXED BY VALUES
00150  M00S00131.enquire +++|*         WHICH MAY CHANGE DUE TO ASSEMBLY MODES OR OPTIONS.
00151  M00S00132.enquire +++|*
00152  M00S00133.enquire +++|*         INDEX  NAME,IND,ADD
00153  M00S00134.enquire +++|*
00154  M00S00135.enquire +++|*         ENTRY  *NAME* = NAME OF TABLE ENTRY.
00155  M00S00136.enquire +++|*                *IND* = INDEX AT WHICH ENTRY IS TO BE PLACED.
00156  M00S00137.enquire +++|*                *ADD* = ADDRESS FIELD OF ENTRY GENERATION INSTRUCTION.
00157  M00S00138.enquire +++|
00158  M00S00139.enquire +++|
00159  M00S00140.enquire +++|          PURGMAC  INDEX
00160  M00S00141.enquire +++|
00161  M00S00142.enquire +++|          MACRO  INDEX,NAME,IND,ADD
00162  M00S00143.enquire +++|          IFC    NE,*NAME**
00163  M00S00144.enquire +++| NAME     CON    0
00164  M00S00145.enquire +++| .1       SET    NAME
00165  M00S00146.enquire +++|          BSSZ   IND-1
00166  M00S00147.enquire +++|          ELSE
00167  M00S00148.enquire +++|          ORG    .1+IND
00168  M00S00149.enquire +++|          IFC    NE,*ADD**,2
00169  M00S00150.enquire +++|          LOC    IND
00170  M00S00151.enquire +++|          CON    ADD
00171  M00S00152.enquire +++|          BSS    0
00172  M00S00153.enquire +++|          ENDIF
00173  M00S00154.enquire +++| INDEX    ENDM
00174  M00S00155.enquire +++|          SPACE  4,10
00175  M00S00156.enquire +++|**        LDEF - LINE DEFINITION ENTRY GENERATION.
00176  M00S00157.enquire +++|*
00177  M00S00158.enquire +++|*         LDEF   WO,CL
00178  M00S00159.enquire +++|*
00179  M00S00160.enquire +++|*         ENTRY  WO = WORD OFFSET INTO STRING BUFFER.
00180  M00S00161.enquire +++|*                CL = NUMBER OF CHARACTERS TO ENTER INTO STRING BUFFER.
00181  M00S00162.enquire +++|*
00182  M00S00163.enquire +++|*T        24/0, 18/WO, 18/CL

Figure

00183  M00S00164.enquire +++|
00184  M00S00165.enquire +++|
00185  M00S00166.enquire +++|          PURGMAC  LDEF
00186  M00S00167.enquire +++|
00187  M00S00168.enquire +++| LDEF     MACRO  WO,CL
00188  M00S00169.enquire +++|          VFD    24/0,18/WO,18/CL
00189  M00S00170.enquire +++| LDEF     ENDM
00190  M00S00171.enquire +++|          SPACE  4,10
00191  M00S00172.enquire +++|**        TABLE - GENERATE TABLE ENTRY.
00192  M00S00173.enquire +++|*
00193  M00S00174.enquire +++|*         TABLE  A,B
00194  M00S00175.enquire +++|*
00195  M00S00176.enquire +++|*         ENTRY  A = NUMERIC VALUE.
00196  M00S00177.enquire +++|*                B = NUMERIC VALUE.
00197  M00S00178.enquire +++|*
00198  M00S00179.enquire +++|*T        18/A, 24/0, 18/B

Figure

00199  M00S00180.enquire +++|
00200  M00S00181.enquire +++|
00201  M00S00182.enquire +++|          PURGMAC  TABLE
00202  M00S00183.enquire +++|
00203  M00S00184.enquire +++| TABLE    MACRO  A,B
00204  M00S00185.enquire +++|          VFD    18/A,24/0,18/B
00205  M00S00186.enquire +++| TABLE    ENDM
00206  M00S00187.enquire +++|          TITLE  PROGRAM CONSTANTS.
00207  M00S00188.enquire +++|          SPACE  4,10
00208  M00S00189.enquire +++|**        PROGRAM CONSTANTS.
00209  M00S00190.enquire +++|
00210  M00S00191.enquire +++|
00211  M00S00192.enquire +++|          ORG    110B
00212  M00S00193.enquire +++| STR      BSS    0
00213  M00S00194.enquire +++|
00214  M00S00195.enquire +++|*         SSJ CONTROL.
00215  M00S00196.enquire +++|
00216  M00S00197.enquire +++| SSJ=     EQU    SSJD        SSJ= PRIVILEGES ONLY AND DROP FILES
00217  M00S00198.enquire +++|
00218  M00S00199.enquire +++|*         BUFFER PARAMETERS.
00219  M00S00200.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00220  M01S00201.v23l617 ---| FBUFL    EQU    1+2*64+1    *GETFNT*/CONTROL STATEMENT BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00006.enqui15 ---| FBUFL    EQU    1+2*64+1    *GETFNT*/COMMAND BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00222  M01S00001.enqui15 +++| FBUFL    EQU    1+2*MXLF+1  *GETFNT*/COMMAND BUFFER LENGTH
00223  M00S00202.enquire +++| OBUFL    EQU    201B        OUTPUT BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00224  M01S00203.ns22000 ---| EBUFL    EQU    101B
00225  M01S00204.ns22000 ---| MBUFL    EQU    25          MST BUFFER AND LIBRARY BUFFER

Seq #  *Modification Id* Act 
----------------------------+
00226  M01S00007.ns22000 +++| LBUFL    EQU    25          LIBRARY BUFFER LENGTH
00227  M00S00205.enquire +++| RBUFL    EQU    300B        REPLY BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00228  M01S00206.enqui6  ---| USBBL    EQU    80          UNPACK STRING BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00229  M01S00001.enqui6  +++| USBBL    EQU    92          UNPACK STRING BUFFER LENGTH
00230  M00S00207.enquire +++| USBL$    EQU    1           VARIABLE LENGTH OPTION FOR UNPACK BUFFER
00231  M00S00208.enquire +++| WBUFL    EQU    10B         WORKING BUFFER LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00232  M01S00209.v23l617 ---| NCST     EQU    10B         CONTROL STATEMENT COUNT

Seq #  *Modification Id* Act 
----------------------------+
00233  M01S00007.v23l617 +++| NCST     EQU    10B         COMMAND COUNT
00234  M00S00210.enquire +++| NUMQ     EQU    6           NUMBER OF QUEUE TYPES
00235  M00S00211.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00236  M01S00212.ns22000 ---| TBUFL    MAX    MBUFL,RBUFL,WBUFL

Seq #  *Modification Id* Act 
----------------------------+
00237  M01S00008.ns22000 +++| TBUFL    MAX    LBUFL,RBUFL,WBUFL  SCRATCH BUFFER LENGTH
00238  M00S00213.enquire +++|
00239  M00S00214.enquire +++|*         PRINTER CONTROL CHARACTERS.
00240  M00S00215.enquire +++|
00241  M00S00216.enquire +++| PAGE     DATA   1L1         PAGE EJECT
00242  M00S00217.enquire +++| TRPL     DATA   1L-         TRIPLE SPACE
00243  M00S00218.enquire +++|          SPACE  4,10
00244  M00S00219.enquire +++|*         STATUS MESSAGES.
00245  M00S00220.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00246  M01S00221.ns22000 ---| INQM     DATA   L*INPUT QUEUE        *
00247  M01S00222.ns22000 ---| PRQM     DATA   L*PRINT QUEUE        *
00248  M01S00223.ns22000 ---| PHQM     DATA   L*PUNCH QUEUE        *
00249  M01S00224.ns22000 ---| PLQM     DATA   L*PLOT  QUEUE        *
00250  M01S00225.ns22000 ---| WTQM     DATA   L*WAIT QUEUE         *
00251  M01S00226.ns22000 ---| PRSM     DATA   L*ROLLED             *
00252  M01S00227.ns22000 ---| EXSM     DATA   L*EXECUTING          *
00253  M01S00228.ns22000 ---| ROSM     DATA   L*ROLLED             *
00254  M01S00229.ns22000 ---| SISM     DATA   L*SCP ROLLIN         *
00255  M01S00230.ns22000 ---| SOSM     DATA   L*SCP ROLLOUT        *
00256  M01S00231.ns22000 ---| TOSM     DATA   L*TIMED/EVENT ROLLOUT*
00257  M01S00232.ns22000 ---| IOSM     DATA   L*ROLLED             *
00258  M01S00233.ns22000 ---| DOSM     DATA   L*IDLE               *
00259  M01S00234.ns22000 ---| SUSM     DATA   L*SUSPENDED          *
00260  M01S00235.ns22000 ---| ERSM     DATA   L*ROLLOUT I/O ERROR  *

Seq #  *Modification Id* Act 
----------------------------+
00261  M01S00009.ns22000 +++| INQM     DATA   L*INPUT QUEUE  *
00262  M01S00010.ns22000 +++| PRQM     DATA   L*PRINT QUEUE  *
00263  M01S00011.ns22000 +++| PHQM     DATA   L*PUNCH QUEUE  *
00264  M01S00012.ns22000 +++| PLQM     DATA   L*PLOT QUEUE   *
00265  M01S00013.ns22000 +++| WTQM     DATA   L*WAIT QUEUE   *
00266  M01S00014.ns22000 +++| PRSM     DATA   L*ROLLED       *
00267  M01S00015.ns22000 +++| EXSM     DATA   L*EXECUTING    *
00268  M01S00016.ns22000 +++| ROSM     DATA   L*ROLLED       *
00269  M01S00017.ns22000 +++| SISM     DATA   L*SCP ROLLIN   *
00270  M01S00018.ns22000 +++| SOSM     DATA   L*SCP ROLLOUT  *
00271  M01S00019.ns22000 +++| TOSM     DATA   L*T/E ROLLOUT  *
00272  M01S00020.ns22000 +++| IOSM     DATA   L*ROLLED       *
00273  M01S00021.ns22000 +++| DOSM     DATA   L*IDLE         *

Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00022.enqui14 ---| SUSM     DATA   L*SUSPENDED    *

Seq #  *Modification Id* Act 
----------------------------+
00275  M01S00001.enqui14 +++| SUSM     DATA   L*SUSP  XXX MIN*

Seq #  *Modification Id* Act 
----------------------------+
00276  M01S00001.271l716 +++| PCSM     DATA   L*PCP ROLLOUT  *

Seq #  *Modification Id* Act 
----------------------------+
00277  M01S00023.ns22000 +++| ERSM     DATA   L*ROLLOUT ERROR*

Seq #  *Modification Id* Act 
----------------------------+
00278  M01S00001.ns2395  +++| SWSM     DATA   L*SERVICE WAIT *
00279  M00S00236.enquire +++|          SPACE  4,10
00280  M00S00237.enquire +++|*         ERROR MESSAGES.
00281  M00S00238.enquire +++|
00282  M00S00239.enquire +++| EMSA     DATA   L* ENQUIRE ABORTED.*

Seq #  *Modification Id* Act 
----------------------------+
00283  M01S00240.v23l617 ---| EMSB     DATA   L* INVALID QUEUE TYPE. *

Seq #  *Modification Id* Act 
----------------------------+
00284  M01S00008.v23l617 +++| EMSB     DATA   L* INCORRECT QUEUE TYPE. *
00285  M00S00241.enquire +++| EMSC     DATA   L* NO JOBS FOUND.*
00286  M00S00242.enquire +++| EMSD     DATA   L*         NOT FOUND.  *
00287  M00S00243.enquire +++| EMSE     DATA   L* QAC ERROR ENCOUNTERED.*
00288  M00S00244.enquire +++| EMSF     DATA   L* ENQUIRY COMPLETE.*

Seq #  *Modification Id* Act 
----------------------------+
00289  M01S00245.enqui12 ---| EMSG     DATA   L* DROPPING SUPPORT OF SUMMARY, USE ENQUIRE.*
00290  M00S00246.enquire +++| FETS     SPACE  4,10
00291  M00S00247.enquire +++|*         FETS.
00292  M00S00248.enquire +++|
00293  M00S00249.enquire +++| O        BSS    0
00294  M00S00250.enquire +++| OUTPUT   FILEB  OBUF,OBUFL,FET=9   OUTPUT

Seq #  *Modification Id* Act 
----------------------------+
00295  M01S00024.ns22000 +++|
00296  M00S00251.enquire +++| F        BSS    0

Seq #  *Modification Id* Act 
----------------------------+
00297  M01S00252.v23l617 ---| FILEFET  RFILEB FBUF,FBUFL,FET=9  *GETFNT*/CONTROL STATEMENT FILE

Seq #  *Modification Id* Act 
----------------------------+
00298  M01S00009.v23l617 +++| FILEFET  RFILEB FBUF,FBUFL,FET=9  *GETFNT*/COMMAND FILE
00299  M00S00253.enquire +++|          SPACE  4,10
00300  M00S00254.enquire +++|**        *QAC* PARAMETER BLOCK.
00301  M00S00255.enquire +++|
00302  M00S00256.enquire +++| BQAC     VFD    50/0,9/PKFC,1/0   REQUEST PREFIX PORTION
00303  M00S00257.enquire +++|          VFD    36/0,6/11,18/RBUF
00304  M00S00258.enquire +++|          VFD    42/0,18/RBUF
00305  M00S00259.enquire +++|          VFD    42/0,18/RBUF
00306  M00S00260.enquire +++|          VFD    42/0,18/RBUF+RBUFL
00307  M00S00261.enquire +++| BQSC     VFD    60/0              SELECTION CRITERIA PORTION
00308  M00S00262.enquire +++|          VFD    60/0

Seq #  *Modification Id* Act 
----------------------------+
00309  M01S00263.ns2564  ---|          VFD    24/0,36/ZPSF

Seq #  *Modification Id* Act 
----------------------------+
00310  M01S00001.ns2564  +++|          VFD    24/0,24/DLSF,12/ZPSF
00311  M00S00264.enquire +++|          VFD    12/77B,48/0

Seq #  *Modification Id* Act 
----------------------------+
00312  M01S00265.ns2564  ---|          VFD    60/0

Seq #  *Modification Id* Act 
----------------------------+
00313  M01S00002.ns2564  +++|          VFD    18/0,18/3R***,24/0
00314  M00S00266.enquire +++|          VFD    60/0
00315  M00S00267.enquire +++|          VFD    60/0
00316  M00S00268.enquire +++| BQPF     VFD    60/-0             PEEK FUNCTION PORTION
00317  M00S00269.enquire +++|          VFD    12/-0,48/0
00318  M00S00270.enquire +++|          VFD    60/0
00319  M00S00271.enquire +++|          VFD    60/0
00320  M00S00272.enquire +++|
00321  M00S00273.enquire +++|*         PEEK INFORMATION BITS.
00322  M00S00274.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00323  M01S00275.ns21000 ---| PIUJ     CON    0161006B    UJN PARAMETER
00324  M01S00276.ns21000 ---| PIJS     CON    0020006B    JSN PARAMETER
00325  M01S00277.ns21000 ---| PIEJ     CON    3771056B    EQUIVALENCED JSN PARAMETER

Seq #  *Modification Id* Act 
----------------------------+
00326  M02S00002.ns22000 ---| PIUJ     CON    4161006B    UJN PARAMETERS
00327  M02S00003.ns22000 ---| PIJS     CON    4020006B    JSN PARAMETERS
00328  M02S00004.ns22000 ---| PIEJ     CON    7771056B    EQUIVALENCED JSN PARAMETERS

Seq #  *Modification Id* Act 
----------------------------+
00329  M01S00025.ns22000 +++| PIUJ     BSS    0           UJN PARAMETERS
00330  M01S00026.ns22000 +++|          VFD    36/0
00331  M01S00027.ns22000 +++|          VFD    12/LDPB+M2PB+M1PB+ESPB
00332  M01S00028.ns22000 +++|          VFD    12/UJPB+FUPB+OTPB+JSPB
00333  M01S00029.ns22000 +++| PIJS     BSS    0           JSN PARAMETERS
00334  M01S00030.ns22000 +++|          VFD    36/0
00335  M01S00031.ns22000 +++|          VFD    12/LDPB+ESPB
00336  M01S00032.ns22000 +++|          VFD    12/FUPB+OTPB+JSPB
00337  M01S00033.ns22000 +++| PIEJ     BSS    0           EQUIVALENCED JSN PARAMETERS
00338  M01S00034.ns22000 +++|          VFD    24/0
00339  M01S00035.ns22000 +++|          VFD    12/ALPB
00340  M01S00036.ns22000 +++|          VFD    12/LDPB+CSPB+DYPB+ASPB+SLPB+M2PB+M1PB+ESPB+FLPB
00341  M01S00037.ns22000 +++|          VFD    12/UJPB+FUPB+UNPB+PRPB+OTPB+JSPB
00342  M00S00278.enquire +++|          SPACE  4,10
00343  M00S00279.enquire +++|**        RSB CONTROL WORDS.
00344  M00S00280.enquire +++|
00345  M00S00281.enquire +++|
00346  M00S00282.enquire +++|*         CALL BLOCK TO READ CONTROL POINT AREA.
00347  M00S00283.enquire +++|
00348  M00S00284.enquire +++| STAT1    VFD    12/0,12/100B,18/0,18/BUFF
00349  M00S00285.enquire +++|          VFD    24/0,18/1,18/0
00350  M00S00286.enquire +++|
00351  M00S00287.enquire +++| STAT2    VFD    12/0,12/100B,18/0,18/BUFF+100B
00352  M00S00288.enquire +++|          VFD    24/0,18/1,18/100B

Seq #  *Modification Id* Act 
----------------------------+
00353  M01S00289.ns22000 ---|
00354  M01S00290.ns22000 ---|*         CALL TO READ EST ENTRIES.
00355  M01S00291.ns22000 ---|
00356  M01S00292.ns22000 ---| ESTPR    VFD    12/0,12/0,18/0,18/EBUF
00357  M01S00293.ns22000 ---|          CON    -0
00358  M01S00294.ns22000 ---|
00359  M01S00295.ns22000 ---|*         CALL TO READ MST.
00360  M01S00296.ns22000 ---|
00361  M01S00297.ns22000 ---| MSTA     VFD    12/0,12/20B,18/0,18/MBUF
00362  M01S00298.ns22000 ---|          CON    -0
00363  M00S00299.enquire +++|          SPACE  4,10
00364  M00S00300.enquire +++|**        MISCELLANEOUS CONTROL WORDS.
00365  M00S00301.enquire +++|
00366  M00S00302.enquire +++|
00367  M00S00303.enquire +++|*         GETFNT CONTROL WORD.
00368  M00S00304.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00369  M01S00305.enqui15 ---| GFNT     VFD    12/100B,6/0,18/0,2/0,1/1,1/1,1/1,1/0,18/FBUF

Seq #  *Modification Id* Act 
----------------------------+
00370  M01S00002.enqui15 +++| GFNT     VFD    12/MXLF,6/0,18/0,2/0,1/1,1/1,1/1,1/0,18/FBUF
00371  M00S00306.enquire +++|
00372  M00S00307.enquire +++|*         GETGLS CONTROL WORD.
00373  M00S00308.enquire +++|
00374  M00S00309.enquire +++| GGLS     VFD    6/0,18/LBUF+3,36/0

Seq #  *Modification Id* Act 
----------------------------+
00375  M01S00310.ns22000 ---|
00376  M01S00311.ns22000 ---|*         GETGLC CONTROL WORD.
00377  M01S00312.ns22000 ---|
00378  M01S00313.ns22000 ---| GLCW     VFD    6/,18/LBUF,36/0
00379  M00S00314.enquire +++|
00380  M00S00315.enquire +++|*         GET PRIMARY FILE CONTROL.
00381  M00S00316.enquire +++|
00382  M00S00317.enquire +++| PRIM     DECMIC PTFT
00383  M00S00318.enquire +++| GPRM     VFD    12/1,24/1S"PRIM",2/0,1/1,3/5,18/FBUF
00384  M00S00319.enquire +++|          SPACE  4,10
00385  M00S00320.enquire +++|**        CONSTANTS.
00386  M00S00321.enquire +++|
00387  M00S00322.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00388  M01S00038.ns22000 +++| ACAT     CON    0           ACCESS CATEGORIES
00389  M01S00039.ns22000 +++| ALVL     CON    0           ACCESS LEVEL
00390  M00S00323.enquire +++| FT       CON    1           FILE TYPE (PRESET AS NON-TERMINAL TYPE)
00391  M00S00324.enquire +++| FCT      CON    0           FILE COUNT
00392  M00S00325.enquire +++| JSNM     CON    0           JOB SEQUENCE NUMBER
00393  M00S00326.enquire +++| LCT      CON    0           LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00394  M01S00040.ns22000 +++| LLM      CON    0           LINE LIMIT
00395  M01S00041.ns22000 +++| JPPW     BSS    2           JOB PAGE PARAMETER WORD
00396  M00S00327.enquire +++| MXLC     EQU    10          MAXIMUM LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
00397  M01S00328.enqui6  ---| MXLL     EQU    72          MAXIMUM LINE LENGTH (CHARACTERS)

Seq #  *Modification Id* Act 
----------------------------+
00398  M01S00002.enqui6  +++| MXLL     EQU    92          MAXIMUM LINE LENGTH (CHARACTERS)
00399  M00S00329.enquire +++| OPAL     CON    0           EXECUTION FLAG WORD
00400  M00S00330.enquire +++| MLPY     CON    0.0001P48+1 SRU CONSTANT (=.0001)

Seq #  *Modification Id* Act 
----------------------------+
00401  M01S00331.v23l617 ---| NASV     VFD    6/77B,54/0  NEGATIVE (ILLEGAL) ASSUMED VALUE

Seq #  *Modification Id* Act 
----------------------------+
00402  M01S00010.v23l617 +++| NASV     VFD    6/77B,54/0  NEGATIVE (INCORRECT) ASSUMED VALUE

Seq #  *Modification Id* Act 
----------------------------+
00403  M01S00042.ns22000 +++| SSFL     CON    0           SECURE SYSTEM FLAG

Seq #  *Modification Id* Act 
----------------------------+
00404  M01S00332.v23l617 ---| CSFP     BSSZ   1           CONTROL STATEMENT FILE POSITION

Seq #  *Modification Id* Act 
----------------------------+
00405  M01S00011.v23l617 +++| CSFP     BSSZ   1           COMMAND FILE POSITION

Seq #  *Modification Id* Act 
----------------------------+
00406  M01S00333.enqui12 ---| SUMF     CON    0           *SUMMARY* ENTRY POINT EXECUTED FLAG

Seq #  *Modification Id* Act 
----------------------------+
00407  M01S00001.252l678 +++| UESC     VFD    1/1,59/0    USER EM SHIFT COUNT
00408  M00S00334.enquire +++|
00409  M00S00335.enquire +++|*         MULTIPLIER TO CONVERT QUARTER-NANOSECONDS TO MILLISECONDS.
00410  M00S00336.enquire +++|
00411  M00S00337.enquire +++| OPA      DATA   0.25E-6
00412  M00S00338.enquire +++|
00413  M00S00339.enquire +++|*         PARAMETER ENTRY TABLE.
00414  M00S00340.enquire +++|
00415  M00S00341.enquire +++| TAGS     CON    0           OPTION
00416  M00S00342.enquire +++|          CON    0           OUTPUT FILE NAME
00417  M00S00343.enquire +++|          CON    0           FILE NAME TO SEARCH FOR
00418  M00S00344.enquire +++|          CON    0           JSN PARAMETER VALUE
00419  M00S00345.enquire +++|          CON    0           UJN PARAMETER VALUE
00420  M00S00346.enquire +++|
00421  M00S00347.enquire +++|*         OPTION TABLE.
00422  M00S00348.enquire +++|
00423  M00S00349.enquire +++| OPNS     VFD    6/0LA,36/0,18/0
00424  M00S00350.enquire +++|          VFD    6/0LB,36/0,18/OPB
00425  M00S00351.enquire +++|          VFD    6/0LD,36/0,18/OPD
00426  M00S00352.enquire +++|          VFD    6/0LR,36/0,18/OPR
00427  M00S00353.enquire +++|          VFD    6/0LU,36/0,18/OPU
00428  M00S00354.enquire +++|          VFD    6/0LJ,36/0,18/OPJ
00429  M00S00355.enquire +++|          VFD    6/0LL,36/0,18/OPL
00430  M00S00356.enquire +++|          VFD    6/0LF,36/0,18/OPF
00431  M00S00357.enquire +++|          VFD    6/0LT,36/0,18/OPT
00432  M00S00358.enquire +++|          VFD    6/0LS,36/0,18/OPS
00433  M00S00359.enquire +++|          VFD    60/0
00434  M00S00360.enquire +++|
00435  M00S00361.enquire +++|*         EXECUTION BIT MASK FOR OPTION TABLE.
00436  M00S00362.enquire +++|
00437  M00S00363.enquire +++| EBIT     DATA   00000000000077000000B
00438  M00S00364.enquire +++|          SPACE  4,10
00439  M00S00365.enquire +++|**        SUB-SYSTEM TABLE.
00440  M00S00366.enquire +++|
00441  M00S00367.enquire +++|
00442  M00S00368.enquire +++| SSTB     INDEX  MSYS
00443  M00S00369.enquire +++|          INDEX  NULS,(0L"NULS".)
00444  M00S00370.enquire +++|          INDEX  BASS,(0L"BASS".)
00445  M00S00371.enquire +++|          INDEX  FORS,(0L"FORS".)
00446  M00S00372.enquire +++|          INDEX  FTNS,(0L"FTNS".)
00447  M00S00373.enquire +++|          INDEX  EXES,(0L"EXES".)
00448  M00S00374.enquire +++|          INDEX  BATS,(0L"BATS".)
00449  M00S00375.enquire +++|          INDEX  ACCS,(0L"ACCS".)
00450  M00S00376.enquire +++|          INDEX  MSYS
00451  M00S00377.enquire +++|          SPACE  4,10
00452  M00S00378.enquire +++|**        EXTERNAL CHARACTERISTICS TABLES.
00453  M00S00379.enquire +++|
00454  M00S00380.enquire +++|
00455  M00S00381.enquire +++|*         EXTERNAL CHARACTERISTICS QUEUE TYPE TABLE.
00456  M00S00382.enquire +++|
00457  M00S00383.enquire +++| QTEC     BSS    0
00458  M00S00384.enquire +++|          TABLE  PRQQ,PREC
00459  M00S00385.enquire +++|          TABLE  PHQQ,PHEC
00460  M00S00386.enquire +++|          TABLE  PLQQ,PLEC
00461  M00S00387.enquire +++|          CON    0
00462  M00S00388.enquire +++|
00463  M00S00389.enquire +++|*         PRINT QUEUE EXTERNAL CHARACTERISTICS EQUIVALENCES TABLE.
00464  M00S00390.enquire +++|
00465  M00S00391.enquire +++| PREC     INDEX  7
00466  M00S00392.enquire +++|          INDEX  DFEX,(5L     )
00467  M00S00393.enquire +++|          INDEX  A4EX,(5LA4   )
00468  M00S00394.enquire +++|          INDEX  B4EX,(5LB4   )
00469  M00S00395.enquire +++|          INDEX  B6EX,(5LB6   )
00470  M00S00396.enquire +++|          INDEX  A6EX,(5LA6   )
00471  M00S00397.enquire +++|          INDEX  A9EX,(5LA9   )
00472  M00S00398.enquire +++|          INDEX  7
00473  M00S00399.enquire +++|
00474  M00S00400.enquire +++|*         PUNCH QUEUE EXTERNAL CHARACTERISTICS EQUIVALENCES TABLE.
00475  M00S00401.enquire +++|
00476  M00S00402.enquire +++| PHEC     INDEX  7
00477  M00S00403.enquire +++|          INDEX  DFFR,(5L     )
00478  M00S00404.enquire +++|          INDEX  PBFR,(5LSB   )
00479  M00S00405.enquire +++|          INDEX  P8FR,(5L80COL)
00480  M00S00406.enquire +++|          INDEX  PHFR,(5LO26  )
00481  M00S00407.enquire +++|          INDEX  P9FR,(5LO29  )
00482  M00S00408.enquire +++|          INDEX  ASFR,(5LASCII)
00483  M00S00409.enquire +++|          INDEX  7
00484  M00S00410.enquire +++|
00485  M00S00411.enquire +++|*         PLOT QUEUE EXTERNAL CHARACTERISTICS EQUIVALENCES TABLE.
00486  M00S00412.enquire +++|
00487  M00S00413.enquire +++| PLEC     INDEX  3
00488  M00S00414.enquire +++|          INDEX  T6EX,(5LT6   )
00489  M00S00415.enquire +++|          INDEX  T8EX,(5LT8   )
00490  M00S00416.enquire +++|          INDEX  3
00491  M00S00417.enquire +++| FLST     SPACE  4,10
00492  M00S00418.enquire +++|**        STATUS TABLE (LAST OPERATION IS PRESET AS *READ*).
00493  M00S00419.enquire +++|
00494  M00S00420.enquire +++|
00495  M00S00421.enquire +++| FLST     BSS    0
00496  M00S00422.enquire +++|          DATA   H* I/C      *
00497  M00S00423.enquire +++|          DATA   H* EOR      *
00498  M00S00424.enquire +++|          DATA   H* EOF      *
00499  M00S00425.enquire +++|          DATA   H* EOI      *
00500  M00S00426.enquire +++|          DATA   H* BOI      *
00501  M00S00427.enquire +++| FLTY     SPACE  4,10
00502  M00S00428.enquire +++|**        FILE TYPE TABLE.
00503  M00S00429.enquire +++|*
00504  M00S00430.enquire +++|*T,FLTY   VFD    12/DCFT,42/ADDR

Figure FLTY

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "ADDR", "bits": 42, "type": 2 },
{ "name": "DCFT", "bits": VFD    12, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

00505  M00S00431.enquire +++|*         DCFT = DISPLAY CODED FILE TYPE.
00506  M00S00432.enquire +++|*         ADDR = MESSAGE ADDRESS.
00507  M00S00433.enquire +++|
00508  M00S00434.enquire +++|
00509  M00S00435.enquire +++| FLTY     INDEX  MXFT
00510  M00S00436.enquire +++|          INDEX  INFT,(3LIN.)      INPUT
00511  M00S00437.enquire +++|          INDEX  ROFT,(3LRO.)      ROLLOUT
00512  M00S00438.enquire +++|          INDEX  QFFT,(3LQF.)      QUEUED
00513  M00S00439.enquire +++|          INDEX  SYFT,(3LSY.)      SYSTEM
00514  M00S00440.enquire +++|          INDEX  LOFT,(3LLO.)      LOCAL
00515  M00S00441.enquire +++|          INDEX  LIFT,(3LLI.)      LIBRARY
00516  M00S00442.enquire +++|          INDEX  PTFT,(3LPT.)      PRIMARY TERMINAL
00517  M00S00443.enquire +++|          INDEX  PMFT,(3LPM.)      DIRECT ACCES PERMANENT
00518  M00S00444.enquire +++|          INDEX  FAFT,(3LFA.)      FAST ATTACH
00519  M00S00445.enquire +++|          INDEX  MXFT
00520  M00S00446.enquire +++| FSTT     SPACE  4,10
00521  M00S00447.enquire +++|**        FILE STATUS TABLE.
00522  M00S00448.enquire +++|*
00523  M00S00449.enquire +++|*T,FSTT   24/DCFS,36/0

Figure FSTT

00524  M00S00450.enquire +++|*         DCFS = DISPLAY CODED FILE STATUS.
00525  M00S00451.enquire +++|
00526  M00S00452.enquire +++|
00527  M00S00453.enquire +++| FSTT     INDEX  MXST
00528  M00S00454.enquire +++|          INDEX  0,(4L    )
00529  M00S00455.enquire +++|          INDEX  UPST,(4L UP )
00530  M00S00456.enquire +++|          INDEX  SSST,(4L SS )
00531  M00S00457.enquire +++|          INDEX  CBST,(4L CB )
00532  M00S00458.enquire +++|          INDEX  CKST,(4L CK )
00533  M00S00459.enquire +++|          INDEX  SOST,(4L SO )
00534  M00S00460.enquire +++|          INDEX  AAST,(4L AA )
00535  M00S00461.enquire +++|          INDEX  NDST,(4L NAD)
00536  M00S00462.enquire +++|          INDEX  MXST
00537  M00S00463.enquire +++| QTST     SPACE  4,10
00538  M00S00464.enquire +++|**        QUEUE TYPE STATUS TABLE.
00539  M00S00465.enquire +++|
00540  M00S00466.enquire +++|QTST      BSS    0
00541  M00S00467.enquire +++|          TABLE  INQQ,INQM
00542  M00S00468.enquire +++|          TABLE  EXQQ,0
00543  M00S00469.enquire +++|          TABLE  PRQQ,PRQM
00544  M00S00470.enquire +++|          TABLE  PHQQ,PHQM
00545  M00S00471.enquire +++|          TABLE  PLQQ,PLQM
00546  M00S00472.enquire +++|          TABLE  WTQQ,WTQM
00547  M00S00473.enquire +++|          CON    0

Seq #  *Modification Id* Act 
----------------------------+
00548  M01S00043.ns22000 +++| CNST     SPACE  4,10
00549  M01S00044.ns22000 +++|**        EXECUTING JOB CONNECTION STATUS.
00550  M01S00045.ns22000 +++|
00551  M01S00046.ns22000 +++| CNST     INDEX  MXCS
00552  M01S00047.ns22000 +++|          INDEX  NICS,(2LNI) NOT INTERACTIVE
00553  M01S00048.ns22000 +++|          INDEX  DTCS,(2LDT) DETACHED
00554  M01S00049.ns22000 +++|          INDEX  OLCS,(2LON) ON-LINE
00555  M01S00050.ns22000 +++|          INDEX  MXCS
00556  M00S00474.enquire +++| EJST     SPACE  4,10
00557  M00S00475.enquire +++|**        EJT STATUS TABLE.
00558  M00S00476.enquire +++|
00559  M00S00477.enquire +++| EJST     INDEX  MXJS
00560  M00S00478.enquire +++|          INDEX  PRJS,PRSM
00561  M00S00479.enquire +++|          INDEX  EXJS,EXSM
00562  M00S00480.enquire +++|          INDEX  ROJS,ROSM
00563  M00S00481.enquire +++|          INDEX  SIJS,SISM
00564  M00S00482.enquire +++|          INDEX  SOJS,SOSM
00565  M00S00483.enquire +++|          INDEX  TOJS,TOSM
00566  M00S00484.enquire +++|          INDEX  IOJS,IOSM
00567  M00S00485.enquire +++|          INDEX  DOJS,DOSM
00568  M00S00486.enquire +++|          INDEX  SUJS,SUSM

Seq #  *Modification Id* Act 
----------------------------+
00569  M01S00002.271l716 +++|          INDEX  PCJS,PCSM
00570  M00S00487.enquire +++|          INDEX  ERJS,ERSM

Seq #  *Modification Id* Act 
----------------------------+
00571  M01S00002.ns2395  +++|          INDEX  SWJS,SWSM
00572  M00S00488.enquire +++|          INDEX  MXJS
00573  M00S00489.enquire +++|          SPACE  4,10
00574  M00S00490.enquire +++|**        LINE DEFINITION TABLES.
00575  M00S00491.enquire +++|*
00576  M00S00492.enquire +++|*         THE LINE DEFINITION TABLES DEFINE THE WORD OFFSET INTO
00577  M00S00493.enquire +++|*         A STRING BUFFER AND THE NUMBER OF CHARACTERS TO ENTER
00578  M00S00494.enquire +++|*         INTO THE BUFFER FOR DATA TO BE WRITTEN TO THE OUTPUT
00579  M00S00495.enquire +++|*         FILE.  THIS DEFINES THE FORMAT OF THE OUTPUT LINES.
00580  M00S00496.enquire +++|
00581  M00S00497.enquire +++|
00582  M00S00498.enquire +++|*         UJN OUTPUT LINE.
00583  M00S00499.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00584  M01S00500.ns22000 ---| L1UL     LDEF   00,68       LINE 1 SKELETON

Seq #  *Modification Id* Act 
----------------------------+
00585  M01S00051.ns22000 +++| L1UL     LDEF   00,70       LINE 1 SKELETON
00586  M00S00501.enquire +++| JSUL     LDEF   01,04       JSN
00587  M00S00502.enquire +++| SCUL     LDEF   06,01       SERVICE CLASS

Seq #  *Modification Id* Act 
----------------------------+
00588  M01S00503.ns21000 ---| UJUL     LDEF   08,07       UJN
00589  M01S00504.ns21000 ---| STUL     LDEF   17,19       STATUS
00590  M01S00505.ns21000 ---| EMUL     LDEF   38,30       EXECUTING MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00591  M02S00005.ns22000 ---| LIUL     LDEF   08,03       LID
00592  M02S00006.ns22000 ---| UJUL     LDEF   12,07       UJN
00593  M02S00007.ns22000 ---| STUL     LDEF   21,19       STATUS
00594  M02S00008.ns22000 ---| EMUL     LDEF   44,30       EXECUTING MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
00595  M01S00052.ns22000 +++| CNUL     LDEF   08,02       CONNECTION STATUS
00596  M01S00053.ns22000 +++| DSUL     LDEF   11,02       DESTINATION ROUTING
00597  M01S00054.ns22000 +++| LIUL     LDEF   14,03       LID
00598  M01S00055.ns22000 +++| UJUL     LDEF   18,07       UJN
00599  M01S00056.ns22000 +++| STUL     LDEF   27,13       STATUS
00600  M01S00057.ns22000 +++| EMUL     LDEF   42,30       EXECUTING MESSAGE
00601  M00S00506.enquire +++|
00602  M00S00507.enquire +++|*         JSN OUTPUT LINES.
00603  M00S00508.enquire +++|*
00604  M00S00509.enquire +++|*         *JSJL*, *SCJL* AND *STJL* ARE USED TO DEFINE THE FORMAT
00605  M00S00510.enquire +++|*         OF OUTPUT LINES WHEN INFORMATION ABOUT A SPECIFIC JOB
00606  M00S00511.enquire +++|*         IS REQUESTED (JSN PARAMETER EQUIVALENCED), AND ALSO WHEN
00607  M00S00512.enquire +++|*         INFORMATION ABOUT ALL JOBS OWNED BY A USER IS REQUESTED
00608  M00S00513.enquire +++|*         (JSN PARAMETER UNEQUIVALENCED).
00609  M00S00514.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00610  M01S00515.ns21000 ---| L1JL     LDEF   00,42       LINE 1 SKELETON
00611  M01S00516.ns21000 ---| JSJL     LDEF   01,04       JSN, COLUMN 1
00612  M01S00517.ns21000 ---|          LDEF   31,04       JSN, COLUMN 2
00613  M01S00518.ns21000 ---| SCJL     LDEF   06,01       SERVICE CLASS, COLUMN 1
00614  M01S00519.ns21000 ---|          LDEF   36,01       SERVICE CLASS, COLUMN 2
00615  M01S00520.ns21000 ---| STJL     LDEF   08,19       STATUS, COLUMN 1
00616  M01S00521.ns21000 ---|          LDEF   38,19       STATUS, COLUMN 2
00617  M01S00522.ns21000 ---| UJJL     LDEF   34,07       UJN

Seq #  *Modification Id* Act 
----------------------------+
00618  M02S00009.ns22000 ---| L1JL     LDEF   00,45       LINE 1 SKELETON

Seq #  *Modification Id* Act 
----------------------------+
00619  M01S00058.ns22000 +++| L1JL     LDEF   00,69       LINE 1 SKELETON

Seq #  *Modification Id* Act 
----------------------------+
00620  M01S00010.ns21000 +++| JSJL     LDEF   01,04       JSN, COLUMN 1

Seq #  *Modification Id* Act 
----------------------------+
00621  M02S00011.ns22000 ---|          LDEF   34,04       JSN, COLUMN 2
00622  M02S00012.ns22000 ---| SCJL     LDEF   06,01       SERVICE CLASS, COLUMN 1
00623  M02S00013.ns22000 ---|          LDEF   39,01       SERVICE CLASS, COLUMN 2
00624  M02S00014.ns22000 ---| LIJL     LDEF   08,03       LID, COLUMN 1
00625  M02S00015.ns22000 ---|          LDEF   41,03       LID, COLUMN 2
00626  M02S00016.ns22000 ---| STJL     LDEF   12,19       STATUS, COLUMN 1
00627  M02S00017.ns22000 ---|          LDEF   45,19       STATUS, COLUMN 2
00628  M02S00018.ns22000 ---| UJJL     LDEF   38,07       UJN

Seq #  *Modification Id* Act 
----------------------------+
00629  M01S00059.ns22000 +++|          LDEF   40,04       JSN, COLUMN 2
00630  M01S00060.ns22000 +++| SCJL     LDEF   06,01       SERVICE CLASS, COLUMN 1
00631  M01S00061.ns22000 +++|          LDEF   45,01       SERVICE CLASS, COLUMN 2
00632  M01S00062.ns22000 +++| CNJL     LDEF   08,02       CONNECTION STATUS, COLUMN 1
00633  M01S00063.ns22000 +++|          LDEF   47,02       CONNECTION STATUS, COLUMN 2
00634  M01S00064.ns22000 +++| DSJL     LDEF   11,02       DESTINATION ROUTING, COLUMN 1
00635  M01S00065.ns22000 +++|          LDEF   50,02       DESTINATION ROUTING, COLUMN 2
00636  M01S00066.ns22000 +++| LIJL     LDEF   14,03       LID, COLUMN 1
00637  M01S00067.ns22000 +++|          LDEF   53,03       LID, COLUMN 2
00638  M01S00068.ns22000 +++| STJL     LDEF   18,13       STATUS, COLUMN 1
00639  M01S00069.ns22000 +++|          LDEF   57,13       STATUS, COLUMN 2
00640  M01S00070.ns22000 +++| UJJL     LDEF   46,07       UJN
00641  M01S00071.ns22000 +++| ALJL     LDEF   62,07       ACCESS LEVEL
00642  M00S00523.enquire +++|
00643  M00S00524.enquire +++| L2JL     LDEF   00,70       LINE 2 SKELETON
00644  M00S00525.enquire +++| SUJL     LDEF   06,10       SRU ACCUMULATOR
00645  M00S00526.enquire +++| SLJL     LDEF   29,08       SRU LIMIT
00646  M00S00527.enquire +++| CFJL     LDEF   46,06       CM FL

Seq #  *Modification Id* Act 
----------------------------+
00647  M01S00528.v23l617 ---| EFJL     LDEF   62,07       ECS FL

Seq #  *Modification Id* Act 
----------------------------+
00648  M01S00012.v23l617 +++| EFJL     LDEF   62,07       EXTENDED MEMORY FL
00649  M00S00529.enquire +++|
00650  M00S00530.enquire +++| L3JL     LDEF   00,56       LINE 3 SKELETON
00651  M00S00531.enquire +++| PLJL     LDEF   12,08       PRU LENGTH
00652  M00S00532.enquire +++| DCJL     LDEF   26,02       DISPOSITION CODE
00653  M00S00533.enquire +++| FCJL     LDEF   34,02       FORMS CODE
00654  M00S00534.enquire +++| IDJL     LDEF   42,02       DESTINATION BATCH DEVICE ID
00655  M00S00535.enquire +++| ECJL     LDEF   50,05       EXTERNAL CHARACTERISTICS
00656  M00S00536.enquire +++|          TITLE  MAIN LOOP.
00657  M00S00537.enquire +++|**        MAIN PROGRAM.
00658  M00S00538.enquire +++|
00659  M00S00539.enquire +++|
00660  M00S00540.enquire +++| MAIN     BSS    0
00661  M00S00541.enquire +++|          SYSTEM RSB,R,STAT1 READ FIRST  100B WORDS OF CPA
00662  M00S00542.enquire +++|          SYSTEM RSB,R,STAT2 READ SECOND 100B WORDS OF CPA
00663  M00S00543.enquire +++|
00664  M00S00544.enquire +++| MAIN1    SA5    OPNS+1      OPTION TABLE
00665  M00S00545.enquire +++|          SA4    EBIT        EXECUTION BIT MASK
00666  M00S00546.enquire +++| MAIN2    ZR     X5,MAIN5    IF END OF OPTION TABLE
00667  M00S00547.enquire +++|          BX6    X4*X5       CHECK FOR EXECUTION BIT
00668  M00S00548.enquire +++|          NZ     X6,MAIN3    IF OPTION TO BE EXECUTED
00669  M00S00549.enquire +++|          SA5    A5+1        CHECK NEXT OPTION
00670  M00S00550.enquire +++|          EQ     MAIN2
00671  M00S00551.enquire +++|
00672  M00S00552.enquire +++| MAIN3    SA2    FT          FILE TYPE
00673  M00S00553.enquire +++|          ZR     X2,MAIN4    IF TERMINAL FILE
00674  M00S00554.enquire +++|          SB3    X5
00675  M00S00555.enquire +++|          SA1    OPF
00676  M00S00556.enquire +++|          SB2    A1
00677  M00S00557.enquire +++|          SB3    B3-B2
00678  M00S00558.enquire +++|          ZR     B3,MAIN4    IF OP=F OPTION TO BE EXECUTED
00679  M00S00559.enquire +++|          WRITEW OUTPUT,PAGE,B1  PAGE EJECT
00680  M00S00560.enquire +++|          SA2    TRPL        TRIPLE SPACE
00681  M00S00561.enquire +++|          BX6    X2
00682  M00S00562.enquire +++|          SA6    PAGE        SET TRIPLE SPACE
00683  M00S00563.enquire +++|          SA4    EBIT        RESET MASK FOR NEXT OPTION
00684  M00S00564.enquire +++| MAIN4    SB2    X5          PICK UP PROCESSOR ADDRESS
00685  M00S00565.enquire +++|          BX6    -X4*X5      CLEAR EXECUTION BIT
00686  M00S00566.enquire +++|          SA6    A5
00687  M00S00567.enquire +++|          JP     B2
00688  M00S00568.enquire +++|
00689  M00S00569.enquire +++|*         PROCESS JSN.
00690  M00S00570.enquire +++|
00691  M00S00571.enquire +++| MAIN5    SA5    TAGS+3
00692  M00S00572.enquire +++|          ZR     X5,MAIN5.2  IF JSN NOT SPECIFIED
00693  M00S00573.enquire +++|          MX0    24
00694  M00S00574.enquire +++|          BX5    X0*X5
00695  M00S00575.enquire +++|          ZR     X5,MAIN5.1  IF UNEQUIVALENCED JSN PARAMETER SPECIFIED

Seq #  *Modification Id* Act 
----------------------------+
00696  M01S00576.enqui7  ---|          RJ     PEJ         LIST STATUS OF SPECIFIED JSN

Seq #  *Modification Id* Act 
----------------------------+
00697  M01S00001.enqui7  +++|          MX0    -42
00698  M01S00002.enqui7  +++|          BX1    -X0*X5
00699  M01S00003.enqui7  +++|          NZ     X1,MAIN5.0  IF FOUR-CHARACTER JSN
00700  M01S00004.enqui7  +++|          SX0    1R          APPEND SPACE
00701  M01S00005.enqui7  +++|          LX0    36-0
00702  M01S00006.enqui7  +++|          BX5    X5+X0
00703  M01S00007.enqui7  +++| MAIN5.0  RJ     PEJ         LIST STATUS OF SPECIFIED JSN
00704  M00S00577.enquire +++|          EQ     MAIN7       COMPLETE ENQUIRY
00705  M00S00578.enquire +++|
00706  M00S00579.enquire +++| MAIN5.1  RJ     PJS         LIST STATUS OF ALL JSN-S
00707  M00S00580.enquire +++|          EQ     MAIN7       COMPLETE ENQUIRY
00708  M00S00581.enquire +++|
00709  M00S00582.enquire +++|*         PROCESS UJN.
00710  M00S00583.enquire +++|
00711  M00S00584.enquire +++| MAIN5.2  SA5    TAGS+4
00712  M00S00585.enquire +++|          ZR     X5,MAIN6    IF UJN NOT SPECIFIED
00713  M00S00586.enquire +++|          RJ     PUJ         LIST STATUS OF JOBS BY UJN
00714  M00S00587.enquire +++|          EQ     MAIN7       COMPLETE ENQUIRY
00715  M00S00588.enquire +++|
00716  M00S00589.enquire +++|*         PROCESS FILENAME.
00717  M00S00590.enquire +++|
00718  M00S00591.enquire +++| MAIN6    SA1    TAGS+2      CHECK FILENAME
00719  M00S00592.enquire +++|          ZR     X1,MAIN7    IF NO FILENAME
00720  M00S00593.enquire +++|          JP     FNA
00721  M00S00594.enquire +++|
00722  M00S00595.enquire +++| MAIN7    SA1    O+2         CHECK FOR NO OUTPUT
00723  M00S00596.enquire +++|          SA2    A1+B1
00724  M00S00597.enquire +++|          BX6    X1-X2
00725  M00S00598.enquire +++|          ZR     X6,MAIN8    IF NO OUTPUT
00726  M00S00599.enquire +++|          WRITER OUTPUT
00727  M00S00600.enquire +++| MAIN8    SA1    FT
00728  M00S00601.enquire +++|          ZR     X1,MAIN9    IF TERMINAL FILE
00729  M00S00602.enquire +++|          MESSAGE  EMSF,3    * ENQUIRY COMPLETE.*

Seq #  *Modification Id* Act 
----------------------------+
00730  M01S00603.enqui12 ---| MAIN9    SA1    SUMF
00731  M01S00604.enqui12 ---|          ZR     X1,MAIN10   IF *SUMMARY* ENTRY POINT NOT EXECUTED
00732  M01S00605.enqui12 ---|          SA2    EMSG        DROPPING SUPPORT OF *SUMMARY*
00733  M01S00606.enqui12 ---|          SX1    B0+
00734  M01S00607.enqui12 ---|          RJ     ISM
00735  M01S00608.enqui12 ---| MAIN10   ENDRUN

Seq #  *Modification Id* Act 
----------------------------+
00736  M01S00001.enqui12 +++| MAIN9    ENDRUN
00737  M00S00609.enquire +++| FNA      TITLE  FN OPTION.
00738  M00S00610.enquire +++|**        THE *FN=FILENAME* FUNCTION RETURNS THE STATUS OF THE
00739  M00S00611.enquire +++|*         FILE SPECIFIED BY THE USER. THE *FN=FILENAME* FUNCTION IS
00740  M00S00612.enquire +++|*         EXECUTED ONLY IF THE *OP=F* OPTION IS NOT SPECIFIED.
00741  M00S00613.enquire +++|*         THE FOLLOWING INFORMATION IS GIVEN FOR THE SPECIFIED FILE

Seq #  *Modification Id* Act 
----------------------------+
00742  M01S00614.ns22000 ---|*         *FILENAME* *LENGTH* *TYPE* *STATUS* .

Seq #  *Modification Id* Act 
----------------------------+
00743  M01S00072.ns22000 +++|*         *FILENAME* *LENGTH/PRUS* *TYPE* *STATUS* *FS* *LEVEL*.
00744  M00S00615.enquire +++|
00745  M00S00616.enquire +++|
00746  M00S00617.enquire +++| FNA      MX0    42
00747  M00S00618.enquire +++|          MX7    0           CLEAR FIRST WORD OF BUFFER
00748  M00S00619.enquire +++|          SA7    FBUF
00749  M00S00620.enquire +++| FNA0     SA2    GFNT        STATUS WORD TO RETURN FILES
00750  M00S00621.enquire +++|          BX6    X2
00751  M00S00622.enquire +++|          SA6    FILEFET+8
00752  M00S00623.enquire +++|          GETFNT FILEFET
00753  M00S00624.enquire +++|          SA5    FBUF-1      INITIALIZE FILE NAME SEARCH
00754  M00S00625.enquire +++|          SA1    TAGS+2      FILE NAME
00755  M00S00626.enquire +++| FNA1     SA5    A5+2
00756  M00S00627.enquire +++|          ZR     X5,FNA3     IF END OF FNTS
00757  M00S00628.enquire +++|          BX3    X0*X5
00758  M00S00629.enquire +++|          BX3    X3-X1
00759  M00S00630.enquire +++|          NZ     X3,FNA1     IF NO MATCH
00760  M00S00631.enquire +++|          SA1    FT          TERMINAL FILE CONSTANT
00761  M00S00632.enquire +++|          ZR     X1,FNA2     IF TERMINAL FILE
00762  M00S00633.enquire +++|          WRITEW OUTPUT,PAGE,B1  CARRIAGE CONTROL
00763  M00S00634.enquire +++| FNA2     WRITEW OUTPUT,FOP,FOPA
00764  M00S00635.enquire +++|          RJ     LST         LIST FILE
00765  M00S00636.enquire +++|          EQ     MAIN7       RETURN
00766  M00S00637.enquire +++|
00767  M00S00638.enquire +++| FNA3     SA4    FBUF        BUFFER CONTROL WORD
00768  M00S00639.enquire +++|          NZ     X4,FNA0     IF MORE FILES TO GET
00769  M00S00640.enquire +++|          SA2    =L* FILE NOT FOUND.*
00770  M00S00641.enquire +++|          SX1    B0+
00771  M00S00642.enquire +++|          RJ     ISM         ISSUE MESSAGE
00772  M00S00643.enquire +++|          EQ     MAIN7       RETURN
00773  M00S00644.enquire +++| OPB      TITLE  B OPTION.
00774  M00S00645.enquire +++|**        THE *OP=B* OPTION RETURNS TO THE USER INFORMATION THAT IS
00775  M00S00646.enquire +++|*         READ FROM HIS CONTROL POINT AREA. INFORMATION SUCH AS

Seq #  *Modification Id* Act 
----------------------------+
00776  M01S00647.v23l617 ---|*         USER NUMBER,USER INDEX,USER PRIORITIES IS RETURNED TO

Seq #  *Modification Id* Act 
----------------------------+
00777  M01S00013.v23l617 +++|*         USER NAME, USER INDEX, USER PRIORITIES IS RETURNED TO
00778  M00S00648.enquire +++|*         THE CALLER. THE USER PRIMARY FILENAME IS RETURNED IF
00779  M00S00649.enquire +++|*         HE HAS ONE AND THE SUBSYSTEM HE IS USING.INFORMATION
00780  M00S00650.enquire +++|*         ABOUT THE USER FIELD LENGTH, FAMILY AND PACK NAME IS

Seq #  *Modification Id* Act 
----------------------------+
00781  M01S00651.ns22000 ---|*         ALSO GIVEN.

Seq #  *Modification Id* Act 
----------------------------+
00782  M01S00073.ns22000 +++|*         GIVEN.  IF SECURE SYSTEM, INFORMATION ABOUT SECURITY
00783  M01S00074.ns22000 +++|*         ACCESS LEVELS AND ACCESS CATEGORIES IS ALSO GIVEN.
00784  M00S00652.enquire +++|
00785  M00S00653.enquire +++|
00786  M00S00654.enquire +++|
00787  M00S00655.enquire +++|*         PROCESS PRIORITIES.
00788  M00S00656.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00789  M01S00657.271l750 ---| OPB      SA5    BUFF+JCIW   JOB PRIORITIES

Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00658.271l750 ---|          AX5    49
00791  M02S00659.271l750 ---|          MX3    -11

Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00003.271l750 ---|          AX5    48

Seq #  *Modification Id* Act 
----------------------------+
00793  M01S00001.271l750 +++| OPB      BSS    0           ENTRY
00794  M01S00002.271l750 +++|          SA5    BUFF+CWQW   GET CPU PRIORITY
00795  M01S00003.271l750 +++|          AX5    51

Seq #  *Modification Id* Act 
----------------------------+
00796  M01S00004.271l716 +++|          MX3    -7

Seq #  *Modification Id* Act 
----------------------------+
00797  M01S00660.271l750 ---|          BX1    -X3*X5      CP PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
00798  M01S00004.271l750 +++|          BX1    -X3*X5      CPU PRIORITY
00799  M00S00661.enquire +++|          RJ     COD         CONVERT TO OCTAL DISPLAY CODE
00800  M00S00662.enquire +++|          MX0    12
00801  M00S00663.enquire +++|          BX6    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
00802  M01S00664.v23l617 ---|          SA6    BOPJ+2

Seq #  *Modification Id* Act 
----------------------------+
00803  M01S00014.v23l617 +++|          SA6    BOCP+2
00804  M00S00665.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00805  M01S00666.ns22000 ---|*         PROCESSING PACK NAME AND FAMILY NAME.
00806  M01S00667.ns22000 ---|
00807  M01S00668.ns22000 ---|          SA2    BUFF+PKNW
00808  M01S00669.ns22000 ---|          MX4    42
00809  M01S00670.ns22000 ---|          BX6    X4*X2
00810  M01S00671.ns22000 ---|          ZR     X6,OPB1     IF NO AUXILIARY LIBRARY PACK NAME
00811  M01S00672.ns22000 ---|          SA6    BOPF+2
00812  M01S00673.ns22000 ---| OPB1     GETJN  BOPD+2      DISPLAY JSN
00813  M01S00674.ns22000 ---|          SA2    BUFF+PFCW
00814  M01S00675.ns22000 ---|          MX0    -6
00815  M01S00676.ns22000 ---|          LX2    -12
00816  M01S00677.ns22000 ---|          BX5    -X0*X2      EST ORDINAL OF FAMILY DEVICE
00817  M01S00678.ns22000 ---|
00818  M01S00679.ns22000 ---|*         READ EST.
00819  M01S00680.ns22000 ---|
00820  M01S00681.ns22000 ---|          MX7    -0
00821  M01S00682.ns22000 ---|          SA7    EBUF
00822  M01S00683.ns22000 ---|          SA7    MBUF
00823  M01S00684.ns22000 ---|          SYSTEM RSB,R,ESTPR
00824  M01S00685.ns22000 ---|          SA1    EBUF+X5     EST FOR FAMILY DEVICE
00825  M01S00686.ns22000 ---|          MX4    -12
00826  M01S00687.ns22000 ---|          BX1    -X4*X1      MST ADDRESS/10
00827  M01S00688.ns22000 ---|          SA2    MSTA
00828  M01S00689.ns22000 ---|          LX1    21
00829  M01S00690.ns22000 ---|          BX6    X1+X2
00830  M01S00691.ns22000 ---|          SA6    A2         MST STATUS WORD
00831  M01S00692.ns22000 ---|
00832  M01S00693.ns22000 ---|*         READ MST.
00833  M01S00694.ns22000 ---|
00834  M01S00695.ns22000 ---|          SYSTEM RSB,R,MSTA
00835  M01S00696.ns22000 ---|          SA1    MBUF+PFGL
00836  M01S00697.ns22000 ---|          MX4    42
00837  M01S00698.ns22000 ---|          BX6    X4*X1       FAMILY OR PACK NAME
00838  M01S00699.ns22000 ---|          ZR     X6,OPB2     IF NO NAME
00839  M01S00700.ns22000 ---|          SA6    BOPE+2

Seq #  *Modification Id* Act 
----------------------------+
00840  M02S00075.v23l617 ---|*         PROCESS FAMILY NAME AND PACKNAME, IF ANY.

Seq #  *Modification Id* Act 
----------------------------+
00841  M01S00015.v23l617 +++|*         PROCESS FAMILY NAME AND PACK NAME, IF ANY.

Seq #  *Modification Id* Act 
----------------------------+
00842  M01S00076.ns22000 +++|
00843  M01S00077.ns22000 +++|          GETPFP WBUF        GET PERMANENT FILE INFORMATION
00844  M01S00078.ns22000 +++|          SA1    WBUF
00845  M01S00079.ns22000 +++|          MX0    42
00846  M01S00080.ns22000 +++|          BX6    X0*X1
00847  M01S00081.ns22000 +++|          ZR     X6,OPB1     IF NO FAMILY NAME

Seq #  *Modification Id* Act 
----------------------------+
00848  M02S00082.v23l617 ---|          SA6    BOPE+2

Seq #  *Modification Id* Act 
----------------------------+
00849  M01S00016.v23l617 +++|          SA6    BOFM+2

Seq #  *Modification Id* Act 
----------------------------+
00850  M01S00083.ns22000 +++| OPB1     SA1    A1+B1
00851  M01S00084.ns22000 +++|          BX6    X0*X1

Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00085.v23l617 ---|          ZR     X6,OPB2     IF NO PACKNAME

Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00017.ns2350  ---|          ZR     X6,OPB2     IF NO PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
00854  M01S00001.ns2350  +++|          ZR     X6,OPB1.1   IF NO PACK NAME IN CPA

Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00086.v23l617 ---|          SA6    BOPF+2

Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00018.ns2350  ---|          SA6    BOPN+2

Seq #  *Modification Id* Act 
----------------------------+
00857  M01S00002.ns2350  +++|          SA6    BOPN+2      SET PACK NAME

Seq #  *Modification Id* Act 
----------------------------+
00858  M01S00087.ns22000 +++|          BX6    -X0*X1
00859  M01S00088.ns22000 +++|          LX6    42

Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00089.ns2350  ---|          ZR     X6,OPB2     IF DEFAULT DEVICE TYPE

Seq #  *Modification Id* Act 
----------------------------+
00861  M03S00090.ns2350  ---|          SA6    BOPF+5

Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00019.ns2350  ---|          SA6    BOPN+5

Seq #  *Modification Id* Act 
----------------------------+
00863  M01S00003.ns2350  +++|          SA6    BOPN+5      SET PACK TYPE
00864  M01S00004.ns2350  +++|          NZ     X6,OPB2     IF PACK TYPE SPECIFIED IN CPA
00865  M01S00005.ns2350  +++| OPB1.1   SYSTEM RSB,R,OPBC  READ PFNL WORD
00866  M01S00006.ns2350  +++|          SA1    OPBD        GET SYSTEM DEFAULT PACK TYPE
00867  M01S00007.ns2350  +++|          MX6    18
00868  M01S00008.ns2350  +++|          BX6    X6*X1
00869  M01S00009.ns2350  +++|          SA6    BOPN+5      SET PACK TYPE
00870  M00S00701.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00871  M01S00702.v23l617 ---|*         PROCESS USER NUMBER AND USER INDEX.

Seq #  *Modification Id* Act 
----------------------------+
00872  M01S00020.v23l617 +++|*         PROCESS USER NAME AND USER INDEX.
00873  M00S00703.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00874  M01S00704.v23l617 ---| OPB2     SA5    BUFF+UIDW   USER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
00875  M01S00021.v23l617 +++| OPB2     SA5    BUFF+UIDW   USER NAME
00876  M00S00705.enquire +++|          MX4    -18
00877  M00S00706.enquire +++|          BX6    X4*X5

Seq #  *Modification Id* Act 
----------------------------+
00878  M01S00707.v23l617 ---|          SA6    BOPA+2

Seq #  *Modification Id* Act 
----------------------------+
00879  M01S00022.v23l617 +++|          SA6    BOUN+2
00880  M00S00708.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00881  M01S00709.ns22000 ---|*         COMPUTING USER INDEX HASH.

Seq #  *Modification Id* Act 
----------------------------+
00882  M01S00091.ns22000 +++|*         PROCESS HASH CODE AND JOB SEQUENCE NAME.
00883  M00S00710.enquire +++|
00884  M00S00711.enquire +++|          MX4    -17
00885  M00S00712.enquire +++|          BX7    -X4*X5
00886  M00S00713.enquire +++|          RJ     CIH         COMPUTE USER INDEX HASH

Seq #  *Modification Id* Act 
----------------------------+
00887  M01S00714.v23l617 ---|          SA7    BOPB+2

Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00092.v23l617 ---|          GETJN  BOPD+2

Seq #  *Modification Id* Act 
----------------------------+
00889  M01S00023.v23l617 +++|          SA7    BOUH+2
00890  M01S00024.v23l617 +++|          GETJN  BOJS+2      GET JSN
00891  M01S00025.v23l617 +++|
00892  M01S00026.v23l617 +++|*         PROCESS CHARGE AND PROJECT NUMBER.
00893  M01S00027.v23l617 +++|
00894  M01S00028.v23l617 +++|          GETCN  WBUF        GET CHARGE NUMBER INFORMATION
00895  M01S00029.v23l617 +++|          SA1    WBUF        SET CHARGE NUMBER
00896  M01S00030.v23l617 +++|          ZR     X1,OPB2.1   IF NO CHARGE NUMBER
00897  M01S00031.v23l617 +++|          RJ     SFN         SPACE FILL NAME
00898  M01S00032.v23l617 +++|          SA6    BOCN+2
00899  M01S00033.v23l617 +++|          SA1    WBUF+1      SET PROJECT NUMBER
00900  M01S00034.v23l617 +++|          ZR     X1,OPB2.1   IF NO PROJECT NUMBER
00901  M01S00035.v23l617 +++|          RJ     SFN         SPACE FILL NAME
00902  M01S00036.v23l617 +++|          SA6    BOPJ+2
00903  M01S00037.v23l617 +++|          SA1    WBUF+2
00904  M01S00038.v23l617 +++|          RJ     SFN         SPACE FILL NAME
00905  M01S00039.v23l617 +++|          SA6    BOPJ+3
00906  M00S00715.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00907  M01S00716.ns22000 ---|*         PROCESSING PRIMARY FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
00908  M01S00093.ns22000 +++|*         PROCESS PRIMARY FILE.
00909  M00S00717.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00910  M01S00718.v23l617 ---|          SA1    GPRM        SET OPTIONS FOR GETFNT

Seq #  *Modification Id* Act 
----------------------------+
00911  M01S00040.v23l617 +++| OPB2.1   SA1    GPRM        SET OPTIONS FOR GETFNT
00912  M00S00719.enquire +++|          BX6    X1
00913  M00S00720.enquire +++|          MX7    0           CLEAR BUFFER CONTROL WORD
00914  M00S00721.enquire +++|          SA7    FBUF
00915  M00S00722.enquire +++|          SA6    FILEFET+8   GETFNT STATUS WORD

Seq #  *Modification Id* Act 
----------------------------+
00916  M01S00723.ns22000 ---| OPB2.1   GETFNT FILEFET     GET PRIMARY FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
00917  M01S00094.ns22000 +++|          GETFNT FILEFET     GET PRIMARY FILE NAME
00918  M00S00724.enquire +++|          MX6    0           CLEAR STATUS WORD
00919  M00S00725.enquire +++|          SA6    FILEFET+8
00920  M00S00726.enquire +++|          SA2    FBUF+1
00921  M00S00727.enquire +++|          MX0    42

Seq #  *Modification Id* Act 
----------------------------+
00922  M01S00728.242l642 ---|          BX6    X0*X2       PRIMARY FILE NAME
00923  M01S00729.242l642 ---|          ZR     X6,OPB3     IF NO PRIMARY FILE

Seq #  *Modification Id* Act 
----------------------------+
00924  M01S00001.242l642 +++|          BX1    X0*X2
00925  M01S00002.242l642 +++|          ZR     X1,OPB3     IF NO PRIMARY FILE
00926  M01S00003.242l642 +++|          RJ     SFN         SPACE FILL NAME

Seq #  *Modification Id* Act 
----------------------------+
00927  M01S00730.v23l617 ---|          SA6    BOPG+2

Seq #  *Modification Id* Act 
----------------------------+
00928  M01S00041.v23l617 +++|          SA6    BOPF+2

Seq #  *Modification Id* Act 
----------------------------+
00929  M01S00004.242l642 +++|          SA2    A2+1
00930  M01S00005.242l642 +++|          LX2    59-8
00931  M01S00006.242l642 +++|          PL     X2,OPB3     IF FILE ACCESSIBLE
00932  M01S00007.242l642 +++|          SA2    OPBB
00933  M01S00008.242l642 +++|          BX6    X2
00934  M01S00009.242l642 +++|          SA6    BOPF+3
00935  M00S00731.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00936  M01S00732.ns22000 ---|*         PROCESSING SUBSYSTEM NAME.

Seq #  *Modification Id* Act 
----------------------------+
00937  M01S00095.ns22000 +++|*         PROCESS SUBSYSTEM.
00938  M00S00733.enquire +++|
00939  M00S00734.enquire +++| OPB3     SA2    BUFF+TXSW   TELEX SUBSYSTEM WORD
00940  M00S00735.enquire +++|          MX0    -6
00941  M00S00736.enquire +++|          LX2    6
00942  M00S00737.enquire +++|          BX1    -X0*X2      SUB-SYSTEM TABLE INDEX
00943  M00S00738.enquire +++|          SB3    X1-MSYS

Seq #  *Modification Id* Act 
----------------------------+
00944  M01S00739.v23l617 ---|          PL     B3,OPB4     IF INVALID SUB-SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
00945  M01S00042.v23l617 +++|          PL     B3,OPB4     IF INCORRECT SUB-SYSTEM
00946  M00S00740.enquire +++|          SA1    SSTB+X1     SUB-SYSTEM TABLE
00947  M00S00741.enquire +++|          BX6    X1

Seq #  *Modification Id* Act 
----------------------------+
00948  M01S00742.v23l617 ---|          SA6    BOPH+2

Seq #  *Modification Id* Act 
----------------------------+
00949  M01S00043.v23l617 +++|          SA6    BOSU+2
00950  M00S00743.enquire +++|
00951  M00S00744.enquire +++|*         PROCESS FIELD LENGTH.
00952  M00S00745.enquire +++|

Seq #  *Modification Id* Act 
----------------------------+
00953  M01S00746.v23l617 ---| OPB4     SA5    BUFF+ELCW   ECS STATUS WORD

Seq #  *Modification Id* Act 
----------------------------+
00954  M02S00044.252l678 ---| OPB4     SA5    BUFF+ELCW   EXTENDED MEMORY STATUS WORD

Seq #  *Modification Id* Act 
----------------------------+
00955  M01S00002.252l678 +++| OPB4     SA3    UESC        GET USER EM SHIFT COUNT
00956  M01S00003.252l678 +++|          SA5    BUFF+ELCW   EXTENDED MEMORY STATUS WORD
00957  M00S00747.enquire +++|          MX0    -12

Seq #  *Modification Id* Act 
----------------------------+
00958  M01S00004.252l678 +++|          SB5    X3+9

Seq #  *Modification Id* Act 
----------------------------+
00959  M01S00748.v23l617 ---|          LX5    12          CONVERT ECS MFL

Seq #  *Modification Id* Act 
----------------------------+
00960  M01S00045.v23l617 +++|          LX5    12          CONVERT EXTENDED MEMORY MFL
00961  M00S00749.enquire +++|          BX1    -X0*X5

Seq #  *Modification Id* Act 
----------------------------+
00962  M01S00750.ns2184  ---|          LX1    9           TRACKS * 1000

Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00001.252l678 ---|          LX1    9+UESF      BLOCKS*(UEBS)

Seq #  *Modification Id* Act 
----------------------------+
00964  M01S00005.252l678 +++|          LX1    B5
00965  M00S00751.enquire +++|          RJ     COD         CONVERT TO OCTAL DISPLAY CODE
00966  M00S00752.enquire +++|          BX6    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
00967  M01S00753.v23l617 ---|          SA6    BOPL+2

Seq #  *Modification Id* Act 
----------------------------+
00968  M01S00046.v23l617 +++|          SA6    BOME+2

Seq #  *Modification Id* Act 
----------------------------+
00969  M01S00754.v23l617 ---|          LX5    12          CONVERT LAST ECS FIELD LENGTH

Seq #  *Modification Id* Act 
----------------------------+
00970  M01S00047.v23l617 +++|          LX5    12          CONVERT LAST EXTENDED MEMORY FIELD LENGTH
00971  M00S00755.enquire +++|          BX1    -X0*X5

Seq #  *Modification Id* Act 
----------------------------+
00972  M01S00756.ns2184  ---|          LX1    9           TRACKS * 1000

Seq #  *Modification Id* Act 
----------------------------+
00973  M02S00002.252l678 ---|          LX1    9+UESF      BLOCKS*(UEBS)

Seq #  *Modification Id* Act 
----------------------------+
00974  M01S00006.252l678 +++|          LX1    B5
00975  M00S00757.enquire +++|          RJ     COD
00976  M00S00758.enquire +++|          BX6    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
00977  M01S00759.v23l617 ---|          SA6    BOPN+2

Seq #  *Modification Id* Act 
----------------------------+
00978  M01S00048.v23l617 +++|          SA6    BOLE+2
00979  M00S00760.enquire +++|          SA5    BUFF+FLCW   CM MEMORY CONTROL WORD
00980  M00S00761.enquire +++|          LX5    12          CONVERT CM MFL
00981  M00S00762.enquire +++|          BX1    -X0*X5
00982  M00S00763.enquire +++|          LX1    6           BLOCKS * 100
00983  M00S00764.enquire +++|          RJ     COD
00984  M00S00765.enquire +++|          BX6    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
00985  M01S00766.v23l617 ---|          SA6    BOPK+2

Seq #  *Modification Id* Act 
----------------------------+
00986  M01S00049.v23l617 +++|          SA6    BOMF+2
00987  M00S00767.enquire +++|          LX5    12          CONVERT CM LAST FIELD LENGTH
00988  M00S00768.enquire +++|          BX1    -X0*X5
00989  M00S00769.enquire +++|          LX1    6           BLOCKS * 100
00990  M00S00770.enquire +++|          RJ     COD
00991  M00S00771.enquire +++|          BX6    X0*X4

Seq #  *Modification Id* Act 
----------------------------+
00992  M01S00772.v23l617 ---|          SA6    BOPM+2

Seq #  *Modification Id* Act 
----------------------------+
00993  M01S00050.v23l617 +++|          SA6    BOLF+2

Seq #  *Modification Id* Act 
----------------------------+
00994  M01S00096.ns22000 +++|
00995  M01S00097.ns22000 +++|*         PROCESS JOB ACCESS LEVELS IF SECURE SYSTEM.
00996  M01S00098.ns22000 +++|
00997  M01S00099.ns22000 +++|          SA1    SSFL
00998  M01S00100.ns22000 +++|          ZR     X1,OPB8     IF NON-SECURE SYSTEM
00999  M01S00101.ns22000 +++|          GETJAL ALVL        GET JOB ACCESS LEVELS
01000  M01S00102.ns22000 +++|          SA1    ALVL        GET CURRENT JOB ACCESS LEVEL
01001  M01S00103.ns22000 +++|          MX0    -3
01002  M01S00104.ns22000 +++|          BX2    -X0*X1
01003  M01S00105.ns22000 +++|          SA2    TALV+X2
01004  M01S00106.ns22000 +++|          MX3    42
01005  M01S00107.ns22000 +++|          BX6    X2*X3

Seq #  *Modification Id* Act 
----------------------------+
01006  M02S00108.v23l617 ---|          SA6    BOPO+2

Seq #  *Modification Id* Act 
----------------------------+
01007  M01S00051.v23l617 +++|          SA6    BOAL+2

Seq #  *Modification Id* Act 
----------------------------+
01008  M01S00109.ns22000 +++|          AX1    6           GET JOB ACCESS LEVEL UPPER LIMIT
01009  M01S00110.ns22000 +++|          BX2    -X0*X1
01010  M01S00111.ns22000 +++|          SA2    TALV+X2
01011  M01S00112.ns22000 +++|          BX6    X2*X3

Seq #  *Modification Id* Act 
----------------------------+
01012  M02S00113.v23l617 ---|          SA6    BOPQ+2

Seq #  *Modification Id* Act 
----------------------------+
01013  M01S00052.v23l617 +++|          SA6    BOUL+2

Seq #  *Modification Id* Act 
----------------------------+
01014  M01S00114.ns22000 +++|          AX1    6           GET JOB ACCESS LEVEL LOWER LIMIT
01015  M01S00115.ns22000 +++|          BX2    -X0*X1
01016  M01S00116.ns22000 +++|          SA2    TALV+X2
01017  M01S00117.ns22000 +++|          BX6    X2*X3

Seq #  *Modification Id* Act 
----------------------------+
01018  M02S00118.v23l617 ---|          SA6    BOPP+2

Seq #  *Modification Id* Act 
----------------------------+
01019  M01S00053.v23l617 +++|          SA6    BOLL+2

Seq #  *Modification Id* Act 
----------------------------+
01020  M01S00119.ns22000 +++|
01021  M01S00120.ns22000 +++|*         PROCESS JOB ACCESS CATEGORIES IF SECURE SYSTEM.
01022  M01S00121.ns22000 +++|
01023  M01S00122.ns22000 +++|          GETUSV ACAT        GET JOB ACCESS CATEGORIES
01024  M01S00123.ns22000 +++|          SA4    ACAT
01025  M01S00124.ns22000 +++|          SB3    32          NUMBER OF CATEGORIES TO CHECK
01026  M01S00125.ns22000 +++|          SB4    B0          INDEX INTO TABLE OF CATEGORY NAMES
01027  M01S00126.ns22000 +++|          SB5    B1          POINTER FOR STORING CATEGORY NAME
01028  M01S00127.ns22000 +++|          SB6    6           COUNT OF WORDS TO BE SPACE FILLED
01029  M01S00128.ns22000 +++| OPB5     LX4    -1
01030  M01S00129.ns22000 +++|          PL     X4,OPB7     IF CATEGORY NOT SET
01031  M01S00130.ns22000 +++|          SA2    TACT+B4     GET CATEGORY NAME
01032  M01S00131.ns22000 +++|          MX0    42
01033  M01S00132.ns22000 +++|          BX1    X0*X2
01034  M01S00133.ns22000 +++|          RJ     SFN         SPACE FILL NAME
01035  M01S00134.ns22000 +++|          LX6    -18

Seq #  *Modification Id* Act 
----------------------------+
01036  M02S00135.v23l617 ---|          SA6    BOPR+B5     SAVE CATEGORY NAME

Seq #  *Modification Id* Act 
----------------------------+
01037  M01S00054.v23l617 +++|          SA6    BOAC+B5     SAVE CATEGORY NAME

Seq #  *Modification Id* Act 
----------------------------+
01038  M01S00136.ns22000 +++|          SB6    B6-B1
01039  M01S00137.ns22000 +++|          SA1    OPBA        INCREMENT PRINTED LINE COUNT
01040  M01S00138.ns22000 +++|          SX6    X1+B1
01041  M01S00139.ns22000 +++|          SA6    A1
01042  M01S00140.ns22000 +++|          PL     B6,OPB6     IF COUNT NOT TO BE RESET
01043  M01S00141.ns22000 +++|          SB6    6
01044  M01S00142.ns22000 +++|          SB5    B5+B1       WRITE END-OF-LINE
01045  M01S00143.ns22000 +++|          BX6    X6-X6

Seq #  *Modification Id* Act 
----------------------------+
01046  M02S00144.v23l617 ---|          SA6    BOPR+B5

Seq #  *Modification Id* Act 
----------------------------+
01047  M01S00055.v23l617 +++|          SA6    BOAC+B5

Seq #  *Modification Id* Act 
----------------------------+
01048  M01S00145.ns22000 +++|          SA1    OPBA        INCREMENT PRINTED LINE COUNT
01049  M01S00146.ns22000 +++|          SX6    X1+B1
01050  M01S00147.ns22000 +++|          SA6    A1
01051  M01S00148.ns22000 +++| OPB6     SB5    B5+B1
01052  M01S00149.ns22000 +++| OPB7     SB4    B4+B1
01053  M01S00150.ns22000 +++|          SB3    B3-B1
01054  M01S00151.ns22000 +++|          NZ     B3,OPB5     IF MORE CATEGORIES TO CHECK
01055  M01S00152.ns22000 +++|          SA1    OPBA        GET LINE COUNT
01056  M01S00153.ns22000 +++|          WRITEW OUTPUT,BOP,X1
01057  M01S00154.ns22000 +++|          EQ     MAIN1       RETURN
01058  M01S00155.ns22000 +++|

Seq #  *Modification Id* Act 
----------------------------+
01059  M01S00773.ns22000 ---|          WRITEW OUTPUT,BOP,BOLL

Seq #  *Modification Id* Act 
----------------------------+
01060  M02S00156.v23l617 ---| OPB8     WRITEW OUTPUT,BOP,BOLL

Seq #  *Modification Id* Act 
----------------------------+
01061  M01S00056.v23l617 +++| OPB8     WRITEW OUTPUT,BOP,BOPL
01062  M00S00774.enquire +++|          EQ     MAIN1       RETURN

Seq #  *Modification Id* Act 
----------------------------+
01063  M01S00157.ns22000 +++|
01064  M01S00158.ns22000 +++| OPBA     CON    BLLL        PRINTED LINE COUNT

Seq #  *Modification Id* Act 
----------------------------+
01065  M01S00010.242l642 +++| OPBB     DATA   10L*INACCESS*  FILE NOT ACCESSIBLE STATUS

Seq #  *Modification Id* Act 
----------------------------+
01066  M01S00775.ns2350  ---|

Seq #  *Modification Id* Act 
----------------------------+
01067  M01S00010.ns2350  +++| OPBC     VFD    12/0,12/1,18/PFNL,18/OPBD  PFNL READ CONTROL
01068  M01S00011.ns2350  +++| OPBD     VFD    1/1,59/0    PFNL CODE
01069  M01S00012.ns2350  +++|
01070  M00S00776.enquire +++|
01071  M00S00777.enquire +++|
01072  M00S00778.enquire +++|*         *OUTPUT FORMAT FOR B-OPTION*
01073  M00S00779.enquire +++|
01074  M00S00780.enquire +++| BOP      DATA   0
01075  M00S00781.enquire +++|          DATA   L* SYSTEM ACTIVITY.*
01076  M00S00782.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01077  M01S00783.enqui1  ---| BOPA     DATA   20H   USER NUMBER

Seq #  *Modification Id* Act 
----------------------------+
01078  M02S00001.v23l617 ---| BOPA     DATA   20H   USER NAME

Seq #  *Modification Id* Act 
----------------------------+
01079  M01S00057.v23l617 +++| BOUN     DATA   20H   USER NAME
01080  M00S00784.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01081  M01S00785.v23l617 ---| BOPB     DATA   20H   USER INDEX HASH

Seq #  *Modification Id* Act 
----------------------------+
01082  M01S00058.v23l617 +++| BOUH     DATA   20H   USER INDEX HASH
01083  M00S00786.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01084  M01S00787.enqui1  ---| BOPD     DATA   20H   JOB SEQ.NO.

Seq #  *Modification Id* Act 
----------------------------+
01085  M02S00002.v23l617 ---| BOPD     DATA   20H   JOB SEQ. NAME

Seq #  *Modification Id* Act 
----------------------------+
01086  M01S00059.v23l617 +++| BOJS     DATA   20H   JOB SEQ. NAME
01087  M00S00788.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01088  M01S00789.v23l617 ---| BOPE     DATA   20H   FAMILY

Seq #  *Modification Id* Act 
----------------------------+
01089  M01S00060.v23l617 +++| BOFM     DATA   20H   FAMILY
01090  M00S00790.enquire +++|          DATA   8L*NONE*.

Seq #  *Modification Id* Act 
----------------------------+
01091  M01S00791.v23l617 ---| BOPF     DATA   20H   PACKNAME

Seq #  *Modification Id* Act 
----------------------------+
01092  M01S00061.v23l617 +++| BOCN     DATA   20H   CHARGE NUMBER
01093  M01S00062.v23l617 +++|          DATA   10H*NONE*.
01094  M01S00063.v23l617 +++|          DATA   0
01095  M01S00064.v23l617 +++| BOPJ     DATA   20H   PROJECT NUMBER
01096  M01S00065.v23l617 +++|          DATA   20H*NONE*.
01097  M01S00066.v23l617 +++|          DATA   0
01098  M01S00067.v23l617 +++| BOPN     DATA   20H   PACK NAME
01099  M00S00792.enquire +++|          DATA   8L*NONE*.

Seq #  *Modification Id* Act 
----------------------------+
01100  M01S00159.ns22000 +++|          DATA   20H   PACK TYPE
01101  M01S00160.ns22000 +++|          VFD    18/DFPT,42/0

Seq #  *Modification Id* Act 
----------------------------+
01102  M01S00793.v23l617 ---| BOPG     DATA   20H   PRIMARY FILE

Seq #  *Modification Id* Act 
----------------------------+
01103  M01S00068.v23l617 +++| BOPF     DATA   20H   PRIMARY FILE

Seq #  *Modification Id* Act 
----------------------------+
01104  M01S00794.242l642 ---|          DATA   8L*NONE*.

Seq #  *Modification Id* Act 
----------------------------+
01105  M01S00011.242l642 +++|          DATA   10L*NONE*.
01106  M01S00012.242l642 +++|          DATA   10L
01107  M01S00013.242l642 +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01108  M01S00795.v23l617 ---| BOPH     DATA   20H   SUB SYSTEM

Seq #  *Modification Id* Act 
----------------------------+
01109  M01S00069.v23l617 +++| BOSU     DATA   20H   SUBSYSTEM
01110  M00S00796.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01111  M01S00797.v23l617 ---| BOPJ     DATA   20H   CPU PRIORITY

Seq #  *Modification Id* Act 
----------------------------+
01112  M01S00070.v23l617 +++| BOCP     DATA   20H   CPU PRIORITY
01113  M00S00798.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01114  M01S00799.v23l617 ---| BOPK     DATA   20H   MAX FL (CM)

Seq #  *Modification Id* Act 
----------------------------+
01115  M01S00071.v23l617 +++| BOMF     DATA   20H   MAX FL (CM)
01116  M00S00800.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01117  M01S00801.v23l617 ---| BOPL     DATA   20H   MAX FL (EC)

Seq #  *Modification Id* Act 
----------------------------+
01118  M01S00072.v23l617 +++| BOME     DATA   20H   MAX FL (EM)
01119  M00S00802.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01120  M01S00803.v23l617 ---| BOPM     DATA   20H   LAST FL (CM)

Seq #  *Modification Id* Act 
----------------------------+
01121  M01S00073.v23l617 +++| BOLF     DATA   20H   LAST FL (CM)
01122  M00S00804.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01123  M01S00805.v23l617 ---| BOPN     DATA   20H   LAST FL (EC)

Seq #  *Modification Id* Act 
----------------------------+
01124  M01S00074.v23l617 +++| BOLE     DATA   20H   LAST FL (EM)
01125  M00S00806.enquire +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01126  M01S00807.v23l617 ---| BOLL     EQU    *-BOP

Seq #  *Modification Id* Act 
----------------------------+
01127  M01S00075.v23l617 +++| BOPL     EQU    *-BOP

Seq #  *Modification Id* Act 
----------------------------+
01128  M01S00161.ns22000 +++|          DATA   0
01129  M01S00162.ns22000 +++|          DATA   C*   JOB SECURITY ACCESS LEVELS*
01130  M01S00163.ns22000 +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00164.v23l617 ---| BOPO     DATA   20H   CURRENT

Seq #  *Modification Id* Act 
----------------------------+
01132  M01S00076.v23l617 +++| BOAL     DATA   20H   CURRENT

Seq #  *Modification Id* Act 
----------------------------+
01133  M01S00165.ns22000 +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01134  M02S00166.v23l617 ---| BOPP     DATA   20H   LOWER LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01135  M01S00077.v23l617 +++| BOLL     DATA   20H   LOWER LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01136  M01S00167.ns22000 +++|          DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01137  M02S00168.v23l617 ---| BOPQ     DATA   20H   UPPER LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01138  M01S00078.v23l617 +++| BOUL     DATA   20H   UPPER LIMIT

Seq #  *Modification Id* Act 
----------------------------+
01139  M01S00169.ns22000 +++|          DATA   0
01140  M01S00170.ns22000 +++|          DATA   0
01141  M01S00171.ns22000 +++|          DATA   C*   JOB SECURITY ACCESS CATEGORIES*

Seq #  *Modification Id* Act 
----------------------------+
01142  M02S00172.v23l617 ---| BOPR     DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01143  M01S00079.v23l617 +++| BOAC     DATA   0

Seq #  *Modification Id* Act 
----------------------------+
01144  M01S00173.ns22000 +++|          DATA   10H   *NONE*.
01145  M01S00174.ns22000 +++|          DATA   0
01146  M01S00175.ns22000 +++| BLLL     EQU    *-BOP       INITIAL OUTPUT LENGTH
01147  M01S00176.ns22000 +++|          DUP    39,1
01148  M01S00177.ns22000 +++|          DATA   0
01149  M00S00808.enquire +++| OPD      TITLE  D OPTION.
01150  M00S00809.enquire +++|**        THE OP = D OPTION RETURNS TO THE USER THE RESOURCE
01151  M00S00810.enquire +++|*         DEMAND AND ASSIGNED COUNTS FROM THE USER DEMAND FILE
01152  M00S00811.enquire +++|*         ENTRY.
01153  M00S00812.enquire +++|
01154  M00S00813.enquire +++|
01155  M00S00814.enquire +++| OPD      WRITEW OUTPUT,FOD,FODA  HEADER
01156  M00S00815.enquire +++|
01157  M00S00816.enquire +++|*         SET CORRECT DEMAND FILE NAME.
01158  M00S00817.enquire +++|
01159  M00S00818.enquire +++|          SA1    BUFF+RFCW
01160  M00S00819.enquire +++|          MX0    -18
01161  M00S00820.enquire +++|          BX6    -X0*X1
01162  M00S00821.enquire +++|          ZR     X6,OPD7     IF NO DEMAND FILE ENTRY
01163  M00S00822.enquire +++|          SYSTEM RSB,R,OPDA  READ MMFL WORD
01164  M00S00823.enquire +++|          SA1    OPDC        SET CORRECT DEMAND FILE NAME
01165  M00S00824.enquire +++|          MX0    12
01166  M00S00825.enquire +++|          BX3    X0*X1
01167  M00S00826.enquire +++|          SA2    OPDB
01168  M00S00827.enquire +++|          LX0    -24
01169  M00S00828.enquire +++|          BX2    -X0*X2
01170  M00S00829.enquire +++|          LX3    -24
01171  M00S00830.enquire +++|          BX6    X3+X2
01172  M00S00831.enquire +++|          SA6    A2+
01173  M00S00832.enquire +++|          ATTACH FILEFET,OPDB,,,RM,,,DF,FA
01174  M00S00833.enquire +++|          SA1    BUFF+RFCW  CHECK DEMAND FILE INDEX
01175  M00S00834.enquire +++|          MX0    -18
01176  M00S00835.enquire +++|          BX6    -X0*X1
01177  M00S00836.enquire +++|          SA6    FILEFET+6
01178  M00S00837.enquire +++|          READ   X2,R        READ DEMAND FILE ENTRY
01179  M00S00838.enquire +++|          SA5    FBUF+RVAL   CHECK FOR TOTAL DEMAND = TOTAL ASSIGN = 0
01180  M00S00839.enquire +++|          MX2    -24
01181  M00S00840.enquire +++|          BX2    -X2*X5
01182  M00S00841.enquire +++|          ZR     X2,OPD7     IF NO ASSIGNS/DEMANDS
01183  M00S00842.enquire +++|          SA5    FBUF+RMTP   GET FIRST MAGNETIC TAPE ENTRY WORD
01184  M00S00843.enquire +++|
01185  M00S00844.enquire +++|*         FORMAT LINE.
01186  M00S00845.enquire +++|
01187  M00S00846.enquire +++| OPD1     MX2    12          GET RESOURCE IDENTIFIER
01188  M00S00847.enquire +++|          BX1    X2*X5
01189  M00S00848.enquire +++|          SX3    A5-FBUF-RRPP
01190  M00S00849.enquire +++|          NG     X3,OPD2     IF MAGNETIC TAPE ENTRY
01191  M00S00850.enquire +++|          SX2    1R1         ENTER REMOVABLE PACK UNIT COUNT
01192  M00S00851.enquire +++|          LX2    -18
01193  M00S00852.enquire +++|          BX1    X1+X2
01194  M00S00853.enquire +++| OPD2     RJ     SFN         BLANK FILL RESOURCE IDENTIFIER
01195  M00S00854.enquire +++|          LX6    -24
01196  M00S00855.enquire +++|          SA6    FODB
01197  M00S00856.enquire +++|          LX5    12

Seq #  *Modification Id* Act 
----------------------------+
01198  M01S00178.ns22000 +++|          SX3    A5-FBUF-RRPP
01199  M01S00179.ns22000 +++|          PL     X3,OPD3     IF REMOVABLE PACK ENTRY
01200  M01S00180.ns22000 +++|
01201  M01S00181.ns22000 +++|*         ADD THE ASSIGNED AND DEMAND COUNTS FOR ALL ACCESS LEVELS
01202  M01S00182.ns22000 +++|*         OF MAGNETIC TAPE RESOURCE ENTRY.  PRINT NON-ZERO COUNTS.
01203  M01S00183.ns22000 +++|
01204  M01S00184.ns22000 +++|          BX1    X1-X1       INITIALIZE TOTAL ASSIGNED COUNT
01205  M01S00185.ns22000 +++|          BX3    X3-X3       INITIALIZE TOTAL DEMAND COUNT
01206  M01S00186.ns22000 +++|          SB2    B1+         INITIALIZE ENTRY WORD COUNT
01207  M01S00187.ns22000 +++| OPD2.1   SB3    3           INITIALIZE BYTE COUNT
01208  M01S00188.ns22000 +++| OPD2.2   MX2    -6          GET ASSIGNED COUNT
01209  M01S00189.ns22000 +++|          LX5    6
01210  M01S00190.ns22000 +++|          BX0    -X2*X5
01211  M01S00191.ns22000 +++|          IX1    X0+X1       ADD COUNT TO TOTAL COUNT
01212  M01S00192.ns22000 +++|          LX5    6           GET DEMAND COUNT
01213  M01S00193.ns22000 +++|          BX2    -X2*X5
01214  M01S00194.ns22000 +++|          IX3    X2+X3       ADD COUNT TO TOTAL COUNT
01215  M01S00195.ns22000 +++|          SB3    B3-B1
01216  M01S00196.ns22000 +++|          PL     B3,OPD2.2   IF NOT END OF ENTRY WORD
01217  M01S00197.ns22000 +++|          SB2    B2-B1
01218  M01S00198.ns22000 +++|          NG     B2,OPD2.3   IF END OF SECOND ENTRY WORD
01219  M01S00199.ns22000 +++|          SA5    A5+B1       READ SECOND ENTRY WORD
01220  M01S00200.ns22000 +++|          LX5    12
01221  M01S00201.ns22000 +++|          EQ     OPD2.1      RESET BYTE COUNT
01222  M01S00202.ns22000 +++|
01223  M01S00203.ns22000 +++| OPD2.3   BX0    X1+X3
01224  M01S00204.ns22000 +++|          BX5    X3
01225  M01S00205.ns22000 +++|          ZR     X0,OPD6     IF NO ASSIGNED/DEMAND COUNTS
01226  M01S00206.ns22000 +++|          EQ     OPD3.1      CONVERT ASSIGNED COUNT
01227  M01S00207.ns22000 +++|
01228  M01S00208.ns22000 +++|*         GET ASSIGNED/DEMAND COUNTS FOR REMOVABLE PACK ENTRIES.
01229  M01S00209.ns22000 +++|
01230  M00S00857.enquire +++| OPD3     MX2    -6          GET ASSIGNED COUNT
01231  M00S00858.enquire +++|          LX5    6
01232  M00S00859.enquire +++|          BX1    -X2*X5
01233  M00S00860.enquire +++|          MX3    -12         CHECK FOR ZERO ASSIGNED AND DEMAND COUNTS
01234  M00S00861.enquire +++|          LX5    6
01235  M00S00862.enquire +++|          BX3    -X3*X5
01236  M00S00863.enquire +++|          ZR     X3,OPD4     IF NO ASSIGNED/DEMAND COUNTS

Seq #  *Modification Id* Act 
----------------------------+
01237  M01S00864.ns22000 ---|          RJ     CDD         CONVERT ASSIGNED COUNT

Seq #  *Modification Id* Act 
----------------------------+
01238  M01S00210.ns22000 +++| OPD3.1   RJ     CDD         CONVERT ASSIGNED COUNT
01239  M00S00865.enquire +++|          LX6    18
01240  M00S00866.enquire +++|          MX2    -6
01241  M00S00867.enquire +++|          SA6    FODB+2
01242  M00S00868.enquire +++|          BX1    -X2*X5      GET DEMAND COUNT
01243  M00S00869.enquire +++|          RJ     CDD         CONVERT DEMAND COUNT
01244  M00S00870.enquire +++|          LX6    18
01245  M00S00871.enquire +++|          SA6    A6-B1
01246  M00S00872.enquire +++|          WRITEW OUTPUT,FODB,FODL
01247  M00S00873.enquire +++| OPD4     SX3    A5-FBUF-RRPP
01248  M00S00874.enquire +++|          NG     X3,OPD6     IF MAGNETIC TAPE ENTRY
01249  M00S00875.enquire +++|          SX2    B1          INCREMENT REMOVABLE PACK UNIT COUNT
01250  M00S00876.enquire +++|          SA1    FODB
01251  M00S00877.enquire +++|          LX2    18
01252  M00S00878.enquire +++|          SB2    X0+B1
01253  M00S00879.enquire +++|          IX6    X1+X2
01254  M00S00880.enquire +++|          SB3    X0-RPEW
01255  M00S00881.enquire +++|          SB2    A0-B2
01256  M00S00882.enquire +++|          SA6    A1
01257  M00S00883.enquire +++|          NZ     B3,OPD5     IF NOT END OF FIRST ENTRY WORD
01258  M00S00884.enquire +++|          SA5    A5+B1
01259  M00S00885.enquire +++|          LX5    12
01260  M00S00886.enquire +++| OPD5     SX0    X0+1
01261  M00S00887.enquire +++|          PL     B2,OPD3     IF MORE COUNTS TO PROCESS IN ENTRY
01262  M00S00888.enquire +++|          PL     B3,OPD6     IF SECOND ENTRY WORD PROCESSED
01263  M00S00889.enquire +++|          SA5    A5+1
01264  M00S00890.enquire +++| OPD6     SA5    A5+1

Seq #  *Modification Id* Act 
----------------------------+
01265  M01S00891.282l826 ---|          SX2    A5-FBUF-RQPD

Seq #  *Modification Id* Act 
----------------------------+
01266  M01S00001.282l826 +++|          SX2    A5-FBUF-RREQ

Proceed to Part 1