User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:qftlist

Deck QFTLIST

15 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.qftlist +++|          IDENT  QFTLST1,FWA,QFTLIST,01,00
00002  M01S00002.qftlist +++|          ABS
00003  M01S00003.qftlist +++|          SST
00004  M01S00004.qftlist +++|          SYSCOM B1
00005  M01S00005.qftlist +++|*COMMENT  QFTLIST - LIST ACTIVE QUEUED FILES.
Line S00006 Modification History
M01 (Added by) qftlist
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|          COMMENT  COPYRIGHT CONTROL DATA CORPORTATION.  1981.
00007  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.qftlist +++|          TITLE  QFTLIST - LIST ACTIVE QUEUED FILES.
00009  M01S00008.qftlist +++|          SPACE  4
00010  M01S00009.qftlist +++|*****     QFTLIST - LIST ACTIVE QUEUED FILES.
00011  M01S00010.qftlist +++|*         R. A. JAPS         78/01/27.
00012  M01S00011.qftlist +++|*         B. M. SLIWINSKI.   81/10/15.  (MODIFIED)
00013  M01S00012.qftlist +++|          SPACE  4
00014  M01S00013.qftlist +++|***       *QFTLIST* IS A QUEUE UTILITY PROGRAM THAT PROVIDES A LIST
00015  M01S00014.qftlist +++|*         OF INFORMATION PERTAINING TO ACTIVE QUEUED FILES.
00016  M01S00015.qftlist +++|          SPACE  4
00017  M01S00016.qftlist +++|***       *QALTER* IS A QUEUE UTILITY PROGRAM THAT ALLOWS AN OPERATOR
00018  M01S00017.qftlist +++|*         TO ALTER OUTPUT FILE CHARACTERISTICS.
00019  M01S00018.qftlist +++|          SPACE  4
00020  M01S00019.qftlist +++|***       *QFTLIST* IS CALLED BY THE QUEUED FILE SUPERVISOR PROGRAM
00021  M01S00020.qftlist +++|*         *QFSP* OR BY CONTROL STATEMENT.  THE FOLLOWING PARAMETERS
00022  M01S00021.qftlist +++|*         ARE VALID FOR *QFTLIST*.
00023  M01S00022.qftlist +++|*
00024  M01S00023.qftlist +++|*         FM = FAMILY NAME FOR DEVICES.
00025  M01S00024.qftlist +++|*         DN = DEVICE NUMBER
00026  M01S00025.qftlist +++|*         JSN = JSN OF FILE.
00027  M01S00026.qftlist +++|*         UJN = USER JOBNAME.
00028  M01S00027.qftlist +++|*         FC = FORMS CODE.
00029  M01S00028.qftlist +++|*         ID = IDENTIFIER NUMBER.
00030  M01S00001.ns22000 +++|*         LA = LOWER SECURITY ACCESS LEVEL.
00031  M01S00002.ns22000 +++|*         UA = UPPER SECURITY ACCESS LEVEL.
00032  M01S00029.qftlist +++|*         DF = DESTINATION FAMILY NAME.
00033  M01S00030.qftlist +++|*         UN = DESTINATION USER NUMBER.
00034  M01S00031.qftlist +++|*         L  = FILE TO RECEIVE OUTPUT.
00035  M01S00032.qftlist +++|*         LO = LIST OPTION.
00036  M01S00001.ns21000 +++|*         LD = DESTINATION LOGICAL IDENTIFIER (LID).
Line S00033 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00037  M02S00033.ns22000 ---|*         OT = DT.  SELECT ORIGIN TYPE BY DISPOSITION TYPE.
Line S00034 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00038  M02S00034.ns22000 ---|*                BC - SELECT BATCH/SYSTEM ORIGIN FILES BY FILE TYPE.
Line S00035 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00039  M02S00035.ns22000 ---|*                RB - SELECT REMOTE BATCH ORIGIN FILES BY FILE TYPE.
Line S00036 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00040  M02S00036.ns22000 ---|*                TT - SELECT TERMINAL ORIGIN FILES BY FILE TYPE.
00041  M01S00003.ns22000 +++|*         DS = DT.  SELECT FILE DESTINATION BY DISPOSITION TYPE.
00042  M01S00004.ns22000 +++|*                BC - SELECT FILES ROUTED TO LOCAL BATCH BY FILE TYPE.
00043  M01S00005.ns22000 +++|*                RB - SELECT FILES ROUTED TO REMOTE BATCH TERMINAL
00044  M01S00006.ns22000 +++|*                     BY FILE TYPE.
00045  M01S00037.qftlist +++|*         I  = ALTERNATE DIRECTIVE INPUT FILE. THIS IS A CONTROL
00046  M01S00038.qftlist +++|*                STATEMENT PARAMETER SPECIFYING WHAT FILE SHOULD
00047  M01S00039.qftlist +++|*                BE READ FOR INPUT DIRECTIVES.  THESE DIRECTIVES
00048  M01S00040.qftlist +++|*                CONSIST OF ANY VALID K-DISPLAY INPUT OR COMMANDS.
00049  M01S00041.qftlist +++|*                THESE DIRECTIVES WILL BE PROCESSED AFTER THE
00050  M01S00042.qftlist +++|*                CONTROL STATEMENT DIRECTIVES BUT BEFORE ANY
00051  M01S00043.qftlist +++|*                K-DISPLAY INPUT IS ACCEPTED.
00052  M01S00044.qftlist +++|*
00053  M01S00045.qftlist +++|*         THE FOLLOWING DIRECTIVES ARE ALSO VALID FOR *QALTER*.
00054  M01S00046.qftlist +++|*
00055  M01S00007.ns22000 +++|*         NAL = NEW SECURITY ACCESS LEVEL.
00056  M01S00047.qftlist +++|*         NDF = NEW DESTINATION FAMILY NAME.
00057  M01S00048.qftlist +++|*         NUN = NEW DESTINATION USER NUMBER.
00058  M01S00049.qftlist +++|*         NID = NEW FILE ID.
00059  M01S00050.qftlist +++|*         NPR = NEW PRIORITY FOR OUTPUT.
00060  M01S00051.qftlist +++|*         NFC = NEW FORMS CODE FOR OUTPUT.
00061  M01S00052.qftlist +++|*         NRC = NEW REPEAT COUNT FOR OUTPUT.
00062  M01S00053.qftlist +++|*         NDC = NEW DISPOSITION CODE.
00063  M01S00054.qftlist +++|*         NEC = NEW EXTERNAL CHARACTERISTICS FOR OUTPUT FILES.
00064  M01S00002.ns21000 +++|*         NLD = NEW DESTINATION LOGICAL IDENTIFIER (LID).
00065  M01S00055.qftlist +++|*         OP = ALTER OPTION.
00066  M01S00056.qftlist +++|*
00067  M01S00057.qftlist +++|*         SEE *QFSP* FOR A MORE DETAILED DESCRIPTION OF PARAMETERS.
00068  M01S00058.qftlist +++|          SPACE  4
00069  M01S00059.qftlist +++|***       DAYFILE MESSAGES.
00070  M01S00060.qftlist +++|*
00071  M01S00061.qftlist +++|*
00072  M01S00062.qftlist +++|*         * NO QUEUED FILES FOUND.*
00073  M01S00063.qftlist +++|*                *QFTLIST* OR *QALTER* WAS NOT ABLE TO FIND ANY
00074  M01S00064.qftlist +++|*                QUEUED FILES THAT SATISFY THE SELECTION
00075  M01S00065.qftlist +++|*                CRITERIA.
00076  M01S00066.qftlist +++|*
00077  M01S00067.qftlist +++|*         * QFTLIST/QALTER ABORTED.*
00078  M01S00068.qftlist +++|*                *QFTLIST* OR *QALTER* HAS BEEN ABORTED BY THE
00079  M01S00069.qftlist +++|*                SYSTEM. CONTACT THE SITE ANALYST.
00080  M01S00070.qftlist +++|*
00081  M01S00071.qftlist +++|*         * QAC ERROR ENCOUNTERED.*
00082  M01S00072.qftlist +++|*                THIS MESSAGE IS AN EXPLANATORY MESSAGE STATING
00083  M01S00073.qftlist +++|*                THAT *QFTLIST* OR *QALTER* WAS ABORTED.  AN
00084  M01S00074.qftlist +++|*                UNEXPECTED ERROR CODE WAS RETURNED BY *QAC*.
00085  M01S00075.qftlist +++|          SPACE  4
00086  M01S00076.qftlist +++|***       K-DISPLAY MESSAGES.
00087  M01S00077.qftlist +++|*
00088  M01S00078.qftlist +++|*
00089  M01S00079.qftlist +++|*         * INVALID PAGING ATTEMPT.*
00090  M01S00080.qftlist +++|*                AN ATTEMPT WAS MADE TO PAGE THE K-DISPLAY BEFORE
00091  M01S00081.qftlist +++|*                THE *LIST* COMMAND WAS ENTERED.
00092  M01S00082.qftlist +++|*
00093  M01S00083.qftlist +++|*         * NO QUEUED FILES FOUND.*
00094  M01S00084.qftlist +++|*                *QFTLIST* OR *QALTER* DID NOT FIND ANY QUEUED
00095  M01S00085.qftlist +++|*                FILES THAT MET THE SELECTION CRITERIA.
00096  M01S00086.qftlist +++|*
00097  M01S00087.qftlist +++|*         * QALTER COMPLETE.*
00098  M01S00088.qftlist +++|*                AN INFORMATIVE MESSAGE INDICATING THE *QALTER*
00099  M01S00089.qftlist +++|*                OPERATION IS COMPLETE.
00100  M01S00090.qftlist +++|*
00101  M01S00091.qftlist +++|*         * LIST COMPLETE.*
00102  M01S00092.qftlist +++|*                AN INFORMATIVE MESSAGE INDICATING THE *LIST*
00103  M01S00093.qftlist +++|*                OPERATION IS COMPLETE.
00104  M01S00094.qftlist +++|*
00105  M01S00095.qftlist +++|*         * OUTPUT FILE RELEASED.*
00106  M01S00096.qftlist +++|*                AN INFORMATIVE MESSAGE INDICATING THE *OUT*
00107  M01S00097.qftlist +++|*                OPERATION IS COMPLETE.
00108  M01S00098.qftlist +++|*
00109  M01S00099.qftlist +++|*         * NEW DESTINATION FAMILY/USER INVALID.*
00110  M01S00100.qftlist +++|*                THIS MESSAGE IS RETURNED BY *QALTER* TO INDICATE THAT
00111  M01S00101.qftlist +++|*                EITHER THE NEW DESTINATION FAMILY (*NDF*) OR THE
00112  M01S00102.qftlist +++|*                NEW DESTINATION USER NUMBER (*NUN*) IS NOT VALID.
00113  M01S00103.qftlist +++|*
00114  M01S00104.qftlist +++|*         * INCOMPLETE DESTINATION FAMILY/USER.*
00115  M01S00105.qftlist +++|*                IF EITHER *DF* OR *UN* IS SPECIFIED,
00116  M01S00106.qftlist +++|*                THE OTHER MUST ALSO BE SPECIFIED,
00117  M01S00107.qftlist +++|*                IN ORDER TO COMPLETELY IDENTIFY
00118  M01S00108.qftlist +++|*                THE SELECTED REMOTE TERMINAL.
00119  M01S00008.ns22000 +++|*
00120  M01S00009.ns22000 +++|*         * NOT VALIDATED TO CHANGE ACCESS LEVEL.*
00121  M01S00010.ns22000 +++|*                THE USER MUST HAVE SECURITY ADMINISTRATOR PRIVILEGES
00122  M01S00011.ns22000 +++|*                IN ORDER TO BE ALLOWED TO CHANGE THE ACCESS LEVEL
00123  M01S00012.ns22000 +++|*                OF A QUEUED FILE.
00124  M01S00109.qftlist +++|          SPACE  4
00125  M01S00110.qftlist +++|***       ENTRY CONDITONS.
00126  M01S00111.qftlist +++|*
00127  M01S00112.qftlist +++|*         *TARA* = FWA OF ARGUMENT TABLE.
00128  M01S00113.qftlist +++|*         *QFTA* = *QFTP* WORD FROM CENTRAL MEMORY RESIDENT.
00129  M01S00114.qftlist +++|*         *TEQA* = FWA OF MASS STORAGE EQUIPMENT TABLE.
00130  M01S00115.qftlist +++|          SPACE  4
00131  M01S00116.qftlist +++|*         COMMON DECKS.
00132  M01S00117.qftlist +++|
00133  M01S00118.qftlist +++|
00134  M01S00119.qftlist +++|*CALL     COMCMAC
00135  M01S00001.v23l617 +++|*CALL     COMCDCM
00136  M01S00001.241l630 +++|*CALL     COMCDCP
00137  M01S00120.qftlist +++|*CALL     COMSJIO
00138  M01S00013.ns22000 +++|*CALL     COMSMLS
00139  M01S00121.qftlist +++|*CALL     COMSQAC
00140  M01S00122.qftlist +++|          LIST   X
00141  M01S00123.qftlist +++|*CALL     COMSQFS
00142  M01S00124.qftlist +++|          LIST   -X
Line S00014 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00143  M02S00014.ns2217  ---|*CALL     COMSSCD
00144  M01S00125.qftlist +++|          TITLE  MACRO DEFINTIONS.
00145  M01S00126.qftlist +++| LINE     SPACE  4,10
00146  M01S00127.qftlist +++|**        LINE - GENERATE LINE.
00147  M01S00128.qftlist +++|*
00148  M01S00129.qftlist +++|*         LINE   CHAR
00149  M01S00130.qftlist +++|*                CHAR        CHARACTER STRING. IF NULL, END OF LINE.
00150  M01S00131.qftlist +++|
00151  M01S00132.qftlist +++|
00152  M01S00133.qftlist +++|          PURGMAC  LINE
00153  M01S00134.qftlist +++|
00154  M01S00135.qftlist +++| LINE     MACRO  C
00155  M01S00136.qftlist +++| .1       MICRO  1,,$C$
00156  M01S00137.qftlist +++|          IFC    NE,$C$$
00157  M01S00138.qftlist +++|          DATA   H$".1"$
00158  M01S00139.qftlist +++|          ELSE
00159  M01S00140.qftlist +++|          DATA   L*  *
00160  M01S00141.qftlist +++|          ENDIF
00161  M01S00142.qftlist +++|          ENDM
00162  M01S00001.ns2217  +++| SCLASS   SPACE  4,15
00163  M01S00002.ns2217  +++|**        SCLASS - DEFINE SERVICE CLASS TABLE.
00164  M01S00003.ns2217  +++|*
00165  M01S00004.ns2217  +++|*         SCLASS NM,MN,DF,ST,TX
00166  M01S00005.ns2217  +++|*
00167  M01S00006.ns2217  +++|*         ENTRY  *NM* = SERVICE CLASS NAME.
00168  M01S00007.ns2217  +++|*                *MN* = TWO CHARACTER MNEMONIC.
00169  M01S00008.ns2217  +++|*                *DF* = DAYFILE MESSAGE CHARACTER.
00170  M01S00009.ns2217  +++|*                *ST* = SHORT TEXT FOR *QFTLIST*.
00171  M01S00010.ns2217  +++|*                *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE.
00172  M01S00011.ns2217  +++|*
00173  M01S00012.ns2217  +++|*         NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF
00174  M01S00013.ns2217  +++|*                THIS MACRO.
00175  M01S00014.ns2217  +++|
00176  M01S00015.ns2217  +++|
00177  M01S00016.ns2217  +++|          PURGMAC SCLASS
00178  M01S00017.ns2217  +++|
00179  M01S00018.ns2217  +++| SCLASS   MACRO  NM,MN,DF,ST,TX
00180  M01S00019.ns2217  +++| .SCL     RMT
Line S00020 Modification History
M01 (Added by) ns2217
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00020.241l630 ---|          TABLE  NM,DF_.     TX
00182  M01S00002.241l630 +++|          TABLE  NM,DF       TX
00183  M01S00021.ns2217  +++| .SCL     RMT
00184  M01S00022.ns2217  +++| .SCL1    RMT
00185  M01S00023.ns2217  +++|          TABLE  NM,ST       TX
00186  M01S00024.ns2217  +++| .SCL1    RMT
00187  M01S00025.ns2217  +++| SCLASS   ENDM
00188  M01S00026.ns2217  +++|
00189  M01S00027.ns2217  +++|
00190  M01S00028.ns2217  +++| SCL$     EQU    1           PROCESS ALL CLASSES
00191  M01S00029.ns2217  +++|*CALL     COMSSCD
00192  M01S00143.qftlist +++| TABLE    SPACE  4,10
00193  M01S00144.qftlist +++|**        TABLE - GENERATE TABLE ENTRY.
00194  M01S00145.qftlist +++|*
00195  M01S00146.qftlist +++|*         TABLE  A,B
00196  M01S00147.qftlist +++|*
00197  M01S00148.qftlist +++|*                A = NUMERIC VALUE.
00198  M01S00149.qftlist +++|*                B = CHARACTER VALUE.
00199  M01S00150.qftlist +++|*
00200  M01S00151.qftlist +++|*         A ONE WORD TABLE ENTRY IS GENERATED.
00201  M01S00152.qftlist +++|*T,       18/ A, 42/ B
Figure

029 B30414259 B A

00202  M01S00153.qftlist +++|
00203  M01S00154.qftlist +++|
00204  M01S00155.qftlist +++|          PURGMAC TABLE
00205  M01S00156.qftlist +++|
00206  M01S00157.qftlist +++| TABLE    MACRO  A,B
00207  M01S00158.qftlist +++| .1       MICRO  1,7,$B$
00208  M01S00159.qftlist +++|          VFD    18/A,42/0H".1"
00209  M01S00160.qftlist +++|          ENDM
00210  M01S00161.qftlist +++| TABLEN   SPACE  4,10
00211  M01S00162.qftlist +++|**        TABLEN - GENERATE NUMERIC TABLE ENTRY.
00212  M01S00163.qftlist +++|*
00213  M01S00164.qftlist +++|*         TABLEN A,B
00214  M01S00165.qftlist +++|*
00215  M01S00166.qftlist +++|*         A = NUMERIC VALUE.
00216  M01S00167.qftlist +++|*         B = NUMERIC VALUE.
00217  M01S00168.qftlist +++|*
00218  M01S00169.qftlist +++|*         A ONE WORD TABLE ENTRY IS GENERATED.
00219  M01S00170.qftlist +++|*T,       18/ A, 42/ B
Figure

029 B30414259 B A

00220  M01S00171.qftlist +++|
00221  M01S00172.qftlist +++|
00222  M01S00173.qftlist +++|          PURGMAC  TABLEN
00223  M01S00174.qftlist +++|
00224  M01S00175.qftlist +++| TABLEN   MACRO  A,B
00225  M01S00176.qftlist +++|          VFD    18/A,42/B
00226  M01S00177.qftlist +++|          ENDM
00227  M01S00178.qftlist +++| TSDI     SPACE  4
00228  M01S00179.qftlist +++|**        TSDI - *SDI* TABLE ENTRY MACRO.
00229  M01S00180.qftlist +++|*
00230  M01S00181.qftlist +++|*         TSDI   PA,BA,FW,RI,ADDR1,ADDR2,TADDR
00231  M01S00182.qftlist +++|*
00232  M01S00183.qftlist +++|*T,       24/ , 18/ PR , 6/BA , 6/ FW , 6/ RI
Figure

0561112171829 RI FW BA PR 30353659 PR

00233  M01S00184.qftlist +++|*T,       6/ , 18/ ADDR1 , 18/ ADDR2 , 18/ TADDR
Figure

0171829 TADDR ADDR2 303536535459 ADDR2 ADDR1

00234  M01S00185.qftlist +++|*
00235  M01S00186.qftlist +++|*                PR = PROCESSOR ADDRESS.
00236  M01S00187.qftlist +++|*                BA = FIRST BIT ADDRESS OF FIELD TO EXTRACT.
00237  M01S00188.qftlist +++|*                FW = FIELD WIDTH OF FIELD TO EXTRACT.
00238  M01S00189.qftlist +++|*                RI = INDEX INTO REPLY ENTRY.
00239  M01S00190.qftlist +++|*                ADDR1 = K-DISPLAY ADDRESS FOR PROCESSED INFORMATION.
00240  M01S00191.qftlist +++|*                ADDR2 = OUTPUT BUFFER ADDRESS FOR PROCESSED
00241  M01S00192.qftlist +++|*                INFORMATION.
00242  M01S00193.qftlist +++|*                TADDR = TABLE ADDRESS.
00243  M01S00194.qftlist +++|
00244  M01S00195.qftlist +++|
00245  M01S00196.qftlist +++|          PURGMAC TSDI
00246  M01S00197.qftlist +++|
00247  M01S00198.qftlist +++| TSDI     MACRO  P,B,F,R,A1,A2,TA
00248  M01S00199.qftlist +++|          VFD    24/0,18/P,6/B,6/F,6/R
00249  M01S00200.qftlist +++|          VFD    6/0,18/A1,18/A2,18/TA
00250  M01S00201.qftlist +++|          ENDM
00251  M01S00202.qftlist +++|
00252  M01S00203.qftlist +++|          TITLE  ASSEMBLY CONSTANTS.
00253  M01S00204.qftlist +++|****      ASSEMBLY CONSTANTS.
00254  M01S00205.qftlist +++|
00255  M01S00206.qftlist +++|
Line S00207 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00256  M02S00207.ns22000 ---| LPRP     EQU    LINP-10     LINES PER PAGE
Line S00208 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00257  M02S00208.ns21000 ---| LRPY     EQU    14B         LENGTH OF REPLY ENTRY
Line S00003 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00258  M02S00003.ns22000 ---| LRPY     EQU    15B         LENGTH OF *QAC* REPLY BLOCK
00259  M01S00015.ns22000 +++| LRPY     EQU    16B         LENGTH OF *QAC* REPLY BLOCK
00260  M01S00209.qftlist +++| BQACL    MAX    ALLB,PKLB   LENGTH OF PARAMETER BLOCK BUFFER
00261  M01S00210.qftlist +++| TARG     EQU    TARA        FWA OF *QFSP* ARGUMENT TABLE
00262  M01S00016.ns22000 +++| LINE     EQU    TPPA+PPLN   LINE NUMBER
00263  M01S00017.ns22000 +++| PDFE     EQU    TPPA+PPPD   PRINT DENSITY FORMAT EFFECTOR
00264  M01S00211.qftlist +++| TEQP     EQU    TEQA        FWA OF *QFSP* EQUIPMENT TABLE
00265  M01S00212.qftlist +++| DSPBL    EQU    7           *DSP* PARAMETER BLOCK LENGTH
00266  M01S00213.qftlist +++| KBUFL    EQU    KMLL*7      K-DISPLAY BUFFER LENGTH
00267  M01S00214.qftlist +++| OBUFL    EQU    1001B       OUTPUT BUFFER SIZE
00268  M01S00215.qftlist +++| SBUFL    EQU    80          STRING BUFFER SIZE
00269  M01S00216.qftlist +++|****
00270  M01S00217.qftlist +++|
00271  M01S00218.qftlist +++|          SPACE  4,10
00272  M01S00219.qftlist +++|*         *DSP* FLAG BIT EQUIVALENCES.
00273  M01S00220.qftlist +++|
00274  M01S00221.qftlist +++|
00275  M01S00222.qftlist +++| FRDC     EQU    20B         DISPOSITION CODE
00276  M01S00223.qftlist +++|          TITLE  TABLES.
00277  M01S00224.qftlist +++|          ORG    OVLA
00278  M01S00225.qftlist +++| FWA      BSS    0           FIRST WORD ADDRESS OF BINARY
00279  M01S00226.qftlist +++| TDCM     SPACE  4,10
00280  M01S00227.qftlist +++|**        TDCM - TABLE OF DISPOSITION CODE MAPPINGS.
00281  M01S00228.qftlist +++|
00282  M01S00229.qftlist +++|
00283  M01S00230.qftlist +++| TDCM     BSS    0
Line S00231 Modification History
M01 (Added by) qftlist
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00231.241l630 ---|          VFD    18/2LTT,42/4        TERMINAL OUTPUT
00285  M01S00003.241l630 +++|          VFD    18/2LTT,42/1            TERMINAL OUTPUT
00286  M01S00004.241l630 +++|          VFD    18/2LLY,42/2            5970 PRINTER
00287  M01S00005.241l630 +++|          VFD    18/2LLX,42/4            5870 PRINTER
00288  M01S00232.qftlist +++|          VFD    18/2LLT,42/10B      580-20 PRINTER
00289  M01S00233.qftlist +++|          VFD    18/2LLS,42/20B      580-16 PRINTER
00290  M01S00234.qftlist +++|          VFD    18/2LLR,42/40B      580-12 PRINTER
00291  M01S00235.qftlist +++|          VFD    18/2LP2,42/100B     512 PRINTER
00292  M01S00236.qftlist +++|          VFD    18/2LLP,42/200B     ANY PRINTER
00293  M01S00237.qftlist +++|          VFD    18/2LPL,42/400B     PLOT
00294  M01S00238.qftlist +++|          VFD    18/2LPU,42/1000B    PUNCH
00295  M01S00239.qftlist +++|          VFD    18/2LIN,42/2000B    INPUT
00296  M01S00240.qftlist +++|          VFD    18/2LNO,42/2000B    INPUT - NO OUTPUT
00297  M01S00241.qftlist +++|          VFD    18/2LTO,42/2000B    INPUT - TERMINAL OUTPUT
00298  M01S00242.qftlist +++|          VFD    18/2LSF,42/4000B    INSTALLATION DISPOSITION CODE
00299  M01S00243.qftlist +++|          CON    0           END OF TABLE
00300  M01S00244.qftlist +++| TECH     SPACE  4,10
00301  M01S00245.qftlist +++|**        TECH - TABLE OF EXTERNAL CHARACTERISTICS FOR PUNCH FILES.
00302  M01S00246.qftlist +++|
00303  M01S00247.qftlist +++|
00304  M01S00248.qftlist +++| TECH     BSS    0
00305  M01S00249.qftlist +++|          TABLE  DFFR,PU     DEFAULT PUNCH
00306  M01S00250.qftlist +++|          TABLE  PBFR,SB     SYSTEM BINARY
00307  M01S00251.qftlist +++|          TABLE  P8FR,80COL  80 COLUMN BINARY
00308  M01S00252.qftlist +++|          TABLE  PHFR,O26    O26 PUNCH
00309  M01S00253.qftlist +++|          TABLE  P9FR,O29    O29 PUNCH
00310  M01S00254.qftlist +++|          TABLE  ASFR,ASCII  ASCII PUNCH
00311  M01S00255.qftlist +++|          CON    0           END OF TABLE
00312  M01S00256.qftlist +++| TECL     SPACE  4,10
00313  M01S00257.qftlist +++|**        TECL - TABLE OF EXTERNAL CHARACTERISTICS FOR PLOT FILES.
00314  M01S00258.qftlist +++|
00315  M01S00259.qftlist +++|
00316  M01S00260.qftlist +++| TECL     BSS    0
00317  M01S00261.qftlist +++|          TABLE  DFEX,PL     DEFAULT
00318  M01S00262.qftlist +++|          TABLE  T6EX,T6     TRANSPARENT 6-BIT PLOTTER
00319  M01S00263.qftlist +++|          TABLE  T8EX,T8     TRANSPARENT 8-BIT PLOTTER
00320  M01S00264.qftlist +++|          TABLE  A4EX,A4     ASCII 48 CHARACTER
00321  M01S00265.qftlist +++|          CON    0
00322  M01S00266.qftlist +++| TECP     SPACE  4
00323  M01S00267.qftlist +++|**        TECP - TABLE OF EXTERNAL CHARACTERISTICS FOR PRINT FILES.
00324  M01S00268.qftlist +++|
00325  M01S00269.qftlist +++|
00326  M01S00270.qftlist +++| TECP     BSS    0
00327  M01S00271.qftlist +++|          TABLE  DFEX,LP     DEFAULT
00328  M01S00272.qftlist +++|          TABLE  A4EX,A4     ASCII 48 CHARACTER
00329  M01S00273.qftlist +++|          TABLE  B4EX,B4     BCD 48 CHARACTER
00330  M01S00274.qftlist +++|          TABLE  B6EX,B6     BCD 64 CHARACTER
00331  M01S00275.qftlist +++|          TABLE  A6EX,A6     ASCII 64 CHARACTER
00332  M01S00276.qftlist +++|          TABLE  A9EX,A9     ASCII 96 CHARACTER
00333  M01S00277.qftlist +++|          CON    0
00334  M01S00278.qftlist +++| TICC     SPACE  4,10
00335  M01S00279.qftlist +++|**        TICC - TABLE OF INTERNAL CHARACTERISTICS CODES.
00336  M01S00280.qftlist +++|
00337  M01S00281.qftlist +++|
00338  M01S00282.qftlist +++| TICC     BSS    0
00339  M01S00283.qftlist +++|          TABLE  DCIC,DIS    DISPLAY CODE
00340  M01S00284.qftlist +++|          TABLE  ASIC,ASCII  ASCII
00341  M01S00285.qftlist +++|          TABLE  BNIC,BIN    BINARY
00342  M01S00001.ns2597  +++|          TABLE  A6IC,ASCII6 6/12 ASCII
00343  M01S00286.qftlist +++|          CON    0           END OF TABLE
00344  M01S00287.qftlist +++| TINT     SPACE  4
00345  M01S00288.qftlist +++|**        TINT - TABLE OF INTERRUPT STATUSES.
00346  M01S00289.qftlist +++|
00347  M01S00290.qftlist +++|
00348  M01S00291.qftlist +++| TINT     BSS    0
00349  M01S00292.qftlist +++|          TABLE  0,NO
00350  M01S00293.qftlist +++|          TABLE  1,YES
00351  M01S00294.qftlist +++|          CON    0           END OF TABLE
00352  M01S00018.ns22000 +++| TLVM     SPACE  4,10
00353  M01S00019.ns22000 +++|**        TLVM - TABLE OF SECURITY ACCESS LEVEL MAPPINGS.
00354  M01S00020.ns22000 +++|
00355  M01S00021.ns22000 +++|
00356  M01S00022.ns22000 +++| TLVM     BSS    0
00357  M01S00023.ns22000 +++|          TABLE  0,"ALM0"    ACCESS LEVEL 0
00358  M01S00024.ns22000 +++|          TABLE  1,"ALM1"    ACCESS LEVEL 1
00359  M01S00025.ns22000 +++|          TABLE  2,"ALM2"    ACCESS LEVEL 2
00360  M01S00026.ns22000 +++|          TABLE  3,"ALM3"    ACCESS LEVEL 3
00361  M01S00027.ns22000 +++|          TABLE  4,"ALM4"    ACCESS LEVEL 4
00362  M01S00028.ns22000 +++|          TABLE  5,"ALM5"    ACCESS LEVEL 5
00363  M01S00029.ns22000 +++|          TABLE  6,"ALM6"    ACCESS LEVEL 6
00364  M01S00030.ns22000 +++|          TABLE  7,"ALM7"    ACCESS LEVEL 7
00365  M01S00031.ns22000 +++|          CON    0           END OF TABLE
00366  M01S00295.qftlist +++| TNDC     SPACE  4,10
00367  M01S00296.qftlist +++|**        TNDC - TABLE OF NEW DISPOSITION CODES.
00368  M01S00297.qftlist +++|
00369  M01S00298.qftlist +++|
00370  M01S00299.qftlist +++| TNDC     BSS    0
00371  M01S00300.qftlist +++|          TABLE  LPQF,LP     ANY PRINTER
00372  M01S00301.qftlist +++|          TABLE  P2QF,P2     512 PRINTER
00373  M01S00302.qftlist +++|          TABLE  LRQF,LR     580-12 PRINTER
00374  M01S00303.qftlist +++|          TABLE  LSQF,LS     580-16 PRINTER
00375  M01S00304.qftlist +++|          TABLE  LTQF,LT     580-20 PRINTER
00376  M01S00006.241l630 +++|          TABLE  LXQF,LX     5870 NIP
00377  M01S00007.241l630 +++|          TABLE  LYQF,LY     5970 NIP
00378  M01S00305.qftlist +++|          CON    0           END OF TABLE
00379  M01S00306.qftlist +++| TNEC     SPACE  4,10
00380  M01S00307.qftlist +++|**        TNEC - TABLE OF SHIFT COUNTS FOR NEW EXTERNAL
00381  M01S00308.qftlist +++|*                CHARACTERISTICS.
00382  M01S00309.qftlist +++|
00383  M01S00310.qftlist +++|
00384  M01S00311.qftlist +++| TNEC     BSS    0
00385  M01S00312.qftlist +++|          CON    12          PRINT
00386  M01S00313.qftlist +++|          CON    24          PUNCH
00387  M01S00314.qftlist +++|          CON    0           PLOT
00388  M01S00001.qftli5  +++| TNUL     SPACE  4,10
00389  M01S00002.qftli5  +++|**        TNUL - NULL TABLE.
00390  M01S00003.qftli5  +++|
00391  M01S00004.qftli5  +++|
00392  M01S00005.qftli5  +++| TNUL     CON    0           END OF TABLE
00393  M01S00315.qftlist +++| TOOP     SPACE  4
00394  M01S00316.qftlist +++|**        TOOP - TABLE OF ALTER OPTIONS.
00395  M01S00317.qftlist +++|
00396  M01S00318.qftlist +++|
00397  M01S00319.qftlist +++| TOOP     BSS    0
00398  M01S00320.qftlist +++|          TABLE  BCOP,BC
00399  M01S00321.qftlist +++|          TABLE  RBOP,RB
00400  M01S00322.qftlist +++|          TABLE  NCOP,NC
00401  M01S00323.qftlist +++|          TABLE  PROP,PR
00402  M01S00324.qftlist +++|          CON    0           END OF TABLE
Line S00325 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00325.ns22000 ---| TOTC     SPACE  4,10
Line S00326 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00326.ns22000 ---|**        TOTC - TABLE OF ORIGIN TYPE CODES.
Line S00327 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00327.ns22000 ---|
Line S00328 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00328.ns22000 ---|
Line S00329 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00329.ns22000 ---| TOTC     BSS    0
Line S00330 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00330.ns22000 ---|          TABLE  SYOR,S.     SYSTEM
Line S00331 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00409  M02S00331.ns22000 ---|          TABLE  BCOR,B.     BATCH
Line S00332 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00410  M02S00332.ns22000 ---|          TABLE  RBOR,R.     REMOTE BATCH
Line S00333 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00411  M02S00333.ns22000 ---|          TABLE  TXOR,T.     TIMESHARING
Line S00334 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00412  M02S00334.ns22000 ---|          CON    0           END OF TABLE
Line S00335 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00413  M02S00335.ns22000 ---| TOTN     SPACE  4,10
Line S00336 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00414  M02S00336.ns22000 ---|**        TOTN - TABLE OF ORIGIN TYPE NAMES.
Line S00337 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00415  M02S00337.ns22000 ---|
Line S00338 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00338.ns22000 ---|
Line S00339 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00417  M02S00339.ns22000 ---| TOTN     BSS    0
Line S00340 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00418  M02S00340.ns22000 ---|          TABLE  SYOR,SYSTEM
Line S00341 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00419  M02S00341.ns22000 ---|          TABLE  BCOR,BATCH
Line S00342 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00342.ns22000 ---|          TABLE  RBOR,REMOTE
Line S00343 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00343.ns22000 ---|          TABLE  TXOR,TIMESHR
Line S00344 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00344.ns22000 ---|          CON    0           END OF TABLE
00423  M01S00345.qftlist +++| TQTC     SPACE  4,10
00424  M01S00346.qftlist +++|**        TQTC - TABLE OF QUEUE TYPES.
00425  M01S00347.qftlist +++|
00426  M01S00348.qftlist +++|
00427  M01S00349.qftlist +++| TQTC     BSS    0
00428  M01S00350.qftlist +++|          TABLE  INQQ,IN     INPUT
00429  M01S00351.qftlist +++|          TABLE  PRQQ,PR     PRINT
00430  M01S00352.qftlist +++|          TABLE  PHQQ,PH     PUNCH
00431  M01S00353.qftlist +++|          TABLE  PLQQ,PL     PLOT
00432  M01S00354.qftlist +++|          TABLE  WTQQ,WT     WAIT
00433  M01S00355.qftlist +++|          CON    0           END OF TABLE
00434  M01S00356.qftlist +++| TQTN     SPACE  4
00435  M01S00357.qftlist +++|**        TQTN - TABLE OF QUEUE TYPE NAMES.
00436  M01S00358.qftlist +++|
00437  M01S00359.qftlist +++|
00438  M01S00360.qftlist +++| TQTN     BSS    0
00439  M01S00361.qftlist +++|          TABLE  INQQ,INPUT
00440  M01S00362.qftlist +++|          TABLE  PRQQ,PRINT
00441  M01S00363.qftlist +++|          TABLE  PHQQ,PUNCH
00442  M01S00364.qftlist +++|          TABLE  PLQQ,PLOT
00443  M01S00365.qftlist +++|          TABLE  WTQQ,WAIT
00444  M01S00366.qftlist +++|          CON    0           END OF TABLE
00445  M01S00032.ns22000 +++| TSCC     SPACE  4,10
00446  M01S00033.ns22000 +++|**        TSCC - TABLE OF SERVICE CLASS CODES.
00447  M01S00034.ns22000 +++|
00448  M01S00035.ns22000 +++|
00449  M01S00036.ns22000 +++| TSCC     BSS    0
Line S00037 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00037.ns2217  ---|          TABLE  SYSC,S.
Line S00038 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00038.ns2217  ---|          TABLE  BCSC,B.
Line S00039 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00452  M02S00039.ns2217  ---|          TABLE  RBSC,R.
Line S00040 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00453  M02S00040.ns2217  ---|          TABLE  TSSC,T.
Line S00041 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00454  M02S00041.ns2217  ---|          TABLE  DISC,D.
Line S00042 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00455  M02S00042.ns2217  ---|          TABLE  NSSC,N.
Line S00043 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00456  M02S00043.ns2217  ---|          TABLE  SSSC,X.
Line S00044 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00457  M02S00044.ns2217  ---|          TABLE  MASC,M.
Line S00045 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00045.ns2217  ---|          TABLE  CTSC,C.
Line S00046 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00046.ns2217  ---|          TABLE  I0SC,0.
Line S00047 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00047.ns2217  ---|          TABLE  I1SC,1.
Line S00048 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00461  M02S00048.ns2217  ---|          TABLE  I2SC,2.
Line S00049 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00462  M02S00049.ns2217  ---|          TABLE  I3SC,3.
Line S00050 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00463  M02S00050.ns2217  ---|          TABLE  DSSC,A.
00464  M01S00030.ns2217  +++|          LIST   D
00465  M01S00031.ns2217  +++| .SCL     HERE
00466  M01S00032.ns2217  +++|          LIST   *
00467  M01S00051.ns22000 +++|          CON    0           END OF TABLE
00468  M01S00052.ns22000 +++| TSCN     SPACE  4,10
00469  M01S00053.ns22000 +++|**        TSCN - TABLE OF SERVICE CLASS NAMES.
00470  M01S00054.ns22000 +++|
00471  M01S00055.ns22000 +++|
00472  M01S00056.ns22000 +++| TSCN     BSS    0
Line S00057 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00473  M02S00057.ns2217  ---|          TABLE  SYSC,SYSTEM
Line S00058 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00474  M02S00058.ns2217  ---|          TABLE  BCSC,BATCH
Line S00059 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00059.ns2217  ---|          TABLE  RBSC,REMOTE
Line S00060 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00060.ns2217  ---|          TABLE  TSSC,TIMESHR
Line S00061 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00477  M02S00061.ns2217  ---|          TABLE  DISC,DETACH
Line S00062 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00478  M02S00062.ns2217  ---|          TABLE  NSSC,NETWORK
Line S00063 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00479  M02S00063.ns2217  ---|          TABLE  SSSC,SUBSYS
Line S00064 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00480  M02S00064.ns2217  ---|          TABLE  MASC,MAINTEN
Line S00065 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00481  M02S00065.ns2217  ---|          TABLE  CTSC,COMTASK
Line S00066 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00482  M02S00066.ns2217  ---|          TABLE  I0SC,ICLASS0
Line S00067 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00483  M02S00067.ns2217  ---|          TABLE  I1SC,ICLASS1
Line S00068 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00484  M02S00068.ns2217  ---|          TABLE  I2SC,ICLASS2
Line S00069 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00485  M02S00069.ns2217  ---|          TABLE  I3SC,ICLASS3
Line S00070 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2217
Seq #  *Modification Id* Act 
----------------------------+
00486  M02S00070.ns2217  ---|          TABLE  DSSC,DEADST
00487  M01S00033.ns2217  +++|          LIST   D
00488  M01S00034.ns2217  +++| .SCL1    HERE
00489  M01S00035.ns2217  +++|          LIST   *
00490  M01S00071.ns22000 +++|          CON    0           END OF TABLE
00491  M01S00367.qftlist +++|          TITLE  WORKING STORAGE.
00492  M01S00368.qftlist +++|*         WORKING STORAGE.
00493  M01S00369.qftlist +++|
00494  M01S00370.qftlist +++|
00495  M01S00371.qftlist +++| NRPY     CON    0           NUMBER OF ENTRIES IN REPLY BUFFER
00496  M01S00372.qftlist +++| MRPY     CON    0           MAXIMUM NUMBER OF ENTRIES FOR REPLY BUFFER
00497  M01S00373.qftlist +++| BLKS     DATA   H*          *  WORD OF BLANKS
00498  M01S00374.qftlist +++| CHCT     CON    0           CHARACTER COUNT PER LINE
00499  M01S00375.qftlist +++| CIND     CON    0           CURRENT INDEX INTO REPLY BUFFER
00500  M01S00376.qftlist +++| INDX     CON    0           INDEX INTO K-DISPLAY BUFFER
00501  M01S00377.qftlist +++| ENPG     CON    0           ENTRY PER PAGE
00502  M01S00378.qftlist +++| NMPG     CON    0           NUMBER OF ENTRIES PER PAGE
00503  M01S00379.qftlist +++| FUNC     CON    0           FUNCTION CODE
Line S00380 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00504  M02S00380.ns22000 ---| LINE     CON    0           LINE NUMBER
00505  M01S00381.qftlist +++| PAGE     CON    0           PAGE NUMBER
00506  M01S00382.qftlist +++|          SPACE  4
00507  M01S00383.qftlist +++|*         FETS AND PARAMETER BLOCKS.
00508  M01S00384.qftlist +++|
00509  M01S00385.qftlist +++|
00510  M01S00386.qftlist +++| BQAC     BSS    BQACL       *QAC* PARAMETER BLOCK BUFFER
00511  M01S00387.qftlist +++|
00512  M01S00388.qftlist +++| BQACA    BSS    2           CURRENT DESTINATION FAMILY/USER/UI
00513  M01S00389.qftlist +++| BQACB    BSS    2           NEW DESTINATION FAMILY/USER
00514  M01S00390.qftlist +++|
00515  M01S00391.qftlist +++| O        BSS    0           OUTPUT FILE FET
00516  M01S00392.qftlist +++| OUTPUT   FILEB  OBUF,OBUFL,(FET=7)
00517  M01S00393.qftlist +++|          TITLE  MAIN ROUTINE.
00518  M01S00394.qftlist +++|*         QFTLIST - MAIN ROUTINE.
00519  M01S00395.qftlist +++|
00520  M01S00396.qftlist +++|
00521  M01S00397.qftlist +++| QFTLIST  SUBR               ENTRY/EXIT
00522  M01S00398.qftlist +++|          SA1    MRPY
00523  M01S00399.qftlist +++|          NZ     X1,QFT1     IF REPLY BUFFER SET UP
00524  M01S00400.qftlist +++|          RJ     PRS         PRESET
00525  M01S00401.qftlist +++| QFT1     SA1    TARG+ARFC   SET FUNCTION CODE
00526  M01S00402.qftlist +++|          MX0    -12
00527  M01S00403.qftlist +++|          BX7    -X0*X1
00528  M01S00404.qftlist +++|          LX1    48
00529  M01S00405.qftlist +++|          SA7    FUNC
00530  M01S00406.qftlist +++|          BX6    -X0*X1      EXTRACT LIST ORDINAL
00531  M01S00407.qftlist +++|          SB5    X7-FUN1
00532  M01S00408.qftlist +++|          SB6    X7-FUN2
00533  M01S00409.qftlist +++|          ZR     B5,QFT3     IF *PAGE* FUNCTION
00534  M01S00410.qftlist +++|          NZ     B6,QFT2     IF NOT *LIST* OPTION
00535  M01S00411.qftlist +++|          ZR     X6,QFT2     IF NO *LIST* ORDINAL
00536  M01S00412.qftlist +++|          SX7    FUN4        SET *DETAILED LIST* OPTION
00537  M01S00413.qftlist +++|          SA7    FUNC
00538  M01S00414.qftlist +++|          SA6    DLTA        SAVE ORDINAL
00539  M01S00415.qftlist +++| QFT2     RJ     CIP         CHECK INCOMPLETE PARAMETERS
00540  M01S00416.qftlist +++|          NZ     X5,QFT4     IF ERROR
00541  M01S00417.qftlist +++|          RJ     FRB         FILL REPLY BUFFER
00542  M01S00418.qftlist +++|          RJ     SRB         SORT REPLY BUFFER
00543  M01S00419.qftlist +++|          RJ     ERB         EDIT REPLY BUFFER
00544  M01S00420.qftlist +++| QFT3     SA1    FUNC        SET PROCESSOR ADDRESS
00545  M01S00421.qftlist +++|          SA1    TFAD+X1
00546  M01S00422.qftlist +++|          SX5    =C* INVALID PAGING ATTEMPT.                   *
00547  M01S00423.qftlist +++|          NZ     X1,QFT5     IF NOT *PAGE* PROCESSOR
00548  M01S00424.qftlist +++| QFT4     SX2    -1          INDICATE NOT TO CHANGE K-DISPLAY
00549  M01S00425.qftlist +++|          EQ     QFTLISTX    RETURN
00550  M01S00426.qftlist +++|
00551  M01S00427.qftlist +++| QFT5     SB7    X1+
00552  M01S00428.qftlist +++|          RJ     ICE
00553  M01S00429.qftlist +++|          EQ     QFTLISTX    RETURN
00554  M01S00430.qftlist +++| TFAD     SPACE  4,10
00555  M01S00431.qftlist +++|**        TFAD - TABLE OF FUNCTION PROCESSOR ADDRESSES.
00556  M01S00432.qftlist +++|*
00557  M01S00433.qftlist +++|*         42/  , 18/ FWA OF PROCESSOR
00558  M01S00434.qftlist +++|
00559  M01S00435.qftlist +++|
00560  M01S00436.qftlist +++| TFAD     BSS    0
00561  M01S00437.qftlist +++|          LOC    0
00562  M01S00438.qftlist +++| FUN0     CON    ALT         *GO* PROCESSOR
00563  M01S00439.qftlist +++| FUN1     CON    0           *PAGE* PROCESSOR
00564  M01S00440.qftlist +++| FUN2     CON    LST         *LIST* PROCESSOR
00565  M01S00441.qftlist +++| FUN3     CON    OUT         *OUT* PROCESSOR
00566  M01S00442.qftlist +++| FUN4     CON    DLT         *DETAILED LIST* PROCESSOR
00567  M01S00443.qftlist +++|          LOC    *O
00568  M01S00444.qftlist +++|          TITLE  FUNCTION PROCESSORS.
00569  M01S00445.qftlist +++| ALT      SPACE  4,20
00570  M01S00446.qftlist +++|**        ALT - ALTER QUEUED FILES.
00571  M01S00447.qftlist +++|*
00572  M01S00448.qftlist +++|*         ENTRY  (NRPY) = NUMBER OF ENTRIES IN *RBUF*.
00573  M01S00449.qftlist +++|*
00574  M01S00450.qftlist +++|*         EXIT   (X2) = 0.
00575  M01S00451.qftlist +++|*                (X5) = FWA OF K-DISPLAY MESSAGE.
00576  M01S00452.qftlist +++|*
00577  M01S00453.qftlist +++|*         USES   A - 0, 1, 2, 5, 6, 7.
00578  M01S00454.qftlist +++|*                X - 0, 1, 2, 5, 6, 7.
00579  M01S00455.qftlist +++|*
00580  M01S00456.qftlist +++|*         CALLS  AQF, CDD, CFS, SDI.
00581  M01S00457.qftlist +++|*
00582  M01S00458.qftlist +++|*         MACROS CLOCK, DATE, MESSAGE, SETFS, WRITER, WRITEW.
00583  M01S00459.qftlist +++|
00584  M01S00460.qftlist +++|
00585  M01S00461.qftlist +++| ALT      SUBR               ENTRY/EXIT
00586  M01S00462.qftlist +++|          SA2    NRPY
00587  M01S00463.qftlist +++|          ZR     X2,ALT4     IF REPLY ENTRY EMPTY
00588  M01S00464.qftlist +++|          SA1    TARG+ARLL   SET OUTPUT FILE NAME
00589  M01S00465.qftlist +++|          MX0    42
00590  M01S00466.qftlist +++|          BX1    X0*X1
00591  M01S00467.qftlist +++|          SX7    B1
00592  M01S00468.qftlist +++|          BX6    X1+X7
00593  M01S00469.qftlist +++|          SA6    O
00594  M01S00470.qftlist +++|          SA7    PAGE        SET PAGE COUNT
00595  M01S00471.qftlist +++|          SX6    B0+         SET REPLY BUFFER INDEX
00596  M01S00472.qftlist +++|          SA6    CIND
00597  M01S00473.qftlist +++|          SA7    LINE        SET LINE COUNT
Line S00474 Modification History
M01 (Added by) qftlist
M02 (Updated by) qftli3
Seq #  *Modification Id* Act 
----------------------------+
00598  M02S00474.qftli3  ---|          SX7    9           SET ENTRIES PER PAGE
00599  M01S00001.qftli3  +++|          SA1    LINE+1      NUMBER OF LINES PER PAGE
00600  M01S00002.qftli3  +++|          SX7    X1-13
00601  M01S00003.qftli3  +++|          SX6    6
00602  M01S00004.qftli3  +++|          IX7    X7/X6       NUMBER OF ENTRIES PER PAGE
00603  M01S00475.qftlist +++|          SA7    NMPG
00604  M01S00476.qftlist +++|          SA2    TARG+ARNU   SET NEW DESTINATION USER
00605  M01S00477.qftlist +++|          SA1    TARG+ARND   SET NEW DESTINATION FAMILY
00606  M01S00478.qftlist +++|          SX7    X7+B1
00607  M01S00479.qftlist +++|          SA7    ENPG
00608  M01S00480.qftlist +++|          BX6    X1
00609  M01S00481.qftlist +++|          BX7    X2
00610  M01S00482.qftlist +++|          SA6    BQACB
00611  M01S00483.qftlist +++|          SA7    A6+B1
00612  M01S00484.qftlist +++|          DATE   GBUFA+1     SET DATE AND TIME IN PAGE HEADER
00613  M01S00485.qftlist +++|          CLOCK  GBUFA+2
00614  M01S00072.ns22000 +++|          SX6    1           SET PRINT DENSITY FORMAT CONTROL FLAG
00615  M01S00073.ns22000 +++|          SA6    PDFE+1
00616  M01S00486.qftlist +++|
00617  M01S00487.qftlist +++|*         SET NEW DESTINATION INFORMATION IN HEADER.
00618  M01S00488.qftlist +++|
00619  M01S00489.qftlist +++|          SA5    TOAI-1
00620  M01S00490.qftlist +++|          SA0    TARG
00621  M01S00491.qftlist +++|          RJ     SDI         SET DETAILED INFORMATION
00622  M01S00492.qftlist +++|
00623  M01S00493.qftlist +++|*         ALTER SELECTED QUEUED FILES.
00624  M01S00494.qftlist +++|
00625  M01S00495.qftlist +++| ALT1     SA1    CIND        SET FWA OF REPLY ENTRY
00626  M01S00496.qftlist +++|          SX2    LRPY
00627  M01S00497.qftlist +++|          IX2    X2*X1
00628  M01S00498.qftlist +++|          SA0    X2+RBUF
00629  M01S00499.qftlist +++|          RJ     CFS         CHECK FILE STATUS
00630  M01S00500.qftlist +++|          NZ     X1,ALT3     IF FILE NOT SELECTED
00631  M01S00501.qftlist +++|          RJ     AQF         ALTER QUEUED FILE
00632  M01S00502.qftlist +++|          MI     X2,ALTX     IF ERROR IN FAMILY/USER
00633  M01S00074.ns22000 +++|          SX1    X2-2
00634  M01S00075.ns22000 +++|          ZR     X1,ALT4.1   IF ERROR ON ALTERING ACCESS LEVEL
00635  M01S00503.qftlist +++|          NZ     X2,ALT3     IF FILE NOT ALTERED
00636  M01S00504.qftlist +++|          SA1    NMPG
00637  M01S00505.qftlist +++|          SA2    ENPG
00638  M01S00506.qftlist +++|          SX6    X1+B1
00639  M01S00507.qftlist +++|          SA6    A1+
00640  M01S00508.qftlist +++|          IX6    X6-X2
00641  M01S00509.qftlist +++|          NZ     X6,ALT2     IF NOT BOTTOM OF PAGE
00642  M01S00510.qftlist +++|          SA6    A1+
00643  M01S00511.qftlist +++|          SA1    PAGE        INCREMENT PAGE COUNT
00644  M01S00512.qftlist +++|          SX6    X1+B1
00645  M01S00513.qftlist +++|          SA6    A1
00646  M01S00514.qftlist +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY CODE
00647  M01S00515.qftlist +++|          SA6    GBUFA+4
00648  M01S00076.ns22000 +++|          SA1    PDFE+1      GET PRINT DENSITY FORMAT CONTROL FLAG
00649  M01S00077.ns22000 +++|          BX7    X7-X7
00650  M01S00078.ns22000 +++|          SA7    A1
00651  M01S00079.ns22000 +++|          WRITEW O,A1-B1,X1  CONDITIONALLY WRITE FORMAT EFFECTOR
00652  M01S00516.qftlist +++|          WRITEW O,GBUF,GBUFL
00653  M01S00517.qftlist +++|          WRITEW O,IBUF,IBUFL
00654  M01S00518.qftlist +++|
00655  M01S00519.qftlist +++| ALT2     SA1    LINE        ADVANCE LINE NUMBER
00656  M01S00520.qftlist +++|          SX6    X1+B1
00657  M01S00521.qftlist +++|          SA6    A1
00658  M01S00522.qftlist +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY CODE
00659  M01S00523.qftlist +++|          SX1    2R. -1R     INSERT PERIOD
00660  M01S00524.qftlist +++|          LX6    12
00661  M01S00525.qftlist +++|          BX6    X6+X1
00662  M01S00526.qftlist +++|          SA6    DLNM
00663  M01S00527.qftlist +++|          SA5    TORI-1
00664  M01S00528.qftlist +++|          RJ     SDI         SET DETAILED INFORMATION
00665  M01S00529.qftlist +++|          WRITEW O,DBUF,DBUFL
00666  M01S00530.qftlist +++|
00667  M01S00531.qftlist +++| ALT3     SA1    CIND        ADVANCE REPLY BUFFER INDEX
00668  M01S00532.qftlist +++|          SA2    NRPY
00669  M01S00533.qftlist +++|          SX6    X1+B1
00670  M01S00534.qftlist +++|          SA6    A1
00671  M01S00535.qftlist +++|          BX7    X6-X2
00672  M01S00536.qftlist +++|          NZ     X7,ALT1     IF NOT END OF BUFFER
00673  M01S00537.qftlist +++|          SA1    LINE
00674  M01S00538.qftlist +++|          SX1    X1-1
00675  M01S00539.qftlist +++|          NZ     X1,ALT5     IF FILE WRITTEN
00676  M01S00540.qftlist +++| ALT4     SX5    =C* NO QUEUED FILES FOUND.                 *
Line S00541 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00677  M02S00541.ns22000 ---|          MESSAGE X5,3
00678  M01S00080.ns22000 +++| ALT4.1   MESSAGE  X5,3
00679  M01S00542.qftlist +++|          BX2    X2-X2
00680  M01S00543.qftlist +++|          EQ     ALTX        RETURN
00681  M01S00544.qftlist +++|
00682  M01S00545.qftlist +++| ALT5     WRITER O,R
00683  M01S00546.qftlist +++|          SETFS  O,0
00684  M01S00547.qftlist +++|          SX5    =C* QALTER COMPLETE.                       *
00685  M01S00548.qftlist +++|          BX2    X2-X2
00686  M01S00549.qftlist +++|          EQ     ALTX        RETURN
00687  M01S00550.qftlist +++| DLT      SPACE  4,10
00688  M01S00551.qftlist +++|**        DLT - DETAILED LIST PROCESSOR.
00689  M01S00552.qftlist +++|*
00690  M01S00553.qftlist +++|*         ENTRY  (CIND) = CURRENT INDEX INTO REPLY BUFFER.
00691  M01S00554.qftlist +++|*                (DLTA) = 0, IF PAGE FUNCTION.
00692  M01S00555.qftlist +++|*                       = QFT ORDINAL TO DISPLAY.
00693  M01S00556.qftlist +++|*
00694  M01S00557.qftlist +++|*         EXIT   (CIND) = CURRENT INDEX INTO REPLY BUFFER.
00695  M01S00558.qftlist +++|*                (X2) = FWA OF K-DISPLAY BUFFER.
00696  M01S00559.qftlist +++|*                (X5) = FWA OF K-DISPLAY MESSAGE.
00697  M01S00560.qftlist +++|*
00698  M01S00561.qftlist +++|*         USES   A - 0, 1, 3, 4, 5, 6, 7.
00699  M01S00562.qftlist +++|*                X - ALL.
00700  M01S00563.qftlist +++|*
00701  M01S00564.qftlist +++|*         CALLS  SDI.
00702  M01S00565.qftlist +++|
00703  M01S00566.qftlist +++|
00704  M01S00567.qftlist +++| DLT4     BX2    X2-X2       CLEAR RIGHT SCREEN K-DISPLAY
00705  M01S00568.qftlist +++|          SX5    =C* NO QUEUED FILES FOUND.                *
00706  M01S00569.qftlist +++|
00707  M01S00570.qftlist +++| DLT      SUBR               ENTRY/EXIT
00708  M01S00571.qftlist +++|
00709  M01S00572.qftlist +++|*         CONVERT QFT ORDINAL TO BUFFER INDEX.
00710  M01S00573.qftlist +++|
00711  M01S00574.qftlist +++|          SX2    LRPY
00712  M01S00575.qftlist +++|          SA3    NRPY
00713  M01S00576.qftlist +++|          SA1    DLTA
00714  M01S00577.qftlist +++|          ZR     X1,DLT2     IF ORDINAL NOT SPECIFIED
00715  M01S00578.qftlist +++|          MX0    -12
00716  M01S00579.qftlist +++|          SX6    -B1         PRESET BUFFER INDEX
00717  M01S00580.qftlist +++| DLT1     SX6    X6+B1
00718  M01S00581.qftlist +++|          BX4    X6-X3
00719  M01S00582.qftlist +++|          ZR     X4,DLT4     IF FILE NOT FOUND
00720  M01S00583.qftlist +++|          IX5    X6*X2
00721  M01S00584.qftlist +++|          SA4    X5+RBUF     CHECK QFT ORDINAL
00722  M01S00585.qftlist +++|          LX4    -24
00723  M01S00586.qftlist +++|          BX4    X4-X1
00724  M01S00587.qftlist +++|          BX4    -X0*X4
00725  M01S00588.qftlist +++|          NZ     X4,DLT1     IF NO MATCH
00726  M01S00589.qftlist +++|          SA6    CIND        SET BUFFER INDEX
00727  M01S00590.qftlist +++|
00728  M01S00591.qftlist +++|*         DISPLAY FILE INFORMATION.
00729  M01S00592.qftlist +++|
00730  M01S00593.qftlist +++| DLT2     SA1    CIND        DETERMINE FWA OF REPLY ENTRY
00731  M01S00594.qftlist +++|          IX2    X1*X2
00732  M01S00595.qftlist +++|          SX6    X1+B1       UPDATE INDEX TO NEXT REPLY ENTRY
00733  M01S00596.qftlist +++|          SA0    RBUF+X2
00734  M01S00597.qftlist +++|          SA6    A1+
00735  M01S00598.qftlist +++|          BX7    X6-X3
00736  M01S00599.qftlist +++|          NZ     X7,DLT3     IF NOT END OF REPLY BUFFER
00737  M01S00600.qftlist +++|          SA7    A1          SET INDEX TO FIRST ENTRY
00738  M01S00601.qftlist +++| DLT3     SA5    TORI-1
00739  M01S00602.qftlist +++|          RJ     SDI         SET DETAILED INFORMATION
00740  M01S00603.qftlist +++|          SX5    =C* LIST COMPLETE.                         *
00741  M01S00604.qftlist +++|          SX2    LBUF        SET FWA OF K-DISPLAY
00742  M01S00605.qftlist +++|          SX6    DLT         SET PAGE PROCESSOR
00743  M01S00606.qftlist +++|          SA6    TFAD+FUN1
00744  M01S00607.qftlist +++|          SX6    B0+         CLEAR QFT ORDINAL
00745  M01S00608.qftlist +++|          SA6    DLTA
00746  M01S00609.qftlist +++|          EQ     DLTX        RETURN
00747  M01S00610.qftlist +++|
00748  M01S00611.qftlist +++| DLTA     CON    0           QFT ORDINAL
00749  M01S00612.qftlist +++| LST      SPACE  4,10
00750  M01S00613.qftlist +++|**        LST - FULL K-DISPLAY LIST PROCESSOR.
00751  M01S00614.qftlist +++|*
00752  M01S00615.qftlist +++|*         ENTRY  (CIND) = CURRENT INDEX INTO REPLY BUFFER.
00753  M01S00616.qftlist +++|*
00754  M01S00617.qftlist +++|*         EXIT   (CIND) = CURRENT INDEX INTO REPLY BUFFER.
00755  M01S00618.qftlist +++|*                (X5) = FWA OF K-DISPLAY MESSAGE.
00756  M01S00619.qftlist +++|*                (X2) = FWA OF K-DISPLAY BUFFER.
00757  M01S00620.qftlist +++|*
00758  M01S00621.qftlist +++|*         USES   A - 0, 1, 2, 5, 6, 7.
00759  M01S00622.qftlist +++|*                X - 1, 2, 3, 5, 6, 7.
00760  M01S00623.qftlist +++|*
00761  M01S00624.qftlist +++|*         CALLS  BDL, CFS, SLB.
00762  M01S00625.qftlist +++|*
00763  M01S00626.qftlist +++|*         MACROS MESSAGE, MOVE.
00764  M01S00627.qftlist +++|
00765  M01S00628.qftlist +++|
00766  M01S00629.qftlist +++| LST6     SX5    =C* LIST COMPLETE.                         *
00767  M01S00630.qftlist +++|          SX2    KBUF        SET K-DISPLAY BUFFER
00768  M01S00631.qftlist +++|          SX6    LST         SET PAGE PROCESSOR
00769  M01S00632.qftlist +++|          SA6    TFAD+FUN1
00770  M01S00633.qftlist +++|
00771  M01S00634.qftlist +++| LST      SUBR               ENTRY/EXIT
00772  M01S00635.qftlist +++|          MOVE   LSTCL,LSTC,KBUF+1  SET DISPLAY HEADER
Line S00636 Modification History
M01 (Added by) qftlist
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00773  M02S00636.241l630 ---|          SX6    KMLL-14     PRESET LINE COUNT
00774  M01S00008.241l630 +++|          SX6    KMLL-6      PRESET LINE COUNT
00775  M01S00637.qftlist +++|          SA6    LINE
00776  M01S00638.qftlist +++|          SX6    KBUF+1+LSTCL  PRESET WORD ADDRESS INTO *KBUF*
00777  M01S00639.qftlist +++|          SA6    INDX
00778  M01S00640.qftlist +++|          SX7    B0+         CLEAR WRAP AROUND FLAG
00779  M01S00641.qftlist +++|          SA7    LSTD
00780  M01S00642.qftlist +++|          SA2    NRPY
00781  M01S00643.qftlist +++|          ZR     X2,LST5     IF NO REPLY ENTRIES IN BUFFER
00782  M01S00644.qftlist +++|
00783  M01S00645.qftlist +++|*         CHECK NEXT REPLY ENTRY IN BUFFER.
00784  M01S00646.qftlist +++|
00785  M01S00647.qftlist +++| LST1     SA1    CIND        DETERMINE FWA OF REPLY ENTRY
00786  M01S00648.qftlist +++|          SX2    LRPY
00787  M01S00649.qftlist +++|          IX2    X1*X2
00788  M01S00650.qftlist +++|          SA0    RBUF+X2
00789  M01S00651.qftlist +++|          RJ     CFS         CHECK FILE STATUS
00790  M01S00652.qftlist +++|          NZ     X1,LST3     IF FILE NOT SELECTED
00791  M01S00653.qftlist +++|          SA1    LINE        DECREMENT LINE COUNT
00792  M01S00654.qftlist +++|          SX6    X1-1
00793  M01S00655.qftlist +++|          SA6    A1+
00794  M01S00656.qftlist +++|          NZ     X6,LST2     IF NOT END OF DISPLAY
00795  M01S00657.qftlist +++|          SA5    INDX
00796  M01S00658.qftlist +++|          MOVE   LSTAL,LSTA,X5
00797  M01S00659.qftlist +++|          EQ     LST6        SET EXIT CONDITIONS
00798  M01S00660.qftlist +++|
00799  M01S00661.qftlist +++|*         SET NEXT LINE IN DISPLAY.
00800  M01S00662.qftlist +++|
00801  M01S00663.qftlist +++| LST2     RJ     BDL         BUILD K-DISPLAY LINE
00802  M01S00664.qftlist +++|          RJ     SLB         SET LINE IN BUFFER
00803  M01S00665.qftlist +++|
00804  M01S00666.qftlist +++|*         UPDATE CURRENT INDEX INTO REPLY BUFFER.
00805  M01S00667.qftlist +++|
00806  M01S00668.qftlist +++| LST3     SA1    CIND        UPDATE CURRENT INDEX
00807  M01S00669.qftlist +++|          SA2    NRPY
00808  M01S00670.qftlist +++|          SX6    X1+B1
00809  M01S00671.qftlist +++|          BX7    X6-X2
00810  M01S00672.qftlist +++|          SA6    A1+
00811  M01S00673.qftlist +++|          NZ     X7,LST1     IF NOT END OF REPLY BUFFER
00812  M01S00674.qftlist +++|          SA7    A1+         SET INDEX TO FIRST ENTRY
00813  M01S00675.qftlist +++|          SA1    LINE
Line S00676 Modification History
M01 (Added by) qftlist
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00676.241l630 ---|          SX3    X1-KMLL+14
00815  M01S00009.241l630 +++|          SX3    X1-KMLL+6
00816  M01S00677.qftlist +++|          ZR     X3,LST4     IF NO FILE FOUND
00817  M01S00678.qftlist +++|          SA5    INDX
00818  M01S00679.qftlist +++|          MOVE   LSTBL,LSTB,X5
00819  M01S00680.qftlist +++|          EQ     LST6        SET EXIT CONDITIONS
00820  M01S00681.qftlist +++|
00821  M01S00682.qftlist +++| LST4     SA1    FUNC
00822  M01S00683.qftlist +++|          SX2    X1-FUN1
00823  M01S00684.qftlist +++|          NZ     X2,LST5     IF NOT *PAGE* FUNCTION
00824  M01S00685.qftlist +++|          SA1    LSTD
00825  M01S00686.qftlist +++|          NZ     X1,LST5     IF DISPLAY WRAP AROUND NOT POSSIBLE
00826  M01S00687.qftlist +++|          SX6    B1
00827  M01S00688.qftlist +++|          SA6    A1
00828  M01S00689.qftlist +++|          EQ     LST1        CHECK BEGINNING REPLY BUFFER
00829  M01S00690.qftlist +++|
Line S00691 Modification History
M01 (Added by) qftlist
M02 (Updated by) qftli1
Seq #  *Modification Id* Act 
----------------------------+
00830  M02S00691.qftli1  ---| LST5     SX5    =C* NO QUEUED FILE FOUND.                  *
00831  M01S00001.qftli1  +++| LST5     SX5    =C* NO QUEUED FILES FOUND.                 *
00832  M01S00692.qftlist +++|          MESSAGE X5,3
00833  M01S00693.qftlist +++|          BX2    X2-X2       CLEAR RIGHT SCREEN K-DISPLAY
00834  M01S00694.qftlist +++|          EQ     LSTX        RETURN
00835  M01S00695.qftlist +++|
00836  M01S00696.qftlist +++| LSTA     LINE
Line S00697 Modification History
M01 (Added by) qftlist
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00697.241l630 ---|          LINE   ( MORE LINES FOLLOW.)
00838  M01S00010.241l630 +++|          LINE   ( MORE )
Line S00698 Modification History
M01 (Added by) qftlist
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00698.241l630 ---|          LINE
Line S00699 Modification History
M01 (Added by) qftlist
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00840  M02S00699.241l630 ---|          CON    0           TERMINATE DISPLAY
00841  M01S00011.241l630 +++|          BSSZ   2           TERMINATE DISPLAY
00842  M01S00700.qftlist +++| LSTAL    EQU    *-LSTA
00843  M01S00701.qftlist +++|
00844  M01S00702.qftlist +++| LSTB     LINE
00845  M01S00703.qftlist +++|          LINE   ( END OF DISPLAY.)
00846  M01S00704.qftlist +++|          LINE
Line S00705 Modification History
M01 (Added by) qftlist
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00847  M02S00705.241l630 ---|          CON    0           TERMINATE DISPLAY
00848  M01S00012.241l630 +++|          BSSZ   2           TERMINATE DISPLAY
00849  M01S00706.qftlist +++| LSTBL    EQU    *-LSTB
00850  M01S00707.qftlist +++|
00851  M01S00708.qftlist +++| LSTC     LINE
Line S00709 Modification History
M01 (Added by) qftlist
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00709.241l630 ---|          LINE   (           *** ACTIVE QUEUE FILE LIST ***)
00853  M01S00013.241l630 +++|          LINE   (               ACTIVE QUEUE FILE LIST    )
00854  M01S00710.qftlist +++|          LINE
00855  M01S00711.qftlist +++|          LINE
00856  M01S00712.qftlist +++|
00857  M01S00713.qftlist +++| LSTE     BSS    0
Line S00714 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00858  M02S00714.ns21000 ---|          LINE   ( ORD.  JSNO. DT FAMILY  USERNAM TUI/ID  FC  EXTCH )
Line S00715 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00715.ns21000 ---|          LINE   (REP LENGTH)
Line S00004 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00004.ns22000 ---|          LINE   ( ORD.  JSNO. DT LID FAMILY  USERNAM TUI/ID  FC  EX)
Line S00081 Modification History
M01 (Added by) ns22000
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00081.241l630 ---|          LINE   ( ORD.  JSNS. DT LID FAMILY  USERNAM TUI/ID  FC  EX)
Line S00005 Modification History
M01 (Added by) ns21000
M02 (Updated by) 241l630
Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00005.241l630 ---|          LINE   (TCH LENGTH  )
00863  M01S00014.241l630 +++|          LINE   ( ORD   JSNS  DT LID FAMILY  USERNAM TUI/ID  FC    )
00864  M01S00015.241l630 +++|          LINE   (EC  LENGTH  )
00865  M01S00716.qftlist +++|          LINE
00866  M01S00717.qftlist +++|
00867  M01S00718.qftlist +++|          LINE
00868  M01S00719.qftlist +++|
00869  M01S00720.qftlist +++| LSTCL    EQU    *-LSTC
00870  M01S00721.qftlist +++| LSTEL    EQU    *-LSTE
00871  M01S00722.qftlist +++|
00872  M01S00723.qftlist +++| LSTD     CON    0           WRAP AROUND FLAG
00873  M01S00724.qftlist +++| OUT      SPACE  4,10
00874  M01S00725.qftlist +++|**        OUT - HARD COPY LIST PROCESSOR.
00875  M01S00726.qftlist +++|*
00876  M01S00727.qftlist +++|*         ENTRY  (CIND) = CURRENT INDEX INTO REPLY BUFFER.
00877  M01S00728.qftlist +++|*                (NRPY) = NUMBER OF ENTRIES IN REPLY BUFFER.
00878  M01S00729.qftlist +++|*
00879  M01S00730.qftlist +++|*         EXIT   OUTPUT FILE WRITTEN.
00880  M01S00731.qftlist +++|*                OUTPUT FILE ROUTED TO PRINTER IF NOT CONTROL
00881  M01S00732.qftlist +++|*                STATEMENT CALL.
00882  M01S00733.qftlist +++|*                (X5) = FWA OF K-DISPLAY MESSAGE.
00883  M01S00734.qftlist +++|*                (X2) = 0.
00884  M01S00735.qftlist +++|*
00885  M01S00736.qftlist +++|*         USES   A - 0, 1, 2, 5, 6, 7.
00886  M01S00737.qftlist +++|*                X - 0, 1, 2, 5, 6, 7.
00887  M01S00738.qftlist +++|*                B - 6.
00888  M01S00739.qftlist +++|*
00889  M01S00740.qftlist +++|*         CALLS  BDL, CDD, CFS, SDI.
00890  M01S00741.qftlist +++|*
00891  M01S00742.qftlist +++|*         MACROS CLOCK, DATE, MESSAGE, ROUTE, SETFS,
00892  M01S00743.qftlist +++|*                WRITEO, WRITER, WRITES, WRITEW.
00893  M01S00744.qftlist +++|
00894  M01S00745.qftlist +++|
00895  M01S00746.qftlist +++| OUT      SUBR               ENTRY/EXIT
00896  M01S00747.qftlist +++|          SA2    NRPY
00897  M01S00748.qftlist +++|          ZR     X2,OUT7     IF NO REPLY ENTRIES IN BUFFER
00898  M01S00749.qftlist +++|          SA1    TARG+ARLL   SET FILE NAME IN FET
00899  M01S00750.qftlist +++|          MX0    42
00900  M01S00751.qftlist +++|          SX7    B1
00901  M01S00752.qftlist +++|          BX6    X0*X1
00902  M01S00753.qftlist +++|          BX6    X6+X7
00903  M01S00754.qftlist +++|          SA6    O
00904  M01S00755.qftlist +++|          SA7    PAGE        SET PAGE COUNT
Line S00756 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00756.ns22000 ---|          SX6    B0+         SET REPLY BUFFER ORDINAL
00906  M01S00082.ns22000 +++|          SA7    PDFE+1      SET PRINT DENSITY FORMAT CONTROL FLAG
00907  M01S00083.ns22000 +++|          SX6    B0+         SET REPLY BUFFER ORDINAL
00908  M01S00757.qftlist +++|          SA6    OUTA
00909  M01S00758.qftlist +++|          SA6    LINE        SET LINE COUNT
Line S00759 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00759.ns22000 ---|          SX7    LPRP/5      SET ENTRIES PER PAGE
Line S00084 Modification History
M01 (Added by) ns22000
M02 (Updated by) qftli2
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00084.qftli2  ---|          SX1    6
Line S00085 Modification History
M01 (Added by) ns22000
M02 (Updated by) qftli2
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00085.qftli2  ---|          SA5    A6+B1       SET NUMBER OF ENTRIES PER PAGE
Line S00086 Modification History
M01 (Added by) ns22000
M02 (Updated by) qftli2
Seq #  *Modification Id* Act 
----------------------------+
00913  M02S00086.qftli2  ---|          IX7    X5/X1
Line S00760 Modification History
M01 (Added by) qftlist
M02 (Updated by) qftli2
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00760.qftli2  ---|          SA2    OUTB
00915  M01S00001.qftli2  +++|          SA5    LINE+1      SET NUMBER OF ENTRIES PER PAGE
00916  M01S00002.qftli2  +++|          SX7    X5-7
00917  M01S00003.qftli2  +++|          SA2    OUTC
00918  M01S00761.qftlist +++|          SA1    TARG+ARLO
Line S00762 Modification History
M01 (Added by) qftlist
M02 (Updated by) qftli2
Seq #  *Modification Id* Act 
----------------------------+
00919  M02S00762.qftli2  ---|          NZ     X1,OUT1     IF FULL LIST
Line S00763 Modification History
M01 (Added by) qftlist
M02 (Updated by) qftli2
Seq #  *Modification Id* Act 
----------------------------+
00920  M02S00763.qftli2  ---|          SA2    OUTC
Line S00764 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
M03 (Updated by) qftli2
Seq #  *Modification Id* Act 
----------------------------+
00921  M03S00764.qftli2  ---|          SX7    LINP-7      ENTRIES PER PAGE
Line S00087 Modification History
M01 (Added by) ns22000
M02 (Updated by) qftli2
Seq #  *Modification Id* Act 
----------------------------+
00922  M02S00087.qftli2  ---|          SX7    X5-7        ENTRIES PER PAGE
00923  M01S00004.qftli2  +++|          ZR     X1,OUT1     IF NOT FULL LIST
00924  M01S00005.qftli2  +++|          SA2    OUTB
00925  M01S00006.qftli2  +++|          SX6    6           LINES PER ENTRY
00926  M01S00007.qftli2  +++|          IX7    X7/X6       ENTRIES PER PAGE
00927  M01S00765.qftlist +++| OUT1     SA7    NMPG
00928  M01S00766.qftlist +++|          SX7    X7+B1
00929  M01S00767.qftlist +++|          BX6    X2
00930  M01S00768.qftlist +++|          SA7    ENPG
00931  M01S00769.qftlist +++|          SA6    HBUFC+1
00932  M01S00770.qftlist +++|          DATE   HBUFA+1     SET DATE AND TIME IN PAGE HEADER
00933  M01S00771.qftlist +++|          CLOCK  HBUFA+2
00934  M01S00772.qftlist +++|
00935  M01S00773.qftlist +++|*         CHECK NEXT REPLY ENTRY.
00936  M01S00774.qftlist +++|
00937  M01S00775.qftlist +++| OUT2     SA1    OUTA        SET FWA OF REPLY ENTRY
00938  M01S00776.qftlist +++|          SX2    LRPY
00939  M01S00777.qftlist +++|          IX2    X2*X1
00940  M01S00778.qftlist +++|          SA0    X2+RBUF
00941  M01S00779.qftlist +++|          RJ     CFS         CHECK FILE STATUS
00942  M01S00780.qftlist +++|          NZ     X1,OUT6     IF FILE NOT SELECTED
00943  M01S00781.qftlist +++|          SA1    NMPG
00944  M01S00782.qftlist +++|          SA2    ENPG
00945  M01S00783.qftlist +++|          SX6    X1+B1
00946  M01S00784.qftlist +++|          SA6    A1
00947  M01S00785.qftlist +++|          IX6    X6-X2
00948  M01S00786.qftlist +++|          NZ     X6,OUT4     IF NOT BOTTOM OF PAGE
00949  M01S00787.qftlist +++|          SA6    A1          RESET ENTRY/PAGE COUNT
00950  M01S00788.qftlist +++|          SA1    PAGE        INCREMENT PAGE COUNT
00951  M01S00789.qftlist +++|          SX6    X1+B1
00952  M01S00790.qftlist +++|          SA6    A1
00953  M01S00791.qftlist +++|          RJ     CDD         CONVERT DECIMAL DISPLAY CODE
00954  M01S00792.qftlist +++|          SA6    HBUFA+4
00955  M01S00088.ns22000 +++|          SA1    PDFE+1      GET PRINT DENSITY FORMAT CONTROL FLAG
00956  M01S00089.ns22000 +++|          BX7    X7-X7
00957  M01S00090.ns22000 +++|          SA7    A1
00958  M01S00091.ns22000 +++|          WRITEW O,A1-B1,X1  CONDITIONALLY WRITE FORMAT EFFECTOR
00959  M01S00793.qftlist +++|          WRITEW O,HBUF,HBUFL
00960  M01S00794.qftlist +++|          SA1    TARG+ARLO
00961  M01S00795.qftlist +++|          NZ     X1,OUT3     IF FULL LIST
00962  M01S00796.qftlist +++|          SA1    BLKS
00963  M01S00797.qftlist +++|          BX6    X1
00964  M01S00798.qftlist +++|          WRITEO O
00965  M01S00799.qftlist +++|          WRITEW O,LSTE,LSTEL
00966  M01S00800.qftlist +++|          EQ     OUT4        BUILD OUTPUT FILE ENTRY
00967  M01S00801.qftlist +++|
00968  M01S00802.qftlist +++| OUT3     WRITEW O,IBUF,IBUFL
00969  M01S00803.qftlist +++|
00970  M01S00804.qftlist +++|*         BUILD OUTPUT FILE ENTRY.
00971  M01S00805.qftlist +++|
00972  M01S00806.qftlist +++| OUT4     SA1    LINE        ADVANCE LINE NUMBER
00973  M01S00807.qftlist +++|          SX6    X1+B1
00974  M01S00808.qftlist +++|          SA6    A1
00975  M01S00809.qftlist +++|          SA1    TARG+ARLO
00976  M01S00810.qftlist +++|          NZ     X1,OUT5     IF FULL LIST
00977  M01S00811.qftlist +++|          SA1    BLKS
00978  M01S00812.qftlist +++|          BX6    X1
00979  M01S00813.qftlist +++|          WRITEO O
00980  M01S00814.qftlist +++|          RJ     BDL         BUILD OUTPUT LINE
00981  M01S00815.qftlist +++|          SA5    CHCT
00982  M01S00816.qftlist +++|          SX5    X5-2
00983  M01S00817.qftlist +++|          WRITES  O,SBUF,X5
00984  M01S00818.qftlist +++|          EQ     OUT6        PROCESS NEXT REPLY ENTRY
00985  M01S00819.qftlist +++|
00986  M01S00820.qftlist +++| OUT5     SA5    TORI-1
00987  M01S00821.qftlist +++|          RJ     SDI         SET DETAILED INFORMATION
00988  M01S00822.qftlist +++|          SA1    LINE        SET LINE NUMBER
00989  M01S00823.qftlist +++|          RJ     CDD         CONVERT DECIMAL DISPLAY CODE
00990  M01S00824.qftlist +++|          SX1    2R. -1R
00991  M01S00825.qftlist +++|          LX6    12
00992  M01S00826.qftlist +++|          BX6    X6+X1
00993  M01S00827.qftlist +++|          SA6    DLNM
00994  M01S00828.qftlist +++|          WRITEW O,DBUF,DBUFL
00995  M01S00829.qftlist +++|
00996  M01S00830.qftlist +++|*         ADVANCE REPLY BUFFER INDEX.
00997  M01S00831.qftlist +++|
00998  M01S00832.qftlist +++| OUT6     SA1    OUTA        ADVANCE CURRENT INDEX
00999  M01S00833.qftlist +++|          SA2    NRPY
01000  M01S00834.qftlist +++|          SX6    X1+1
01001  M01S00835.qftlist +++|          SA6    A1
01002  M01S00836.qftlist +++|          BX7    X6-X2
01003  M01S00837.qftlist +++|          NZ     X7,OUT2     IF MORE ENTRIES IN BUFFER
01004  M01S00838.qftlist +++|
01005  M01S00839.qftlist +++|*         COMPLETE OUTPUT FILE.
01006  M01S00840.qftlist +++|
01007  M01S00841.qftlist +++|          SA1    LINE
01008  M01S00842.qftlist +++|          NZ     X1,OUT8     IF FILE WRITTEN
Line S00843 Modification History
M01 (Added by) qftlist
M02 (Updated by) qftli1
Seq #  *Modification Id* Act 
----------------------------+
01009  M02S00843.qftli1  ---| OUT7     SX5    =C* NO QUEUED FILE FOUND.                  *
01010  M01S00002.qftli1  +++| OUT7     SX5    =C* NO QUEUED FILES FOUND.                 *
01011  M01S00844.qftlist +++|          MESSAGE X5,3
01012  M01S00845.qftlist +++|          BX2    X2-X2
01013  M01S00846.qftlist +++|          EQ     OUTX        RETURN
01014  M01S00847.qftlist +++|
01015  M01S00848.qftlist +++| OUT8     WRITER O,R
01016  M01S00849.qftlist +++|          SETFS  O,0
01017  M01S00850.qftlist +++|          SA1    TARG+ARFC
01018  M01S00851.qftlist +++|          PL     X1,OUT9     IF NOT CONTROL STATEMENT CALL
01019  M01S00852.qftlist +++|          SX5    B0          NO K-DISPLAY MESSAGE
01020  M01S00853.qftlist +++|          BX2    X2-X2
01021  M01S00854.qftlist +++|          EQ     OUTX        RETURN
01022  M01S00855.qftlist +++|
01023  M01S00856.qftlist +++| OUT9     SX6    B0+         CLEAR *DSP* PARAMETER BLOCK
01024  M01S00857.qftlist +++|          SB5    DSPBL-1
01025  M01S00858.qftlist +++| OUT10    SA6    DSPB+B5
01026  M01S00859.qftlist +++|          SB5    B5-1
01027  M01S00860.qftlist +++|          PL     B5,OUT10    IF NOT END OF TABLE
01028  M01S00861.qftlist +++|          SA2    O           SET UP *DSP* PARAMETER BLOCK
01029  M01S00862.qftlist +++|          MX0    42
01030  M01S00863.qftlist +++|          BX6    X0*X2
01031  M01S00864.qftlist +++|          SA6    DSPB
01032  M01S00865.qftlist +++|          SA2    OUTD        SET FLAG BITS
01033  M01S00866.qftlist +++|          BX6    X2
01034  M01S00867.qftlist +++|          SA6    A6+B1
01035  M01S00868.qftlist +++|          ROUTE  DSPB,RECALL
01036  M01S00869.qftlist +++|          SX5    =C* OUTPUT FILE RELEASED.                  *
01037  M01S00870.qftlist +++|          SX2    B0+         SET PRIMARY RIGHT SCREEN DISPLAY
01038  M01S00871.qftlist +++|          EQ     OUTX        RETURN
01039  M01S00872.qftlist +++|
01040  M01S00873.qftlist +++| OUTA     CON    0           REPLY BUFFER INDEX
01041  M01S00874.qftlist +++| OUTB     DATA   10HFULL.
01042  M01S00875.qftlist +++| OUTC     DATA   10HSHORT.
01043  M01S00876.qftlist +++| OUTD     VFD    24/0,12/2HPR,6/0,18/FRDC
01044  M01S00877.qftlist +++|          TITLE  REPLY BUFFER PROCESSING ROUTINES.
01045  M01S00878.qftlist +++| ERB      SPACE  4,10
01046  M01S00879.qftlist +++|**        ERB - EDIT REPLY BUFFER.
01047  M01S00880.qftlist +++|*
01048  M01S00881.qftlist +++|*         ENTRY  (NRPY) = NUMBER OF ENTRIES IN REPLY BUFFER.
01049  M01S00882.qftlist +++|*
01050  M01S00883.qftlist +++|*         EXIT   ALL REPLY ENTRIES EDITED.
01051  M01S00884.qftlist +++|*
01052  M01S00885.qftlist +++|*         USES   A - 1, 5, 6.
01053  M01S00886.qftlist +++|*                X - 0, 1, 2, 3, 5, 6.
01054  M01S00887.qftlist +++|*                B - 4, 6, 7.
01055  M01S00888.qftlist +++|*
01056  M01S00889.qftlist +++|*         MACROS MOVE.
01057  M01S00890.qftlist +++|
01058  M01S00891.qftlist +++|
01059  M01S00892.qftlist +++| ERB      SUBR               ENTRY/EXIT
01060  M01S00893.qftlist +++|          SA1    NRPY
01061  M01S00894.qftlist +++|          SB2    RBUF-LRPY
01062  M01S00895.qftlist +++|          SB4    X1+
01063  M01S00896.qftlist +++|
01064  M01S00897.qftlist +++|*         ADVANCE TO NEXT REPLY ENTRY.
01065  M01S00898.qftlist +++|
01066  M01S00899.qftlist +++| ERB1     SB4    B4-B1       DECREMENT NUMBER OF ENTRIES
01067  M01S00900.qftlist +++|          SB2    B2+LRPY
01068  M01S00901.qftlist +++|          MX0    -12
01069  M01S00902.qftlist +++|          LT     B4,B0,ERBX  IF END OF REPLY BUFFER
01070  M01S00903.qftlist +++|          SA5    TERB-1
01071  M01S00904.qftlist +++| ERB2     SA5    A5+1
01072  M01S00905.qftlist +++|          NZ     X5,ERB3     IF MORE INFORMATION TO EDIT
01073  M01S00906.qftlist +++|          MOVE   LRPY,OBUF,B2
01074  M01S00907.qftlist +++|          EQ     ERB1        EDIT NEXT REPLY ENTRY
01075  M01S00908.qftlist +++|
01076  M01S00909.qftlist +++|*         SET EDIT INFORMATION.
01077  M01S00910.qftlist +++|
01078  M01S00911.qftlist +++| ERB3     BX1    -X0*X5      FIELD WIDTH
01079  M01S00912.qftlist +++|          LX5    48
01080  M01S00913.qftlist +++|          SB6    LRPY-1      SET LENGTH OF BLOCK TO EDIT
01081  M01S00914.qftlist +++|          SB7    X1-1
01082  M01S00915.qftlist +++|          BX2    -X0*X5      BLOCK INDEX
01083  M01S00916.qftlist +++|          LX5    48          POSITION INFORMATION NUMBER
01084  M01S00917.qftlist +++|
01085  M01S00918.qftlist +++|*         SEARCH REPLY ENTRY FOR INFORMATION.
01086  M01S00919.qftlist +++|
01087  M01S00920.qftlist +++|          MX3    -6          COMPARE INFORMATION NUMBER
01088  M01S00921.qftlist +++| ERB4     BX6    X6-X6
01089  M01S00922.qftlist +++|          LT     B6,ERB5     IF NO MORE TO SEARCH
01090  M01S00923.qftlist +++|          SA1    B2+B6
01091  M01S00924.qftlist +++|          BX6    X1-X5
01092  M01S00925.qftlist +++|          BX6    -X3*X6
01093  M01S00926.qftlist +++|          SB6    B6-1
01094  M01S00927.qftlist +++|          NZ     X6,ERB4     IF NO COMPARE
01095  M01S00928.qftlist +++|          MX5    1           EDIT INFORMATION
01096  M01S00929.qftlist +++|          AX5    B7
01097  M01S00930.qftlist +++|          BX6    X5*X1
01098  M01S00931.qftlist +++| ERB5     SA6    OBUF+X2     SET EDITED DATA
01099  M01S00932.qftlist +++|          EQ     ERB2        LOOP FOR NEXT INFORMATION WORD
01100  M01S00933.qftlist +++| TERB     SPACE  4,10
01101  M01S00934.qftlist +++|**        TERB - TABLE OF EDIT INFORMATION.
01102  M01S00935.qftlist +++|*
01103  M01S00936.qftlist +++|*T,       30/  , 6/ IN , 12/ INDEX , 12/ WIDTH
Figure

01112232429 WIDTH INDEX IN 3059

01104  M01S00937.qftlist +++|*
01105  M01S00938.qftlist +++|*                IN = INFORMATION NUMBER
01106  M01S00939.qftlist +++|*                INDEX = INDEX INTO REPLY BUFFER
01107  M01S00940.qftlist +++|*                WIDTH = FIELD WIDTH OF INFORMATION
01108  M01S00941.qftlist +++|*
01109  M01S00942.qftlist +++|*         TABLE IS TERMINATED BY A ZERO WORD.
01110  M01S00943.qftlist +++|
01111  M01S00944.qftlist +++|
01112  M01S00945.qftlist +++| TERB     BSS    0
01113  M01S00946.qftlist +++|          LOC    0
01114  M01S00947.qftlist +++|          VFD    30/0,6/JSPI,12/0,12/48D   JSN, ORDINAL, QUEUE
01115  M01S00948.qftlist +++|          VFD    30/0,6/OTPI,12/1,12/42D   OUTPUT CHARACTERISTICS
01116  M01S00949.qftlist +++|          VFD    30/0,6/PRPI,12/2,12/12D   PRIORITY
01117  M01S00950.qftlist +++|          VFD    30/0,6/FMPI,12/3,12/42D   DESTINATION FAMILY
01118  M01S00951.qftlist +++|          VFD    30/0,6/UNPI,12/4,12/48D   DEST. UN, BATCH ID
Line S00952 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns2430
Seq #  *Modification Id* Act 
----------------------------+
01119  M02S00952.ns2430  ---|          VFD    30/0,6/CFPI,12/5,12/42D   CREATION FAMILY
Line S00953 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns2430
Seq #  *Modification Id* Act 
----------------------------+
01120  M02S00953.ns2430  ---|          VFD    30/0,6/CUPI,12/6,12/48D   CREATION UN, BATCH ID
Line S00954 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns2430
Seq #  *Modification Id* Act 
----------------------------+
01121  M02S00954.ns2430  ---|          VFD    30/0,6/FUPI,12/7,12/48D   DEST. UI, CREATION UI
01122  M01S00001.ns2430  +++|          VFD    30/0,6/OFPI,12/5,12/42D   OWNER FAMILY
01123  M01S00002.ns2430  +++|          VFD    30/0,6/OUPI,12/6,12/48D   OWNER UN, BATCH ID
01124  M01S00003.ns2430  +++|          VFD    30/0,6/FUPI,12/7,12/48D   DEST. UI, OWNER UI
01125  M01S00955.qftlist +++|          VFD    30/0,6/UJPI,12/8,12/42D   USER JOBNAME
01126  M01S00956.qftlist +++|          VFD    30/0,6/SCPI,12/9,12/48D   OUTPUT CHARACTERISTICS
01127  M01S00957.qftlist +++|          VFD    30/0,6/DTPI,12/10,12/48D  EQ. NO., CREATION DATE
01128  M01S00958.qftlist +++|          VFD    30/0,6/FLPI,12/11,12/24D  FILE LENGTH
01129  M01S00006.ns21000 +++|          VFD    30/0,6/LDPI,12/12,12/48D  LOGICAL IDENTIFIER
01130  M01S00092.ns22000 +++|          VFD    30/0,6/ALPI,12/13,12/48D  ACCESS LEVEL
01131  M01S00959.qftlist +++|          CON    0           END OF TABLE
01132  M01S00960.qftlist +++|          LOC    *O
01133  M01S00961.qftlist +++| FRB      SPACE  4,10
01134  M01S00962.qftlist +++|**        FRB - FILL REPLY BUFFER.
01135  M01S00963.qftlist +++|*
01136  M01S00964.qftlist +++|*         ENTRY  MEMORY FOR *RBUF* ALLOCATED.
01137  M01S00965.qftlist +++|*                (MRPY) = MAXIMUM ENTRIES ALLOWED IN *RBUF*.
01138  M01S00966.qftlist +++|*
01139  M01S00967.qftlist +++|*         EXIT   *RBUF* CONTAINS REPLY ENTRIES.
01140  M01S00968.qftlist +++|*                (NRPY) = NUMBER OF REPLY ENTRIES IN *RBUF*.
01141  M01S00969.qftlist +++|*                (CIND) = 0.
01142  M01S00970.qftlist +++|*
01143  M01S00971.qftlist +++|*         ERROR  TO *PSE*, IF ERROR ENCOUNTERED.
01144  M01S00972.qftlist +++|*
01145  M01S00973.qftlist +++|*         USES   X - ALL.
01146  M01S00974.qftlist +++|*                A - 1, 3, 4, 5, 6.
01147  M01S00975.qftlist +++|*                B - 2, 7.
01148  M01S00976.qftlist +++|*
01149  M01S00977.qftlist +++|*         CALLS  CQP.
01150  M01S00978.qftlist +++|*
01151  M01S00979.qftlist +++|*         MACROS SYSTEM.
01152  M01S00980.qftlist +++|
01153  M01S00981.qftlist +++|
01154  M01S00982.qftlist +++| FRB      SUBR               ENTRY/EXIT
01155  M01S00983.qftlist +++|          SX6    B0+         PRESET NUMBER OF REPLY ENTRIES
01156  M01S00984.qftlist +++|          SA6    NRPY
Line S00985 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01157  M02S00985.ns22000 ---|          SA5    TFRB        SET INDEX TO ORIGIN TYPE TABLE
Line S00986 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01158  M02S00986.ns22000 ---|          SB7    X5+
01159  M01S00987.qftlist +++|          SA6    CIND        SET CURRENT INDEX TO BEGINNING OF BUFFER
01160  M01S00988.qftlist +++|
01161  M01S00989.qftlist +++|*         BUILD *QAC* PARAMETER BLOCK.
01162  M01S00990.qftlist +++|
01163  M01S00991.qftlist +++|          SB2    PKLB-1      SET PARAMETER BLOCK LENGTH
01164  M01S00992.qftlist +++|          RJ     CQP         CLEAR *QAC* PARAMETER BLOCK BUFFER
01165  M01S00993.qftlist +++|          SX6    PKFC*2      SET FUNCTION CODE
01166  M01S00994.qftlist +++|          SX7    RBUF
01167  M01S00995.qftlist +++|          SA6    BQAC+FCNQ
01168  M01S00996.qftlist +++|          SA7    BQAC+INAQ   SET *IN*
01169  M01S00997.qftlist +++|          SA7    BQAC+OUTQ   SET *OUT*
01170  M01S00998.qftlist +++|          SX6    PKLB-5      SET LENGTH OF BLOCK
01171  M01S00999.qftlist +++|          LX6    18
01172  M01S01000.qftlist +++|          BX6    X6+X7
01173  M01S01001.qftlist +++|          SA6    BQAC+FIRQ   SET *FIRST*
01174  M01S01002.qftlist +++|          SA3    MRPY        SET *LIMIT*
01175  M01S01003.qftlist +++|          SX4    LRPY
01176  M01S01004.qftlist +++|          IX6    X3*X4
01177  M01S01005.qftlist +++|          IX6    X6+X7
01178  M01S01006.qftlist +++|          SX7    INQQ+PRQQ+PHQQ+PLQQ+WTQQ  SET QUEUE TYPES
01179  M01S01007.qftlist +++|          LX7    48
01180  M01S01008.qftlist +++|          SA6    BQAC+LIMQ
01181  M01S01009.qftlist +++|          SA7    BQAC+LNKQ
Line S01010 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01182  M02S01010.ns22000 ---|          SX6    ZPSF+OTSF   SET ZERO PRIORITY AND ORIGIN FLAGS
Line S00093 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2564
Seq #  *Modification Id* Act 
----------------------------+
01183  M02S00093.ns2564  ---|          SX6    ZPSF        SET ZERO PRIORITY SELECTION FLAG
01184  M01S00001.ns2564  +++|          SX6    ZPSF+DLSF*10000B  SELECT ZERO PRIORITY AND DLID
01185  M01S01011.qftlist +++|          SA6    BQAC+SELQ
01186  M01S01012.qftlist +++|          MX6    12          SET INFORMATION BITS 13 - 1
01187  M01S01013.qftlist +++|          LX6    13
Line S00007 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01188  M02S00007.ns22000 ---|          SX7    LDPB        SET LID INFORMATION BIT
01189  M01S00094.ns22000 +++|          SX7    LDPB        SET LID INFORMATION BIT
01190  M01S00095.ns22000 +++|          SX5    ALPB        SET ACCESS LEVEL INFORMATION BIT
01191  M01S00008.ns21000 +++|          LX7    12
01192  M01S00009.ns21000 +++|          BX6    X6+X7
01193  M01S00096.ns22000 +++|          LX5    24
01194  M01S00097.ns22000 +++|          BX6    X6+X5
01195  M01S01014.qftlist +++|          SA6    BQAC+PIBQ
Line S01015 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01196  M02S01015.ns22000 ---| FRB1     SX7    B7          SET ORIGIN TYPE
01197  M01S01016.qftlist +++|          MX6    12          SET COUNT FIELDS
Line S01017 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01198  M02S01017.ns22000 ---|          SA7    BQAC+FAMQ
01199  M01S01018.qftlist +++|          SA6    BQAC+ENLQ
01200  M01S01019.qftlist +++|          MX7    60
01201  M01S01020.qftlist +++|          SA7    BQAC+CNTQ
01202  M01S00002.ns2564  +++|          SX7    3R***       SET ALL LID SELECTION
01203  M01S00003.ns2564  +++|          LX7    24
01204  M01S00004.ns2564  +++|          SA7    BQAC+LIDQ
01205  M01S01021.qftlist +++|
01206  M01S01022.qftlist +++|*         CALL *QAC*.
01207  M01S01023.qftlist +++|
01208  M01S01024.qftlist +++|          SYSTEM QAC,R,BQAC
01209  M01S01025.qftlist +++|          SA1    BQAC+FCNQ   CHECK FOR ERROR
01210  M01S01026.qftlist +++|          MX0    -8
01211  M01S01027.qftlist +++|          AX1    10
01212  M01S01028.qftlist +++|          BX1    -X0*X1
01213  M01S01029.qftlist +++|          SX2    X1-ER07
01214  M01S01030.qftlist +++|          ZR     X1,FRB2     IF NO ERROR
Line S01031 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01215  M02S01031.ns22000 ---|          ZR     X2,FRB3     IF NO FILE FOUND
01216  M01S00098.ns22000 +++|          ZR     X2,FRBX     IF NO FILE FOUND
01217  M01S01032.qftlist +++|          SX1    EMQC        * QAC ERROR ENCOUNTERED.*
01218  M01S01033.qftlist +++|          RJ     PSE         PROCESS SYSTEM ERROR
01219  M01S01034.qftlist +++|
01220  M01S01035.qftlist +++|*         COUNT NUMBER OF ENTRIES RETURNED.
01221  M01S01036.qftlist +++|
01222  M01S01037.qftlist +++| FRB2     MX0    -12
01223  M01S01038.qftlist +++|          SA3    NRPY
01224  M01S01039.qftlist +++|          SA4    BQAC+CNTQ
01225  M01S01040.qftlist +++|          BX1    -X0*X4      PLOT FILE COUNT
01226  M01S01041.qftlist +++|          IX3    X1+X3
01227  M01S01042.qftlist +++|          LX4    48
01228  M01S01043.qftlist +++|          BX1    -X0*X4      PUNCH FILE COUNT
01229  M01S01044.qftlist +++|          LX4    48
01230  M01S01045.qftlist +++|          IX3    X1+X3
01231  M01S01046.qftlist +++|          BX1    -X0*X4      PRINT FILE COUNT
01232  M01S01047.qftlist +++|          LX4    36
01233  M01S01048.qftlist +++|          IX3    X1+X3
01234  M01S01049.qftlist +++|          BX1    -X0*X4      INPUT FILE COUNT
01235  M01S01050.qftlist +++|          IX3    X1+X3
01236  M01S01051.qftlist +++|          SA4    BQAC+ENLQ   TERMINAL OUTPUT FILE COUNT
01237  M01S01052.qftlist +++|          LX4    12
01238  M01S01053.qftlist +++|          BX4    -X0*X4
01239  M01S01054.qftlist +++|          IX6    X3+X4
01240  M01S01055.qftlist +++|          SA6    A3+
Line S01056 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01241  M02S01056.ns22000 ---|
Line S01057 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01242  M02S01057.ns22000 ---|*         PROCESS NEXT ORIGIN TYPE.
Line S01058 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01243  M02S01058.ns22000 ---|
Line S01059 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01244  M02S01059.ns22000 ---| FRB3     SA5    A5+B1
Line S01060 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01245  M02S01060.ns22000 ---|          ZR     X5,FRBX     IF END OF ORIGIN TYPES
Line S01061 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01246  M02S01061.ns22000 ---|          SB7    X5
Line S01062 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01247  M02S01062.ns22000 ---|          SA1    BQAC+FCNQ   CLEAR COMPLETE BIT
Line S01063 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01248  M02S01063.ns22000 ---|          MX0    -1
Line S01064 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01249  M02S01064.ns22000 ---|          BX6    X0*X1
Line S01065 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01250  M02S01065.ns22000 ---|          SA6    A1
Line S01066 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01251  M02S01066.ns22000 ---|          EQ     FRB1        PROCESS NEXT ORIGIN TYPE
Line S01067 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01252  M02S01067.ns22000 ---| TFRB     SPACE  4
Line S01068 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01253  M02S01068.ns22000 ---|**        TFRB - TABLE OF ORIGIN TYPES FOR *FRB* PROCESSING.
Line S01069 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01254  M02S01069.ns22000 ---|
Line S01070 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01255  M02S01070.ns22000 ---|
Line S01071 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01256  M02S01071.ns22000 ---| TFRB     BSS    0
Line S01072 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01257  M02S01072.ns22000 ---|          LOC    0
Line S01073 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01258  M02S01073.ns22000 ---|          CON    BCOR        LOCAL BATCH
Line S01074 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01259  M02S01074.ns22000 ---|          CON    RBOR        REMOTE BATCH
Line S01075 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01260  M02S01075.ns22000 ---|          CON    0           END OF TABLE
Line S01076 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01261  M02S01076.ns22000 ---|          LOC    *O
01262  M01S00099.ns22000 +++|          EQ     FRBX        RETURN
01263  M01S01077.qftlist +++| SRB      SPACE  4,10
01264  M01S01078.qftlist +++|**        SRB - SORT REPLY BUFFER.
01265  M01S01079.qftlist +++|*
01266  M01S01080.qftlist +++|*         ENTRY  *RBUF* CONTAINS REPLY ENTRIES.
01267  M01S01081.qftlist +++|*                (NRPY) = NUMBER OF ENTRIES IN REPLY BUFFER.
01268  M01S01082.qftlist +++|*
01269  M01S01083.qftlist +++|*         EXIT   REPLY ENTRIES SORTED BY QFT ORDINAL.
01270  M01S01084.qftlist +++|*
01271  M01S01085.qftlist +++|*         USES   A - 1, 2.
01272  M01S01086.qftlist +++|*                X - 0, 1, 2.
01273  M01S01087.qftlist +++|*                B - 2, 3, 4, 5.
01274  M01S01088.qftlist +++|*
01275  M01S01089.qftlist +++|*         MACROS MOVE.
01276  M01S01090.qftlist +++|
01277  M01S01091.qftlist +++|
01278  M01S01092.qftlist +++| SRB      SUBR               ENTRY/EXIT
01279  M01S01093.qftlist +++|          MX0    -12
01280  M01S01094.qftlist +++|          LX0    24
01281  M01S01095.qftlist +++|          SB2    RBUF-LRPY   FWA OF FIRST ENTRY IN BUFFER
01282  M01S01096.qftlist +++|          SA1    NRPY        SET LWA+1 OF LAST REPLY ENTRY
01283  M01S01097.qftlist +++|          SX1    X1-1
01284  M01S01098.qftlist +++|          SX2    LRPY
01285  M01S01099.qftlist +++|          IX2    X1*X2
01286  M01S01100.qftlist +++|          SB4    B1          SORT FLAG
01287  M01S01101.qftlist +++|          SB3    X2+RBUF
01288  M01S01102.qftlist +++| SRB1     ZR     B4,SRBX     IF REPLY BUFFER SORTED
01289  M01S01103.qftlist +++|          SB4    B0
01290  M01S01104.qftlist +++|          SB5    B2
01291  M01S01105.qftlist +++| SRB2     SB5    B5+LRPY
01292  M01S01106.qftlist +++|          LE     B3,B5,SRB1  IF END OF REPLY BUFFER
01293  M01S01107.qftlist +++|          SA1    B5          COMPARE QFT ORDINALS
01294  M01S01108.qftlist +++|          SA2    A1+LRPY
01295  M01S01109.qftlist +++|          BX1    -X0*X1
01296  M01S01110.qftlist +++|          BX2    -X0*X2
01297  M01S01111.qftlist +++|          IX1    X2-X1
01298  M01S01112.qftlist +++|          PL     X1,SRB2     IF SWITCH NOT NECESSARY
01299  M01S01113.qftlist +++|          MOVE   LRPY,B5,OBUF  MAKE SWITCH
01300  M01S01114.qftlist +++|          MOVE   LRPY,B5+LRPY,B5
01301  M01S01115.qftlist +++|          MOVE   LRPY,OBUF,LRPY+B5
01302  M01S01116.qftlist +++|          SB4    B1          SET SORT FLAG
01303  M01S01117.qftlist +++|          EQ     SRB2        CONTINUE SORT
01304  M01S01118.qftlist +++|          TITLE  SUBROUTINES.
01305  M01S01119.qftlist +++| AQF      SPACE  4,20
01306  M01S01120.qftlist +++|**        AQF - ALTER QUEUED FILE.
01307  M01S01121.qftlist +++|*
01308  M01S01122.qftlist +++|*         ENTRY  (A0) = FWA OF *PEEK* REPLY ENTRY.
01309  M01S01123.qftlist +++|*
01310  M01S01124.qftlist +++|*         EXIT   (X2) = 0, IF FILE ALTERED.
01311  M01S01125.qftlist +++|*                (X2) = -1, INVALID FAMILY/USER SPECIFIED.
01312  M01S01126.qftlist +++|*
01313  M01S01127.qftlist +++|*         ERROR  TO *PSE*, IF ERROR.
01314  M01S01128.qftlist +++|*
01315  M01S01129.qftlist +++|*         USES   X - ALL.
01316  M01S01130.qftlist +++|*                A - 1, 2, 3, 4, 5, 6, 7.
01317  M01S01131.qftlist +++|*                B - 2, 4, 5, 7.
01318  M01S01132.qftlist +++|*
01319  M01S01133.qftlist +++|*         CALLS  CQP.
01320  M01S01134.qftlist +++|*
Line S01135 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01321  M02S01135.ns22000 ---|*         MACROS SYSTEM.
01322  M01S00100.ns22000 +++|*         MACROS GETUSV, SYSTEM.
01323  M01S01136.qftlist +++|
01324  M01S01137.qftlist +++|
01325  M01S01138.qftlist +++| AQF      SUBR               ENTRY/EXIT
01326  M01S01139.qftlist +++|          SB2    ALLB-1      SET BLOCK LENGTH
01327  M01S01140.qftlist +++|          RJ     CQP         CLEAR CONTENTS OF PARAMETER BLOCK
01328  M01S01141.qftlist +++|
01329  M01S01142.qftlist +++|*         SET SELECTION CRITERIA FOR FILE.
01330  M01S01143.qftlist +++|
01331  M01S01144.qftlist +++|          SX6    ALFC*2      SET FUNCTION CODE
01332  M01S01145.qftlist +++|          SX7    ALLB-5      SET PARAMETER BLOCK LENGTH
01333  M01S01146.qftlist +++|          LX7    18
01334  M01S00101.ns22000 +++|          SB4    B0          SET DESTINATION *FM,UN* SPECIFIED
01335  M01S01147.qftlist +++|          SA6    BQAC+FCNQ
01336  M01S01148.qftlist +++|          SA7    BQAC+FIRQ
01337  M01S01149.qftlist +++|          MX0    -15
01338  M01S01150.qftlist +++|          LX0    21
01339  M01S01151.qftlist +++|          SA5    A0+B1       SET ORIGIN TYPE
01340  M01S01152.qftlist +++|          BX1    -X0*X5      SAVE DISPOSITION CODE AND EC
01341  M01S01153.qftlist +++|          MX0    6
01342  M01S01154.qftlist +++|          LX0    54
01343  M01S01155.qftlist +++|          SA3    A0+4        GET DEST. UN, BATCH ID
01344  M01S01156.qftlist +++|          BX5    X0*X5
01345  M01S01157.qftlist +++|          AX5    48
Line S01158 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01346  M02S01158.ns22000 ---|          SB4    X5-RBOR
Line S01159 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01347  M02S01159.ns22000 ---|          ZR     B4,AQF1     IF REMOTE BATCH FILE
01348  M01S00102.ns22000 +++|          MX2    42
01349  M01S00103.ns22000 +++|          BX2    X2*X3
01350  M01S00104.ns22000 +++|          NZ     X2,AQF1     IF DESTINATION *FM,UN* SPECIFIED
01351  M01S00105.ns22000 +++|          SB4    B1+         INDICATE BATCH ID SPECIFIED
01352  M01S01160.qftlist +++|          SB5    IDSF        SET BATCH ID SELECTION FLAG
01353  M01S01161.qftlist +++|          LX0    -36
01354  M01S01162.qftlist +++|          BX2    X2-X2       CLEAR USER NUMBER
01355  M01S01163.qftlist +++|          EQ     AQF2        SET INFORMATION INTO PARAMETER BLOCK
01356  M01S01164.qftlist +++|
01357  M01S01165.qftlist +++| AQF1     SB5    FMSF        SET DEST. *FM,UN* SELECTION FLAG
01358  M01S01166.qftlist +++|          SA3    A0+3        GET FAMILY NAME
01359  M01S01167.qftlist +++|          MX0    -18
01360  M01S01168.qftlist +++|          SA2    A0+4        GET USER NUMBER
01361  M01S01169.qftlist +++|          BX2    X0*X2
01362  M01S01170.qftlist +++| AQF2     BX3    X0*X3
01363  M01S01171.qftlist +++|          BX6    X3+X5       SET FAMILY NAME, BATCH ID, ORIGIN
01364  M01S01172.qftlist +++|          SA6    BQAC+FAMQ
01365  M01S01173.qftlist +++|          BX7    X2          SET USER NUMBER
01366  M01S01174.qftlist +++|          SA7    A6+DUNQ-FAMQ
01367  M01S01175.qftlist +++|          SA4    A0          GET JSN, ORDINAL, QUEUE TYPE
01368  M01S01176.qftlist +++|          SA5    AQFB        SET JSN, SELECTION FLAGS
01369  M01S01177.qftlist +++|          MX0    24
01370  M01S01178.qftlist +++|          SX7    B5
01371  M01S01179.qftlist +++|          BX7    X5+X7
01372  M01S01180.qftlist +++|          BX3    X0*X4
01373  M01S01181.qftlist +++|          BX7    X7+X3
01374  M01S00005.ns2564  +++|          SX0    DLSF*10000B SET LID SELECTION
01375  M01S00006.ns2564  +++|          BX7    X7+X0
01376  M01S01182.qftlist +++|          MX0    12          SET QFT ORDINAL
01377  M01S01183.qftlist +++|          SA7    BQAC+SELQ
01378  M01S00007.ns2564  +++|          SX7    3R***       SET ALL LIDS SELECTED
01379  M01S00008.ns2564  +++|          LX7    24
01380  M01S00009.ns2564  +++|          SA7    BQAC+LIDQ
01381  M01S01184.qftlist +++|          LX0    36
01382  M01S01185.qftlist +++|          BX6    X0*X4
01383  M01S01186.qftlist +++|          LX6    12
01384  M01S01187.qftlist +++|          LX0    48          SET QUEUE TYPE
01385  M01S01188.qftlist +++|          SA6    BQAC+LIMQ
01386  M01S01189.qftlist +++|          BX7    X0*X4
01387  M01S01190.qftlist +++|          LX7    36
01388  M01S01191.qftlist +++|          BX7    X7+X1       SET DISPOSITION CODE AND EC
01389  M01S01192.qftlist +++|          SA7    BQAC+LNKQ
01390  M01S01193.qftlist +++|          LX7    9           SAVE QUEUE TYPE
01391  M01S01194.qftlist +++|          SB7    X7
01392  M01S01195.qftlist +++|
01393  M01S01196.qftlist +++|*         SET INFORMATION TO BE ALTERED.
01394  M01S01197.qftlist +++|
01395  M01S01198.qftlist +++|          SA4    TARG+AROP
01396  M01S01199.qftlist +++|          SX7    B1          PRESET ROUTING INFORMATION REQUIRED
01397  M01S01200.qftlist +++|          BX5    X5-X5       CLEAR *ALTER* FLAGS
01398  M01S01201.qftlist +++|          SX3    X4-BCOP
01399  M01S01202.qftlist +++|          ZR     X3,AQF4     IF ALTER TO LOCAL BATCH
01400  M01S01203.qftlist +++|          SX3    X4-RBOP
01401  M01S01204.qftlist +++|          ZR     X3,AQF6     IF ALTER TO REMOTE BATCH
01402  M01S01205.qftlist +++|          SX7    B0+         SET ROUTING INFORMATION NOT REQUIRED
01403  M01S01206.qftlist +++|          SX3    X4-NCOP
Line S01207 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01404  M02S01207.ns22000 ---|          ZR     X3,AQF3     IF NO CHANGE IN ORIGIN
01405  M01S00106.ns22000 +++|          ZR     X3,AQF3     IF NO CHANGE IN FILE DESTINATION
01406  M01S01208.qftlist +++|          SX5    AJAF        SET EVICT FLAG
01407  M01S01209.qftlist +++|          EQ     AQF9        FINISH PARAMETER BLOCK
01408  M01S01210.qftlist +++|
01409  M01S01211.qftlist +++| AQF3     ZR     B4,AQF6     IF REMOTE BATCH FILE
01410  M01S01212.qftlist +++| AQF4     SX2    B0+         CLEAR FAMILY NAME
01411  M01S01213.qftlist +++|          SA2    TARG+ARNI
01412  M01S01214.qftlist +++|          NG     X2,AQF5     IF NEW ID SPECIFIED
01413  M01S01215.qftlist +++|          ZR     X7,AQF7     IF NEW ID NOT REQUIRED
01414  M01S01216.qftlist +++| AQF5     MX0    -6          SET NEW ID
01415  M01S01217.qftlist +++|          SX5    X5+IDAF     SET LOCAL BATCH ID *ALTER* FLAG
01416  M01S01218.qftlist +++|          BX3    -X0*X2
01417  M01S01219.qftlist +++|          EQ     AQF7        SET IN PARAMETER BLOCK
01418  M01S01220.qftlist +++|
01419  M01S01221.qftlist +++| AQF6     SA2    TARG+ARND
01420  M01S01222.qftlist +++|          SA3    TARG+ARNU
01421  M01S01223.qftlist +++|          BX4    X2+X3
01422  M01S01224.qftlist +++|          BX4    X4+X7
01423  M01S01225.qftlist +++|          ZR     X4,AQF8     IF NEW FAMILY AND USER NUMBER NOT REQUIRED
01424  M01S01226.qftlist +++|          SX5    FMAF        SET *ALTER* FLAG
01425  M01S01227.qftlist +++| AQF7     BX6    X2          ENTER ROUTING INFORMATION INTO BLOCK
01426  M01S01228.qftlist +++|          BX7    X3
01427  M01S01229.qftlist +++|          SA6    BQAC+NDFQ
01428  M01S01230.qftlist +++|          SA7    A6+NUNQ-NDFQ
Line S01231 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01429  M02S01231.ns22000 ---| AQF8     SX6    B0+         CLEAR NEW FILE CHARACTERISTICS
Line S01232 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01430  M02S01232.ns22000 ---|          SA2    TARG+ARNP
01431  M01S00107.ns22000 +++| AQF8     SA2    TARG+ARAL
01432  M01S00108.ns22000 +++|          SX6    B0+         PRESET NEW FILE CHARACTERISTICS
01433  M01S00109.ns22000 +++|          NG     X2,AQF8.2   IF NEW ACCESS LEVEL NOT SPECIFIED
01434  M01S00110.ns22000 +++|          GETUSV AQFC        GET SECURITY VALIDATIONS
01435  M01S00111.ns22000 +++|          SA3    AQFC
01436  M01S00112.ns22000 +++|          NG     X3,AQF8.1   IF SECURITY ADMINISTRATOR PRIVILEGES
01437  M01S00113.ns22000 +++|          SX5    =C* NOT VALIDATED TO CHANGE ACCESS LEVEL. *
01438  M01S00114.ns22000 +++|          SX2    2           SET ERROR ENCOUNTERED
01439  M01S00115.ns22000 +++|          EQ     AQFX        RETURN
01440  M01S00116.ns22000 +++|
01441  M01S00117.ns22000 +++| AQF8.1   SA2    TARG+ARAL
01442  M01S00118.ns22000 +++|          MX0    -3
01443  M01S00119.ns22000 +++|          BX6    -X0*X2
01444  M01S00120.ns22000 +++|          LX6    18
01445  M01S00121.ns22000 +++|          SX5    X5+LVAF     SET *ALTER* FLAG
01446  M01S00122.ns22000 +++| AQF8.2   SA2    TARG+ARNP
01447  M01S01233.qftlist +++|          PL     X2,AQF9     IF NEW PRIORITY NOT SPECIFIED
01448  M01S01234.qftlist +++|          MX0    -12
Line S01235 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01449  M02S01235.ns22000 ---|          BX6    -X0*X2
Line S01236 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
01450  M02S01236.ns22000 ---|          LX6    48
01451  M01S00123.ns22000 +++|          BX2    -X0*X2
01452  M01S00124.ns22000 +++|          LX2    48
01453  M01S00125.ns22000 +++|          BX6    X6+X2
01454  M01S01237.qftlist +++|          SX5    X5+PRAF     SET *ALTER* FLAG
01455  M01S01238.qftlist +++| AQF9     SA1    TARG+ARNC
01456  M01S01239.qftlist +++|          ZR     X1,AQF11    IF NEW FORMS CODE NOT SPECIFIED
01457  M01S01240.qftlist +++|          SX0    2R**
01458  M01S01241.qftlist +++|          LX0    59-11
01459  M01S01242.qftlist +++|          BX2    X0-X1
01460  M01S01243.qftlist +++|          NZ     X2,AQF10    IF NOT NULL FORMS CODE
01461  M01S01244.qftlist +++|          SX1    B0+
01462  M01S01245.qftlist +++| AQF10    LX1    48
01463  M01S01246.qftlist +++|          BX6    X1+X6
01464  M01S01247.qftlist +++|          SX5    X5+FCAF     SET *ALTER* FLAG
01465  M01S01248.qftlist +++| AQF11    SA1    TARG+ARNR
01466  M01S01249.qftlist +++|          PL     X1,AQF12    IF NO REPEAT COUNT
01467  M01S01250.qftlist +++|          SX1    X1
01468  M01S01251.qftlist +++|          BX6    X1+X6
01469  M01S01252.qftlist +++|          SX5    X5+RCAF     SET *ALTER* FLAG
01470  M01S01253.qftlist +++| AQF12    SA1    TARG+ARDC
01471  M01S01254.qftlist +++|          ZR     X1,AQF13    IF NEW DISPOSITION CODE NOT SPECIFIED
01472  M01S01255.qftlist +++|          LX1    42
01473  M01S01256.qftlist +++|          SA2    TNDC-1
01474  M01S01257.qftlist +++|          RJ     STE         SEARCH FOR TABLE ENTRY
01475  M01S01258.qftlist +++|          ZR     X2,AQF13    IF INVALID CHANGE
01476  M01S01259.qftlist +++|          AX3    6
01477  M01S01260.qftlist +++|          MX0    -12
01478  M01S01261.qftlist +++|          LX0    24
01479  M01S01262.qftlist +++|          BX3    -X0*X3
01480  M01S01263.qftlist +++|          BX6    X3+X6
01481  M01S01264.qftlist +++|          SX5    X5+DSAF     SET *ALTER* FLAG
01482  M01S01265.qftlist +++| AQF13    SA1    TARG+ARNE   CHECK FOR NEW EXTERNAL CHARACTERISTICS
01483  M01S01266.qftlist +++|          SA2    B7+TNEC     GET SHIFT COUNT
01484  M01S01267.qftlist +++|          SB4    X2
01485  M01S01268.qftlist +++|          LX1    B4,X1
01486  M01S01269.qftlist +++|          PL     X1,AQF14    IF NEW EC NOT SPECIFIED
01487  M01S01270.qftlist +++|          MX0    -3          SET NEW EC INTO PARAMETER BLOCK
01488  M01S01271.qftlist +++|          LX1    12
01489  M01S01272.qftlist +++|          BX1    -X0*X1
01490  M01S01273.qftlist +++|          LX1    21
01491  M01S01274.qftlist +++|          BX6    X1+X6
01492  M01S01275.qftlist +++|          SX5    X5+ECAF     SET *ALTER* FLAG
Line S01276 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01493  M02S01276.ns21000 ---| AQF14    BX7    X5          SET *ALTER* FLAGS INTO PARAMETER BLOCK
01494  M01S00010.ns21000 +++| AQF14    SA1    TARA+ARNL   CHECK *NLD*
01495  M01S00011.ns21000 +++|          LX1    18
01496  M01S00012.ns21000 +++|          MX3    -18
01497  M01S00013.ns21000 +++|          BX1    -X3*X1
01498  M01S00014.ns21000 +++|          SX7    1L0
01499  M01S00015.ns21000 +++|          BX7    X7-X1
01500  M01S00016.ns21000 +++|          ZR     X1,AQF16    IF NO *NLD* SPECIFIED
01501  M01S00017.ns21000 +++|          ZR     X7,AQF15    IF *NLD* OF *0* SPECIFIED
01502  M01S00018.ns21000 +++|          SA2    BQAC+NDFQ   MASK NEW LID INTO *QAC* BLOCK
01503  M01S00019.ns21000 +++|          BX7    X3*X2
01504  M01S00020.ns21000 +++|          BX7    X1+X7
01505  M01S00021.ns21000 +++|          SA7    A2+
01506  M01S00022.ns21000 +++| AQF15    SX7    DLAF        SET *ALTER* FLAG
01507  M01S00023.ns21000 +++|          LX7    12
01508  M01S00024.ns21000 +++|          BX5    X5+X7
01509  M01S00025.ns21000 +++| AQF16    BX7    X5          SET *ALTER FLAGS* INTO PARAMETER BLOCK
Line S01277 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01510  M02S01277.ns21000 ---|          ZR     X7,AQF15    IF NO *ALTER* FLAGS SET
01511  M01S00026.ns21000 +++|          ZR     X7,AQF18    IF NO *ALTER* FLAGS SET
01512  M01S01278.qftlist +++|          SA6    BQAC+NFCQ   SET NEW FILE CHARACTERISTICS
01513  M01S01279.qftlist +++|          SA7    A6+SSWQ-NFCQ
01514  M01S01280.qftlist +++|          CX1    X7
01515  M01S01281.qftlist +++|          SX1    X1-1
Line S01282 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01516  M02S01282.ns21000 ---|          NZ     X1,AQF14.1  IF MORE THAN ONE *ALTER* FLAG SELECTED
01517  M01S00027.ns21000 +++|          NZ     X1,AQF17    IF MORE THAN ONE *ALTER FLAG* SET
01518  M01S01283.qftlist +++|          SX2    DSAF        CHECK FOR *NDC*
01519  M01S01284.qftlist +++|          BX1    X2*X7
Line S01285 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01520  M02S01285.ns21000 ---|          ZR     X1,AQF14.1  IF NOT DISPOSITION CODE TO BE ALTERED
01521  M01S00028.ns21000 +++|          ZR     X1,AQF17    IF NOT DISPOSITION CODE TO BE ALTERED
01522  M01S01286.qftlist +++|          SA1    BQAC+LNKQ   CHECK FOR PRINT FILE
01523  M01S01287.qftlist +++|          AX1    48
01524  M01S01288.qftlist +++|          SX1    X1-PRQQ
Line S01289 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01525  M02S01289.ns21000 ---|          NZ     X1,AQF15    IF NOT PRINT FILE
01526  M01S00029.ns21000 +++|          NZ     X1,AQF18    IF NOT PRINT FILE
01527  M01S01290.qftlist +++|
01528  M01S01291.qftlist +++|*         CALL *QAC* TO ALTER FILE.
01529  M01S01292.qftlist +++|
Line S01293 Modification History
M01 (Added by) qftlist
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01530  M02S01293.ns21000 ---| AQF14.1  SYSTEM QAC,R,BQAC
01531  M01S00030.ns21000 +++| AQF17    SYSTEM QAC,R,BQAC
01532  M01S01294.qftlist +++|          MX0    -8          CHECK ERROR CODE
01533  M01S01295.qftlist +++|          SA1    BQAC+FCNQ
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/qftlist.txt · Last modified: by 127.0.0.1