User Tools

Site Tools


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

Deck QFSP

Library Member Format: MODIFY

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.qfsp    +++|          IDENT  QFSP,FWA
00002  M00S00002.qfsp    +++|          ABS
00003  M00S00003.qfsp    +++|          SST
00004  M00S00004.qfsp    +++|          SYSCOM B1
00005  M00S00005.qfsp    +++|          ENTRY  QFSP
00006  M00S00006.qfsp    +++|          ENTRY  QREC
00007  M00S00007.qfsp    +++|          ENTRY  QLIST
00008  M00S00008.qfsp    +++|          ENTRY  QDUMP
00009  M00S00009.qfsp    +++|          ENTRY  QLOAD
00010  M00S00010.qfsp    +++|          ENTRY  LDLIST
00011  M00S00011.qfsp    +++|          ENTRY  QMOVE
00012  M00S00012.qfsp    +++|          ENTRY  DFTERM
00013  M00S00013.qfsp    +++|          ENTRY  DFLIST
00014  M00S00014.qfsp    +++|          ENTRY  QALTER
00015  M00S00015.qfsp    +++|          ENTRY  QFTLIST
00016  M00S00016.qfsp    +++|          ENTRY  RFL=
00017  M00S00017.qfsp    +++|          ENTRY  SSJ=
00018  M00S00018.qfsp    +++|          ENTRY  SSM=
00019  M00S00019.qfsp    +++|*COMMENT  QFSP - QUEUED FILE SUPERVISOR.
Line S00020 Modification History
M01 (Removed by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00020  M01S00020.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1978.
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00021  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00022  M00S00021.qfsp    +++|          SPACE  4
00023  M00S00022.qfsp    +++|***       QFSP - QUEUED FILE SUPERVISOR.
00024  M00S00023.qfsp    +++|*         R. A. JAPS.        75/01/29.
00025  M00S00024.qfsp    +++|*         R. A. JAPS.        78/01/27. (RESEQUENCED)
00026  M00S00025.qfsp    +++|*         R. M. DESSEL.      81/10/15.
00027  M00S00026.qfsp    +++|*         J. T. LITTLE.      84/10/11.
00028  M00S00027.qfsp    +++|          TITLE  QFSP - QUEUED FILE SUPERVISOR.
00029  M00S00028.qfsp    +++|          SPACE  4
00030  M00S00029.qfsp    +++|***       QFSP WILL LOAD THE DESIRED QUEUE FILE OR DAYFILE
00031  M00S00030.qfsp    +++|*         UTILITY PROGRAM AND PROCESS ALL THE DIRECTIVES NEEDED
00032  M00S00031.qfsp    +++|*         BY THAT UTILITY.
00033  M00S00032.qfsp    +++|*
00034  M00S00033.qfsp    +++|*         UTILITY
00035  M00S00034.qfsp    +++|*         OPTIONS            DESCRIPTION
00036  M00S00035.qfsp    +++|*
00037  M00S00036.qfsp    +++|*         QDUMP              QUEUED FILE DUMP.
00038  M00S00037.qfsp    +++|*         QLOAD              QUEUED FILE LOAD.
00039  M00S00038.qfsp    +++|*         QMOVE              QUEUED FILE MOVE.
00040  M00S00039.qfsp    +++|*         QREC               QUEUED FILE REQUEUING.
00041  M00S00040.qfsp    +++|*         DFTERM             DAYFILE TERMINATION.
00042  M00S00041.qfsp    +++|*         QALTER             ALTER ACTIVE QUEUED FILES.
00043  M00S00042.qfsp    +++|*         QFTLIST            LIST ACTIVE QUEUED FILES.
00044  M00S00043.qfsp    +++|*
00045  M00S00044.qfsp    +++|*         IF X.QFSP CALL IS MADE, K.OPTION MUST BE ENTERED WHERE
00046  M00S00045.qfsp    +++|*         *OPTION* IS ONE OF THE ABOVE PARAMETERS. THIS MUST BE
00047  M00S00046.qfsp    +++|*         ENTERED BEFORE ANY OTHER DIRECTIVES ARE ENTERED.
00048  M00S00047.qfsp    +++|          SPACE  4
00049  M00S00048.qfsp    +++|***       THE COMMAND.
00050  M00S00049.qfsp    +++|*
00051  M00S00050.qfsp    +++|*         QFSP.
00052  M00S00051.qfsp    +++|*         QDUMP(P1=F1,P2=F2,...,PN=FN,I=LFN)
00053  M00S00052.qfsp    +++|*         QLOAD(P1=F1,P2=F2,...,PN=FN,I=LFN)
00054  M00S00053.qfsp    +++|*         LDLIST(P1=F1,P2=F2,...,PN=FN,I=LFN)
00055  M00S00054.qfsp    +++|*         QMOVE(P1=F1,P2=F2,...,PN=FN,I=LFN)
00056  M00S00055.qfsp    +++|*         QREC(P1=F1,P2=F2,...,PN=FN,I=LFN)
00057  M00S00056.qfsp    +++|*         QLIST(P1=F1,P2=F2,...,PN=FN,I=LFN)
00058  M00S00057.qfsp    +++|*         DFTERM(P1=F1,P2=F2,...,PN=FN,I=LFN)
00059  M00S00058.qfsp    +++|*         DFLIST.
00060  M00S00059.qfsp    +++|*         QALTER(P1=F1,P2=F2,...,PN=FN,I=LFN)
00061  M00S00060.qfsp    +++|*         QFTLIST(P1=F1,P2=F2,...PN=FN,I=LFN)
00062  M00S00061.qfsp    +++|*
00063  M00S00062.qfsp    +++|*         WHERE PI MAY BE ANY K-DISPLAY DIRECTIVE AND
00064  M00S00063.qfsp    +++|*         FI IS ITS ASSOCIATED VALUE. (SEE K-DISPLAY INPUT DATA)
00065  M00S00064.qfsp    +++|*
00066  M00S00065.qfsp    +++|*         I      ALTERNATE DIRECTIVE INPUT FILE. THIS IS A
00067  M00S00066.qfsp    +++|*                COMMAND PARAMETER SPECIFYING WHAT FILE SHOULD BE
00068  M00S00067.qfsp    +++|*                READ FOR INPUT DIRECTIVES. THESE DIRECTIVES
00069  M00S00068.qfsp    +++|*                CONSIST OF ANY LEGAL K-DISPLAY INPUT OR COMMANDS.
00070  M00S00069.qfsp    +++|*                THESE DIRECTIVES WILL BE PROCESSED AFTER THE
00071  M00S00070.qfsp    +++|*                COMMAND DIRECTIVES BUT BEFORE ANY
00072  M00S00071.qfsp    +++|*                K-DISPLAY INPUT IS ACCEPTED.
00073  M00S00072.qfsp    +++|*
00074  M00S00073.qfsp    +++|*         PO     PROCESSOR OPTIONS WHERE OPTIONS ARE DEFINED AS
00075  M00S00074.qfsp    +++|*                THE FOLLOWING -
00076  M00S00075.qfsp    +++|*
00077  M00S00076.qfsp    +++|*                N - IF SPECIFIED, ONLY COMMAND DIRECTIVES
00078  M00S00077.qfsp    +++|*                    WILL BE PROCESSED.  K-DISPLAY IS AVAILABLE
00079  M00S00078.qfsp    +++|*                    FOR MONITORING THE UTILITY PROGRESS, BUT NO
00080  M00S00079.qfsp    +++|*                    K-DISPLAY INPUT IS ALLOWED.  THE N PARAMETER
00081  M00S00080.qfsp    +++|*                    IS IMPLIED ON ALL NON-SYSTEM ORIGIN JOBS.
00082  M00S00081.qfsp    +++|*
00083  M00S00082.qfsp    +++|*                R - IF SPECIFIED, DUMP/LOAD FILE WILL BE REWOUND
00084  M00S00083.qfsp    +++|*                    BEFORE OPERATION BEGINS.
00085  M00S00084.qfsp    +++|*
00086  M00S00085.qfsp    +++|*                E - IF SPECIFIED, ERRORED FILE PROCESSING STATUS
00087  M00S00086.qfsp    +++|*                    WILL BE TOGGLED.  DEFAULTS FOR QUEUE UTILITIES
00088  M00S00087.qfsp    +++|*                    ARE -
00089  M00S00088.qfsp    +++|*
00090  M00S00089.qfsp    +++|*                         DUMP FILE          (QDUMP)
00091  M00S00090.qfsp    +++|*                         NOT LOAD FILE      (QLOAD)
00092  M00S00091.qfsp    +++|*                         NOT MOVE FILE      (QMOVE)
00093  M00S00092.qfsp    +++|*
00094  M00S00093.qfsp    +++|*                F - IF SPECIFIED, ENTRIES WILL BE MADE IN THE *FOT*
00095  M00S00094.qfsp    +++|*                    FOR THE INACTIVE FAMILIES AND THE FILES WILL BE
00096  M00S00095.qfsp    +++|*                    QUEUED.
00097  M00S00096.qfsp    +++|*
00098  M00S00097.qfsp    +++|*                L - IF SPECIFIED, ENTRIES WILL BE MADE TO THE LID
00099  M00S00098.qfsp    +++|*                    TABLE , (IF IT IS NOT FULL) AND THE FILES WILL
00100  M00S00099.qfsp    +++|*                    BE QUEUED.
00101  M00S00100.qfsp    +++|*
00102  M00S00101.qfsp    +++|*                I - IF SPECIFIED, INACTIVE INPUT QUEUE FILES WILL BE
00103  M00S00102.qfsp    +++|*                    ACTIVATED WHEN THE OWNER FAMILY IS NOT PRESENT.
00104  M00S00103.qfsp    +++|*
00105  M00S00104.qfsp    +++|*                U - IF SPECIFIED, UNCONDITIONALLY LOAD FILES WITHIN
00106  M00S00105.qfsp    +++|*                    SECURITY RESTRAINTS AND SYSTEM FILE INTEGRITY.
00107  M00S00106.qfsp    +++|          SPACE  4
00108  M00S00107.qfsp    +++|***       K-DISPLAY INPUT DATA.
00109  M00S00108.qfsp    +++|*
00110  M00S00109.qfsp    +++|*         DATA ITEMS ARE PARTITIONED WITH SEPARATOR CHARACTERS.
00111  M00S00110.qfsp    +++|*         END-OF-LINE IS CONSIDERED A SEPARATOR CHARACTER WHILE
00112  M00S00111.qfsp    +++|*         THE FOLLOWING CHARACTERS ARE NOT CONSIDERED SEPARATORS,
00113  M00S00112.qfsp    +++|*         *=*, *+*, *-*. EACH IDENTIFIER MUST BE PRECEEDED BY AN
00114  M00S00113.qfsp    +++|*         PARAMETER. THE IDENTIFIER MUST BE SEPARATED FROM THE
00115  M00S00114.qfsp    +++|*         PARAMETER BY AN *=*.
00116  M00S00115.qfsp    +++|*
00117  M00S00116.qfsp    +++|*         FM  =  FAMILY NAME FOR DEVICES. MUST BE ENTERED BEFORE
00118  M00S00117.qfsp    +++|*                ENTERING DEVICE NUMBER (DN).
00119  M00S00118.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00120  M00S00119.qfsp    +++|*                            DEFAULTS ARE -
00121  M00S00120.qfsp    +++|*                                  ALL FAMILIES (QDUMP, QMOVE, QREC,
00122  M00S00121.qfsp    +++|*                                  QALTER, QFTLIST)
00123  M00S00122.qfsp    +++|*                                  FM FOR CURRENT DAYFILE (DFTERM)
00124  M00S00123.qfsp    +++|*
00125  M00S00124.qfsp    +++|*         FU  =  FAMILY NAME FOR USER INDEX RANGE.
00126  M00S00125.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00127  M00S00126.qfsp    +++|*                            DEFAULT IS ALL FAMILY NAMES.
00128  M00S00127.qfsp    +++|*
00129  M00S00128.qfsp    +++|*         DF  =  DESTINATION FAMILY NAME. MUST BE SPECIFIED BEFORE
00130  M00S00129.qfsp    +++|*                DESTINATION DEVICE NUMBER (DD).
00131  M00S00130.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00132  M00S00131.qfsp    +++|*                            *QLOAD* DEFAULT OPTION IS ALL FAMILIES.
00133  M00S00132.qfsp    +++|*                            *QMOVE* DEFAULT OPTION IS NO FAMILIES.
00134  M00S00133.qfsp    +++|*
00135  M00S00134.qfsp    +++|*         DN  =  DEVICE NUMBER.
00136  M00S00135.qfsp    +++|*                            1-2 NUMERIC DIGITS + RADIX.
00137  M00S00136.qfsp    +++|*                            DEFAULTS ARE -
00138  M00S00137.qfsp    +++|*                                  ALL DEVICES (QDUMP, QMOVE, QREC)
00139  M00S00138.qfsp    +++|*                                  DN FOR CURRENT DAYFILE (DFTERM)
00140  M00S00139.qfsp    +++|*
00141  M00S00140.qfsp    +++|*         DD  =  DESTINATION DEVICE NUMBER.
00142  M00S00141.qfsp    +++|*                            1-2 NUMERIC DIGITS + RADIX.
00143  M00S00142.qfsp    +++|*                            *QLOAD* DEFAULT OPTION IS ALL DEVICES.
00144  M00S00143.qfsp    +++|*                            *QMOVE* DEFAULT OPTION IS NO DEVICES.
00145  M00S00144.qfsp    +++|*
00146  M00S00145.qfsp    +++|*         UN  =  DESTINATION USER NAME.
00147  M00S00146.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00148  M00S00147.qfsp    +++|*                            ENTERED.
00149  M00S00148.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00150  M00S00149.qfsp    +++|*                            DEFAULT IS NO USER NAME SPECIFIED.
00151  M00S00150.qfsp    +++|*
00152  M00S00151.qfsp    +++|*         UJN = USER JOB NAME.
00153  M00S00152.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00154  M00S00153.qfsp    +++|*                            DEFAULT IS NO NAME SPECIFIED.
00155  M00S00154.qfsp    +++|*
00156  M00S00155.qfsp    +++|*         UI  =  USER INDEX RANGE. MAY TAKE ONE OF TWO FORMATS.
00157  M00S00156.qfsp    +++|*                UI=XXXXXX-YYYYYY  USE ALL UI IN SPECIFIED RANGE.
00158  M00S00157.qfsp    +++|*                UI=XXXXXX         USE THIS USER INDEX ONLY.
00159  M00S00158.qfsp    +++|*                            1-6 NUMERIC DIGITS + RADIX.
00160  M00S00159.qfsp    +++|*                            DEFAULT IS 0-377777B.
00161  M00S00160.qfsp    +++|*
00162  M00S00161.qfsp    +++|*         DA = DATE RANGE.  THE RANGE MAY TAKE ONE OF THREE FORMS -
00163  M00S00162.qfsp    +++|*                DA=YYMMDD-YYMMDD  USE ALL DATES IN SPECIFIED RANGE.
00164  M00S00163.qfsp    +++|*                DA=YYMMDD         USE THIS DATE ONLY.
00165  M00S00164.qfsp    +++|*                            DEFAULT WILL SELECT ALL QUEUED
00166  M00S00165.qfsp    +++|*                            FILES CREATED WITHIN FIVE DAYS
00167  M00S00166.qfsp    +++|*                            OF THE CURRENT DATE.
00168  M00S00167.qfsp    +++|*                DA=ALL            USE ALL DATES.
00169  M00S00168.qfsp    +++|*
00170  M00S00169.qfsp    +++|*                            DEFAULT FOR *QLIST* IS ALL DATES.
00171  M00S00170.qfsp    +++|*
00172  M00S00171.qfsp    +++|*         LD =   DESTINATION LOGICAL IDENTIFIER (LID) FOR REMOTE
00173  M00S00172.qfsp    +++|*                LINKED FILES.
00174  M00S00173.qfsp    +++|*                            3 ALPHANUMERIC CHARACTERS.
00175  M00S00174.qfsp    +++|*                            *0* - ALL FILES WITHOUT LIDS ARE SELECTED.
00176  M00S00175.qfsp    +++|*                            DEFAULT IS NO LID SPECIFIED.
00177  M00S00176.qfsp    +++|*
00178  M00S00177.qfsp    +++|*         JSN =  JOB SEQUENCE NUMBER. JSN WILL BE CLEARED IF PREVIOUSLY
00179  M00S00178.qfsp    +++|*                ENTERED.  OTHERWISE, JSN IS ADDED TO LIST.
00180  M00S00179.qfsp    +++|*                            1-4 ALPHANUMERIC DIGITS.
00181  M00S00180.qfsp    +++|*                            DEFAULT IS NO JSN-S.
00182  M00S00181.qfsp    +++|*                JSN LIST CAN HOLD UP TO FIVE JSN-S.
00183  M00S00182.qfsp    +++|*
00184  M00S00183.qfsp    +++|*         MI  =  MACHINE ID. MACHINE ID WILL BE CLEARED
00185  M00S00184.qfsp    +++|*                IF PREVIOUSLY ENTERED.
00186  M00S00185.qfsp    +++|*                            1-2 CHARACTERS.
00187  M00S00186.qfsp    +++|*                            *ALL* - ALL MACHINE ID-S ARE SELECTED.
00188  M00S00187.qfsp    +++|*                            DEFAULT IS CURRENT MACHINE ID.
00189  M00S00188.qfsp    +++|*
00190  M00S00189.qfsp    +++|*         ID  =  IDENTIFIER NUMBER FOR BATCH PRINT AND PUNCH FILES.
00191  M00S00190.qfsp    +++|*                ID=XX-YY    USE ALL ID,S IN SPECIFIED RANGE.
00192  M00S00191.qfsp    +++|*                ID=XX       USE THIS ID ONLY.
00193  M00S00192.qfsp    +++|*                            1-2 NUMERIC DIGITS +RADIX.
00194  M00S00193.qfsp    +++|*                            DEFAULT IS 0-77B.
00195  M00S00194.qfsp    +++|*
00196  M00S00195.qfsp    +++|*         TUI =  DESTINATION USER INDEX FOR REMOTE BATCH PRINT
00197  M00S00196.qfsp    +++|*                AND PUNCH FILES.
00198  M00S00197.qfsp    +++|*                TUI=XXXXXX-YYYYYY  USE ALL INDICES IN SPECIFIED
00199  M00S00198.qfsp    +++|*                                   RANGE.
00200  M00S00199.qfsp    +++|*                TUI=XXXXXX         USE THIS SIZE ONLY.
00201  M00S00200.qfsp    +++|*                            1-6 NUMERIC DIGITS + RADIX.
00202  M00S00201.qfsp    +++|*                            DEFAULT IS 0.  (0=NO TUI SPECIFIED)
00203  M00S00202.qfsp    +++|*
00204  M00S00203.qfsp    +++|*         TF =   DESTINATION FAMILY FOR TERMINAL FOR SELECTING FILES IN
00205  M00S00204.qfsp    +++|*                THE REMOTE BATCH QUEUE.
00206  M00S00205.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00207  M00S00206.qfsp    +++|*                            DEFAULT IS ALL FAMILIES SELECTED.
00208  M00S00207.qfsp    +++|*         FC  =  FORMS CODE.
00209  M00S00208.qfsp    +++|*                TWO FORMATS ARE ACCEPTED.
00210  M00S00209.qfsp    +++|*                FC=F1/F2/F3 SPECIFY FORMS CODE LIST.
00211  M00S00210.qfsp    +++|*                FC=F1-F2    SPECIFY FORMS CODE RANGE.
00212  M00S00211.qfsp    +++|*                            (F2 AND F3 ARE OPTIONAL)
00213  M00S00212.qfsp    +++|*                            (** INDICATES NULL FORMS CODE)
00214  M00S00213.qfsp    +++|*                            DEFAULT IS *ALL*.
00215  M00S00214.qfsp    +++|*
00216  M00S00215.qfsp    +++|*         L   =  FILE NAME TO RECEIVE OUTPUT.
00217  M00S00216.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00218  M00S00217.qfsp    +++|*                            DEFAULT IS OUTPUT.
00219  M00S00218.qfsp    +++|*
00220  M00S00219.qfsp    +++|*         LO = LIST OPTION.
00221  M00S00220.qfsp    +++|*                S = SHORT LIST (DEFAULT).
00222  M00S00221.qfsp    +++|*                F = FULL LIST.
00223  M00S00222.qfsp    +++|*
00224  M00S00223.qfsp    +++|*         TP  =  TYPE OF QUEUES TO DUMP OR MOVE.
00225  M00S00224.qfsp    +++|*                            1 OR 3 CHARACTERS.
00226  M00S00225.qfsp    +++|*                                  A = ACTIVE QUEUED ONLY
00227  M00S00226.qfsp    +++|*                                  I = INACTIVE QUEUES ONLY
00228  M00S00227.qfsp    +++|*                                  ALL = ALL QUEUES
00229  M00S00228.qfsp    +++|*                            DEFAULT IS ALL QUEUE TYPES.
00230  M00S00229.qfsp    +++|*
00231  M00S00230.qfsp    +++|*         FS  =  FILE SIZE IN PRUS.
00232  M00S00231.qfsp    +++|*                MAY TAKE ONE OF TWO FORMS.
00233  M00S00232.qfsp    +++|*                FS=XXXXXX-YYYYYY  USE ALL SIZES IN SPECIFIED RANGE.
00234  M00S00233.qfsp    +++|*                FS=XXXXXX         USE THIS SIZE ONLY.
00235  M00S00234.qfsp    +++|*                            1-6 NUMERIC DIGITS + RADIX.
00236  M00S00235.qfsp    +++|*                            DEFAULT IS 0-777777B.
00237  M00S00236.qfsp    +++|*                            IF 777777B IS SPECIFIED, ALL SIZES LARGER
00238  M00S00237.qfsp    +++|*                            ARE INCLUDED.
00239  M00S00238.qfsp    +++|*
00240  M00S00239.qfsp    +++|*         FN  =  FILENAME FOR DUMP/LOAD FILE.
00241  M00S00240.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00242  M00S00241.qfsp    +++|*                            DEFAULT IS *QFILES*.
00243  M00S00242.qfsp    +++|*
00244  M00S00243.qfsp    +++|*         NF  =  NUMBER OF MEDIA FILES TO SKIP.
00245  M00S00244.qfsp    +++|*                            1-7 NUMERIC CHARACTERS + RADIX.
00246  M00S00245.qfsp    +++|*                            DEFAULT IS 0.
00247  M00S00246.qfsp    +++|*
00248  M00S00247.qfsp    +++|*         SC  =  NUMBER OF QUEUED FILES TO SKIP.
00249  M00S00248.qfsp    +++|*                            1-7 NUMERIC CHARACTERS + RADIX.
00250  M00S00249.qfsp    +++|*                            DEFAULT IS 0.
00251  M00S00250.qfsp    +++|*
00252  M00S00251.qfsp    +++|*         FT  =  DAYFILE TYPE TO TERMINATE.
00253  M00S00252.qfsp    +++|*                            6-7 CHARACTERS.
00254  M00S00253.qfsp    +++|*                                  DAYFILE
00255  M00S00254.qfsp    +++|*                                  ACCOUNT
00256  M00S00255.qfsp    +++|*                                  ERRLOG
00257  M00S00256.qfsp    +++|*                                  MAINLOG
00258  M00S00257.qfsp    +++|*                            DEFAULT IS DAYFILE.
00259  M00S00258.qfsp    +++|*
00260  M00S00259.qfsp    +++|*         NM  = FILE NAME FOR OLD DAYFILE. OVERRIDES
00261  M00S00260.qfsp    +++|*               AUTOMATIC ASSIGNMENT BY SYSTEM.
00262  M00S00261.qfsp    +++|*                            1-5 CHARACTERS.
00263  M00S00262.qfsp    +++|*
00264  M00S00263.qfsp    +++|*
00265  M00S00264.qfsp    +++|*         LA  =  LOWER SECURITY ACCESS LEVEL.
00266  M00S00265.qfsp    +++|*                *UA* MUST ALSO BE SPECIFIED.
00267  M00S00266.qfsp    +++|*                            1-7 CHARACTERS.
00268  M00S00267.qfsp    +++|*                            DEFAULT IS ALL ACCESS LEVELS.
00269  M00S00268.qfsp    +++|*
00270  M00S00269.qfsp    +++|*         UA  =  UPPER SECURITY ACCESS LEVEL.
00271  M00S00270.qfsp    +++|*                *LA* MUST ALSO BE SPECIFIED.
00272  M00S00271.qfsp    +++|*                            1-7 CHARACTERS.
00273  M00S00272.qfsp    +++|*                            DEFAULT IS ALL ACCESS LEVELS.
00274  M00S00273.qfsp    +++|*
00275  M00S00274.qfsp    +++|*         BC  =  BATCH QUEUE TYPE SELECTION.
00276  M00S00275.qfsp    +++|*                            2-5 CHARACTERS.
00277  M00S00276.qfsp    +++|*                                  ALL - ALL QUEUE TYPES
00278  M00S00277.qfsp    +++|*                                  NONE - NO QUEUE TYPES
00279  M00S00278.qfsp    +++|*                                  SF - SPECIAL QUEUE TYPE
00280  M00S00279.qfsp    +++|*                                  IN - INPUT QUEUE TYPE
00281  M00S00280.qfsp    +++|*                                  PH - PUNCH QUEUE TYPE
00282  M00S00281.qfsp    +++|*                                  PU - PUNCH QUEUE TYPE
00283  M00S00282.qfsp    +++|*                                  PL - PLOT QUEUE TYPE
00284  M00S00283.qfsp    +++|*                                  PRINT - ALL PRINT FILES
00285  M00S00284.qfsp    +++|*                                  PR - PRINT QUEUE TYPE-ANY PRINTER
00286  M00S00285.qfsp    +++|*                                  P2 - PRINT QUEUE TYPE-512 PRINTER
00287  M00S00286.qfsp    +++|*                                  LR - PRINT QUEUE TYPE-580-12 PRINTER
00288  M00S00287.qfsp    +++|*                                  LS - PRINT QUEUE TYPE-580-16 PRINTER
00289  M00S00288.qfsp    +++|*                                  LT - PRINT QUEUE TYPE-580-20 PRINTER
00290  M00S00289.qfsp    +++|*                                  LX - PRINT QUEUE TYPE-5870 NIP
00291  M00S00290.qfsp    +++|*                                  LY - PRINT QUEUE TYPE-5970 NIP
00292  M00S00291.qfsp    +++|*                                  WT - WAIT QUEUE - TERMINAL OUTPUT
00293  M00S00292.qfsp    +++|*                QUEUE TYPE WILL BE CLEARED IF PREVIOUSLY SELECTED.
00294  M00S00293.qfsp    +++|*
00295  M00S00294.qfsp    +++|*         RB  =  REMOTE BATCH QUEUE TYPE SELECTION.
00296  M00S00295.qfsp    +++|*                            SAME AS *BC*.
00297  M00S00296.qfsp    +++|*
00298  M00S00297.qfsp    +++|*         OP  =  OPTION.
00299  M00S00298.qfsp    +++|*                            1-2 CHARACTERS.
00300  M00S00299.qfsp    +++|*                                QLOAD OPTIONS.
00301  M00S00300.qfsp    +++|*                                  A-LOAD AND ACTIVATE
00302  M00S00301.qfsp    +++|*                                  I-LOAD AND INACTIVATE
00303  M00S00302.qfsp    +++|*                                QMOVE OPTIONS.
00304  M00S00303.qfsp    +++|*                                  A-LEAVE AS ACTIVE QUEUE FILES.
00305  M00S00304.qfsp    +++|*                                  I-LEAVE AS INACTIVE QUEUE FILES.
00306  M00S00305.qfsp    +++|*                                QREC OPTIONS.
00307  M00S00306.qfsp    +++|*                                  RP-REQUEUE SPECIFIED FILES, PURGE
00308  M00S00307.qfsp    +++|*                                     OTHERS
00309  M00S00308.qfsp    +++|*                                  RI-REQUEUE SPECIFIED FILES, IGNORE
00310  M00S00309.qfsp    +++|*                                     OTHERS
00311  M00S00310.qfsp    +++|*                                  PI-PURGE SPECIFIED FILES, IGNORE
00312  M00S00311.qfsp    +++|*                                     OTHERS.
00313  M00S00312.qfsp    +++|*                                  DI-DEQUEUE SPECIFIED FILES, IGNORE
00314  M00S00313.qfsp    +++|*                                     OTHERS.
00315  M00S00314.qfsp    +++|*                                DFTERM OPTIONS.
00316  M00S00315.qfsp    +++|*                                  A-TERMINATE ACTIVE DAYFILE
00317  M00S00316.qfsp    +++|*                                  I-TERMINATE INACTIVE DAYFILE
00318  M00S00317.qfsp    +++|*                                QALTER OPTIONS.
00319  M00S00318.qfsp    +++|*                                  BC-ALTER TO LOCAL BATCH.
00320  M00S00319.qfsp    +++|*                                  EI-ALTER TO REMOTE BATCH.
00321  M00S00320.qfsp    +++|*                                  NC-DO NOT CHANGE FILE DESTINATION.
00322  M00S00321.qfsp    +++|*                                  PR-PURGE FILES.
00323  M00S00322.qfsp    +++|*
00324  M00S00323.qfsp    +++|*         NDC =  NEW DEVICE CODES.
00325  M00S00324.qfsp    +++|*                            DEVICE CODES INCLUDE-
00326  M00S00325.qfsp    +++|*                                  NONE = NO DEVICE CODE SPECIFIED
00327  M00S00326.qfsp    +++|*                                  PR = ANY PRINTER
00328  M00S00327.qfsp    +++|*                                  LP = ANY PRINTER
00329  M00S00328.qfsp    +++|*                                  P2 = 512 PRINTER
00330  M00S00329.qfsp    +++|*                                  LR = 580-16 PRINTER
00331  M00S00330.qfsp    +++|*                                  LS = 580-16 PRINTER
00332  M00S00331.qfsp    +++|*                                  LT = 580-20 PRINTER
00333  M00S00332.qfsp    +++|*                                  LX = 5870 NIP
00334  M00S00333.qfsp    +++|*                                  LY = 5970 NIP
00335  M00S00334.qfsp    +++|*
00336  M00S00335.qfsp    +++|*         NEC =  NEW EXTERNAL CHARACTERISTICS.
00337  M00S00336.qfsp    +++|*                            EXTERNAL CHARACTERISTICS INCLUDE -
00338  M00S00337.qfsp    +++|*                                  T6 = TRANSPARENT 6 BIT
00339  M00S00338.qfsp    +++|*                                  T8 = TRANSPARENT 8 BIT
00340  M00S00339.qfsp    +++|*                                  A4 = ASCII 48-CHARACTER
00341  M00S00340.qfsp    +++|*                                  B4 = BCD 48 CHARACTER
00342  M00S00341.qfsp    +++|*                                  B6 = BCD 63/4 CHARACTER
00343  M00S00342.qfsp    +++|*                                  A6 = ASCII 64-CHARACTER
00344  M00S00343.qfsp    +++|*                                  A9 = ASCII 96 CHARACTER
00345  M00S00344.qfsp    +++|*                                  PB = SB-SYSTEM BINARY
00346  M00S00345.qfsp    +++|*                                  P8 = 80 COLUMN BINARY
00347  M00S00346.qfsp    +++|*                                  PH = O26 PUNCH
00348  M00S00347.qfsp    +++|*                                  P9 = O29 PUNCH
00349  M00S00348.qfsp    +++|*                                  AS = ASCII PUNCH
00350  M00S00349.qfsp    +++|*
00351  M00S00350.qfsp    +++|*         NDF =  NEW DESTINATION FAMILY NAME.
00352  M00S00351.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00353  M00S00352.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00354  M00S00353.qfsp    +++|*                            ENTERED.
00355  M00S00354.qfsp    +++|*                            DEFAULT IS NO FAMILY SPECIFIED.
00356  M00S00355.qfsp    +++|*
00357  M00S00356.qfsp    +++|*         NUN =  NEW DESTINATION USER NAME.
00358  M00S00357.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00359  M00S00358.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00360  M00S00359.qfsp    +++|*                            ENTERED.
00361  M00S00360.qfsp    +++|*                            DEFAULT IS NO USER SPECIFIED.
00362  M00S00361.qfsp    +++|*
00363  M00S00362.qfsp    +++|*         NID =  NEW FILE IDENTIFIER.
00364  M00S00363.qfsp    +++|*                            1-2 NUMERIC DIGITS + RADIX.
00365  M00S00364.qfsp    +++|*                            (0 - 67B)
00366  M00S00365.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00367  M00S00366.qfsp    +++|*                            ENTERED.
00368  M00S00367.qfsp    +++|*                            DEFAULT IS NO ID SPECIFIED.
00369  M00S00368.qfsp    +++|*
00370  M00S00369.qfsp    +++|*         NPR =  NEW PRIORITY FOR OUTPUT FILES.
00371  M00S00370.qfsp    +++|*                            1-4 NUMERIC DIGITS + RADIX.
00372  M00S00371.qfsp    +++|*                            (0 - 7760B)
00373  M00S00372.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00374  M00S00373.qfsp    +++|*                            ENTERED.
00375  M00S00374.qfsp    +++|*                            DEFAULT IS NO PRIORITY SPECIFIED.
00376  M00S00375.qfsp    +++|*
00377  M00S00376.qfsp    +++|*         NFC =  NEW FORMS CODE FOR OUTPUT FILES.
00378  M00S00377.qfsp    +++|*                            2 ALPHANUMERIC CHARACTERS.
00379  M00S00378.qfsp    +++|*                            (** = NULL FORMS CODE)
00380  M00S00379.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00381  M00S00380.qfsp    +++|*                            ENTERED.
00382  M00S00381.qfsp    +++|*                            DEFAULT IS NO FORMS CODE SPECIFIED.
00383  M00S00382.qfsp    +++|*
00384  M00S00383.qfsp    +++|*         NRC = NEW REPEAT COUNT FOR OUTPUT.
00385  M00S00384.qfsp    +++|*                            1-2 DIGITS + RADIX.
00386  M00S00385.qfsp    +++|*                            (0-37B)
00387  M00S00386.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00388  M00S00387.qfsp    +++|*                            ENTERED.
00389  M00S00388.qfsp    +++|*                            DEFAULT IS NO REPEAT COUNT SPECIFIED.
00390  M00S00389.qfsp    +++|*
00391  M00S00390.qfsp    +++|*         NLD = NEW DESTINATION LOGICAL IDENTIFIER
00392  M00S00391.qfsp    +++|*               FOR REMOTE LINKED FILES.
00393  M00S00392.qfsp    +++|*                            3 ALPHANUMERIC CHARACTERS.
00394  M00S00393.qfsp    +++|*                            *0* - SPECIFIES NEW LID IS TO BE BLANK.
00395  M00S00394.qfsp    +++|*                            DEFAULT IS NO DESTINATION LID.
00396  M00S00395.qfsp    +++|*
00397  M00S00396.qfsp    +++|*         NAL =  NEW ACCESS LEVEL.  USER MUST BE VALIDATED FOR
00398  M00S00397.qfsp    +++|*                SECURITY ADMINISTRATOR PRIVILEGES IN ORDER TO
00399  M00S00398.qfsp    +++|*                SPECIFY *NAL*.
00400  M00S00399.qfsp    +++|*                            1-7 CHARACTERS.
00401  M00S00400.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00402  M00S00401.qfsp    +++|*                            SPECIFIED.
00403  M00S00402.qfsp    +++|*                            DEFAULT IS NO ACCESS LEVEL SPECIFIED.
00404  M00S00403.qfsp    +++|          SPACE  4
00405  M00S00404.qfsp    +++|***       K - DISPLAY COMMANDS.
00406  M00S00405.qfsp    +++|*
00407  M00S00406.qfsp    +++|*         THE FOLLOWING COMMANDS ARE LEGAL FROM THE K - DISPLAY ONLY.
00408  M00S00407.qfsp    +++|*
00409  M00S00408.qfsp    +++|*         GO.    PROCEED WITH PROCESSING USING DIRECTIVES ENTERED.
00410  M00S00409.qfsp    +++|*                K - DISPLAY WILL BE SET TO THE DEFAULT VALUES WHEN
00411  M00S00410.qfsp    +++|*                CONTROL IS RETURNED.
00412  M00S00411.qfsp    +++|*
00413  M00S00412.qfsp    +++|*         STOP.  TERMINATE INPUT. END RUN.
00414  M00S00413.qfsp    +++|*
00415  M00S00414.qfsp    +++|*         RESET. RESET PARAMETERS TO DEFAULT VALUES.
00416  M00S00415.qfsp    +++|*
00417  M00S00416.qfsp    +++|*         LIST.  DISPLAY LIST OF INACTIVE QUEUES/PERMANENTIZED DAYFILES
00418  M00S00417.qfsp    +++|*                ON RIGHT SCREEN. (QREC, DFTERM ONLY).
00419  M00S00418.qfsp    +++|*
00420  M00S00419.qfsp    +++|*         LIST=ORD.  DISPLAY DETAILED LIST FOR QUEUED FILE AT QFT
00421  M00S00420.qfsp    +++|*                ORDINAL, ORD.  (QALTER AND QFTLIST ONLY).
00422  M00S00421.qfsp    +++|*
00423  M00S00422.qfsp    +++|*         +      PAGE LEFT SCREEN K-DISPLAY FORWARD.
00424  M00S00423.qfsp    +++|*
00425  M00S00424.qfsp    +++|*         -      PAGE LEFT SCREEN K-DISPLAY BACKWARD.
00426  M00S00425.qfsp    +++|*
00427  M00S00426.qfsp    +++|*         (      PAGE RIGHT SCREEN K-DISPLAY FORWARD.
00428  M00S00427.qfsp    +++|*
00429  M00S00428.qfsp    +++|*         )      PAGE RIGHT SCREEN K-DISPLAY BACKWARD.
00430  M00S00429.qfsp    +++|*
00431  M00S00430.qfsp    +++|*         CLEAR. SET RIGHT SCREEN TO MAIN QFSP RIGHT SCREEN DISPLAY.
00432  M00S00431.qfsp    +++|*                SET LEFT SCREEN TO FIRST PAGE OF K-DISPLAY.
00433  M00S00432.qfsp    +++|*
00434  M00S00433.qfsp    +++|*         OUT.   WRITE OUTPUT GENERATED BY LIST COMMAND TO OUTPUT
00435  M00S00434.qfsp    +++|*                FILE AND RELEASE FILE TO PRINTER.
00436  M00S00435.qfsp    +++|*
00437  M00S00436.qfsp    +++|*         FAMILY.  IF ENTERED, ENTRIES WILL BE MADE IN THE *FOT* FOR
00438  M00S00437.qfsp    +++|*                THE INACTIVE FAMILIES AND THE FILES WILL BE QUEUED.
00439  M00S00438.qfsp    +++|*
00440  M00S00439.qfsp    +++|*         REWIND.  IF ENTERED, DUMP/LOAD FILE WILL BE REWOUND WHEN
00441  M00S00440.qfsp    +++|*                *GO* COMMAND IS ENTERED. (QDUMP AND QLOAD ONLY).
00442  M00S00441.qfsp    +++|*
00443  M00S00442.qfsp    +++|*         ERROR. TOGGLE STATUS OF ERRORED FILE PROCESSING.  STATUS
00444  M00S00443.qfsp    +++|*                SET MEANS TO PERFORM CURRENT OPERATION ON ALL FILES,
00445  M00S00444.qfsp    +++|*                INCLUDING THOSE ON WHICH AN UNRECOVERABLE READ OR
00446  M00S00445.qfsp    +++|*                WRITE ERROR HAS OCCURED.  (QDUMP, QLOAD, QMOVE ONLY).
00447  M00S00446.qfsp    +++|*
00448  M00S00447.qfsp    +++|*         LID.   IF ENTERED, THE LID WILL BE ADDED TO THE LID
00449  M00S00448.qfsp    +++|*                TABLE (IF IT IS NOT FULL) AND THE FILES WILL
00450  M00S00449.qfsp    +++|*                BE QUEUED.  (QLOAD, QMOVE, QREC ONLY).
00451  M00S00450.qfsp    +++|          SPACE  4
00452  M00S00451.qfsp    +++|***       DAYFILE MESSAGES.
00453  M00S00452.qfsp    +++|*
00454  M00S00453.qfsp    +++|*         * USER ACCESS NOT VALID.*
00455  M00S00454.qfsp    +++|*                QFSP HAS BEEN CALLED FROM A NON-SYSTEM ORIGIN JOB.
00456  M00S00455.qfsp    +++|*
00457  M00S00456.qfsp    +++|*         * COMMAND ARGUMENT ERROR.*
00458  M00S00457.qfsp    +++|*                INCORRECT COMMAND ARGUMENTS. CORRECT AND RERUN.
00459  M00S00458.qfsp    +++|*
00460  M00S00459.qfsp    +++|*         * QUEUE FILE UTILITY COMPLETE.* - SELF EXPLANATORY.
00461  M00S00460.qfsp    +++|          SPACE  4
00462  M00S00461.qfsp    +++|***       K-DISPLAY OPERATOR MESSAGES.
00463  M00S00462.qfsp    +++|*
00464  M00S00463.qfsp    +++|*         THE PO=N PARAMETER WILL BE IGNORED IF THE JOB IS SYSTEM
00465  M00S00464.qfsp    +++|*         ORIGIN AND ONE OF THE ERRORS BELOW IS ENCOUNTERED. THE
00466  M00S00465.qfsp    +++|*         OPERATOR WILL BE ABLE TO CORRECT THE ERROR USING THE
00467  M00S00466.qfsp    +++|*         K-DISPLAY. ALL DIRECTIVES AFTER THE DIRECTIVE IN ERROR
00468  M00S00467.qfsp    +++|*         WILL BE IGNORED. IF AN ERROR OCCURS FROM A NON-SYSTEM
00469  M00S00468.qfsp    +++|*         ORIGIN JOB, THE JOB WILL BE ABORTED.
00470  M00S00469.qfsp    +++|*
00471  M00S00470.qfsp    +++|*
00472  M00S00471.qfsp    +++|*         **** ERROR IN ALPHANUMERIC DATA.
00473  M00S00472.qfsp    +++|*                CAN INDICATE -
00474  M00S00473.qfsp    +++|*                1. NO DATA PRESENT.
00475  M00S00474.qfsp    +++|*                2. INCORRECT SEPARATOR FOLLOWING DATA.
00476  M00S00475.qfsp    +++|*
00477  M00S00476.qfsp    +++|*         **** ERROR IN DATE.
00478  M00S00477.qfsp    +++|*                CAN INDICATE -
00479  M00S00478.qfsp    +++|*                1. DATE ENTRY IS NOT IN CORRECT FORMAT.
00480  M00S00479.qfsp    +++|*                2. INCORRECT SEPARATOR FOLLOWING DATE.
00481  M00S00480.qfsp    +++|*                3. DATE ENTERED IS EARLIER THAN 70/01/01.
00482  M00S00481.qfsp    +++|*                4. ENTERED DATE IS NOT VALID. (E.G. 76/04/44.)
00483  M00S00482.qfsp    +++|*
00484  M00S00483.qfsp    +++|*         **** ERROR IN DEVICE NUMBER.
00485  M00S00484.qfsp    +++|*                CAN INDICATE -
00486  M00S00485.qfsp    +++|*                1. NO FAMILY NAME HAS BEEN SPECIFIED.
00487  M00S00486.qfsp    +++|*                2. DEVICE NUMBER IS NOT IN SPECIFIED FAMILY.
00488  M00S00487.qfsp    +++|*                3. INCORRECT SEPARATOR FOLLOWS DEVICE NUMBER.
00489  M00S00488.qfsp    +++|*
00490  M00S00489.qfsp    +++|*         **** ERROR IN FAMILY NAME.
00491  M00S00490.qfsp    +++|*                CAN INDICATE -
00492  M00S00491.qfsp    +++|*                1. SPECIFIED FAMILY CAN NOT BE FOUND.
00493  M00S00492.qfsp    +++|*                2. INCORRECT SEPARATOR FOLLOWS FAMILY NAME.
00494  M00S00493.qfsp    +++|*
Line S00494 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00495  M01S00494.271l716 ---|*         **** ERROR IN SELECTED QUEUE TYPE.
Line S00001 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00496  M01S00001.271l716 +++|*         **** ERROR IN SELECTED FILE TYPE.
00497  M00S00495.qfsp    +++|*                CAN INDICATE -
Line S00496 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00498  M01S00496.271l716 ---|*                1. QUEUE TYPE SELECTION CAN NOT BE RECOGNIZED.
00499  M01S00497.271l716 ---|*                2. INCORRECT SEPARATOR FOLLOWS QUEUE TYPE.
Line S00002 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00500  M01S00002.271l716 +++|*                1. FILE TYPE OR QUEUE TYPE SELECTION CANNOT
00501  M01S00003.271l716 +++|*                   BE RECOGNIZED.
00502  M01S00004.271l716 +++|*                2. INCORRECT SEPARATOR FOLLOWS FILE TYPE
00503  M01S00005.271l716 +++|*                   OR QUEUE TYPE.
00504  M00S00498.qfsp    +++|*
00505  M00S00499.qfsp    +++|*         **** ERROR IN IDENTIFIER.
00506  M00S00500.qfsp    +++|*                INCORRECT DIRECTIVE OR COMMAND HAS BEEN ENTERED, OR
00507  M00S00501.qfsp    +++|*                DIRECTIVE IS INCORRECT FOR SELECTED UTILITY.
00508  M00S00502.qfsp    +++|*
00509  M00S00503.qfsp    +++|*         **** INCORRECT ENTRY.
00510  M00S00504.qfsp    +++|*                PROCESSOR COULD NOT RECOGNIZE SPECIFIED
00511  M00S00505.qfsp    +++|*                UTILITY OPTION.
00512  M00S00506.qfsp    +++|*
00513  M00S00507.qfsp    +++|*         **** ERROR IN FILE SIZE RANGE.
00514  M00S00508.qfsp    +++|*                CAN INDICATE -
00515  M00S00509.qfsp    +++|*                1. FILE SIZE IS NOT NUMERIC.
00516  M00S00510.qfsp    +++|*                2. FILE SIZE RANGE DOES NOT SATISFY THE
00517  M00S00511.qfsp    +++|*                   FOLLOWING CONDITIONS.
00518  M00S00512.qfsp    +++|*                       0 .LE. MIN FS .LE. MAX FS .LE. 777777B
00519  M00S00513.qfsp    +++|*                3. INCORRECT SEPARATOR FOLLOWS LAST SIZE.
00520  M00S00514.qfsp    +++|*
Line S00515 Modification History
M01 (Removed by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00521  M01S00515.271l716 ---|*         **** JOB SEQUENCE NUMBER LIST FULL.
Line S00006 Modification History
M01 (Added by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00522  M01S00006.271l716 +++|*         **** JSN LIST FULL.
00523  M00S00516.qfsp    +++|*                JSN LIST DOES NOT HAVE ROOM FOR SPECIFIED JSN.
00524  M00S00517.qfsp    +++|*
00525  M00S00518.qfsp    +++|*         **** ERROR IN NUMERIC DATA.
00526  M00S00519.qfsp    +++|*                CAN INDICATE -
00527  M00S00520.qfsp    +++|*                1. NO DATA PRESENT.
00528  M00S00521.qfsp    +++|*                2. NUMERIC DATA NOT NUMERIC.
00529  M00S00522.qfsp    +++|*                3. NUMERIC DATA EXCEEDS MAXIMUM VALUE.
00530  M00S00523.qfsp    +++|*
00531  M00S00524.qfsp    +++|*         **** ERROR IN USER INDEX RANGE.
00532  M00S00525.qfsp    +++|*                CAN INDICATE -
00533  M00S00526.qfsp    +++|*                1. USER INDEX WAS NOT NUMERIC DATA.
00534  M00S00527.qfsp    +++|*                2. USER INDEX RANGE DOES NOT SATISFY THE
00535  M00S00528.qfsp    +++|*                   FOLLOWING CONDITIONS.
00536  M00S00529.qfsp    +++|*                       0 .LE. MIN UI .LE. MAX UI .LE. 377777B
00537  M00S00530.qfsp    +++|*                3. INCORRECT SEPARATOR FOLLOWS LAST USER INDEX.
00538  M00S00531.qfsp    +++|*
00539  M00S00532.qfsp    +++|*         **** ERROR IN ID RANGE.
00540  M00S00533.qfsp    +++|*                CAN INDICATE -
00541  M00S00534.qfsp    +++|*                1. IDENTIFIER NUMBER IS NOT NUMERIC.
00542  M00S00535.qfsp    +++|*                2. ID RANGE DOES NOT SATISFY THE
00543  M00S00536.qfsp    +++|*                   FOLLOWING CONDITIONS.
00544  M00S00537.qfsp    +++|*                       0 .LE. MIN ID .LE. MAX ID .LE. 67B
00545  M00S00538.qfsp    +++|*                3. INCORRECT SEPARATOR FOLLOWS ID.
00546  M00S00539.qfsp    +++|*
00547  M00S00540.qfsp    +++|*         **** FILE NAME CONFLICT.
00548  M00S00541.qfsp    +++|*                CAN INDICATE-
00549  M00S00542.qfsp    +++|*                1. AN ATTEMPT TO USE A RESERVED FILE NAME WAS MADE.
00550  M00S00543.qfsp    +++|*                   RESERVED FILE NAMES INCLUDE *IQF*, *NIQFT*, *MIQFT*
00551  M00S00544.qfsp    +++|*                   AND *SCR*.
00552  M00S00545.qfsp    +++|*                2. THE NAMES SPECIFIED BY THE *I* AND *L*
00553  M00S00546.qfsp    +++|*                   DIRECTIVES ARE IDENTICAL.
00554  M00S00547.qfsp    +++|*
00555  M00S00548.qfsp    +++|*         **** FAMILY NAME MUST BE ENTERED.
00556  M00S00549.qfsp    +++|*                A *DN* DIRECTIVE HAS BEEN ENTERED BEFORE THE
00557  M00S00550.qfsp    +++|*                FAMILY NAME (*FM* OR *DF*) HAS BEEN
00558  M00S00551.qfsp    +++|*                SPECIFIED. TO CORRECT, ENTER A SPECIFIC
00559  M00S00552.qfsp    +++|*                FAMILY NAME AND REENTER THE DEVICE NUMBER.
00560  M00S00553.qfsp    +++|*
00561  M00S00554.qfsp    +++|*         **** DESTINATION FAMILY NOT SPECIFIED.
00562  M00S00555.qfsp    +++|*                A *GO* COMMAND HAS BEEN ENTERED BEFORE THE
00563  M00S00556.qfsp    +++|*                FAMILY NAME (FM) OR DESTINATION FAMILY (DF) HAVE
00564  M00S00557.qfsp    +++|*                BEEN SPECIFIED. TO CORRECT, ENTER MISSING FAMILY
00565  M00S00558.qfsp    +++|*                AND TYPE *GO*.
00566  M00S00559.qfsp    +++|*
00567  M00S00560.qfsp    +++|*         **** SYNTAX ERROR IN LID.
00568  M00S00561.qfsp    +++|*                AN INCORRECT SEPARATOR IS PRESENT, NO PARAMETER
00569  M00S00562.qfsp    +++|*                WAS SPECIFIED, OR THERE WERE NOT 3 CHARACTERS
00570  M00S00563.qfsp    +++|*                SPECIFIED.
00571  M00S00564.qfsp    +++|*
00572  M00S00565.qfsp    +++|*         **** LID NOT IN TABLE.
00573  M00S00566.qfsp    +++|*                AN *NLD* (NEW DESTINATION LOGICAL IDENTIFIER) WAS
00574  M00S00567.qfsp    +++|*                SPECIFIED THAT WAS NOT IN THE LID TABLE.
00575  M00S00568.qfsp    +++|*
00576  M00S00569.qfsp    +++|*         **** FAMILY FOR TERMINAL MUST BE ENTERED.
00577  M00S00570.qfsp    +++|*                THE *TUI* DIRECTIVE HAS BEEN ENTERED BEFORE THE
00578  M00S00571.qfsp    +++|*                *TF* DIRECTIVE.  TO CORRECT, ENTER A DESTINATION
00579  M00S00572.qfsp    +++|*                FAMILY FOR TERMINAL (*TF* DIRECTIVE) AND REENTER
00580  M00S00573.qfsp    +++|*                A DESTINATION USER INDEX (*TUI* PARAMETER).
00581  M00S00574.qfsp    +++|*
00582  M00S00575.qfsp    +++|*         **** ERROR IN ACCESS LEVEL.
00583  M00S00576.qfsp    +++|*                CAN INDICATE -
00584  M00S00577.qfsp    +++|*                1.  NO ACCESS LEVEL IS SPECIFIED.
00585  M00S00578.qfsp    +++|*                2.  INCORRECT SEPARATOR FOLLOWS ACCESS LEVEL.
00586  M00S00579.qfsp    +++|*
00587  M00S00580.qfsp    +++|*         **** LA AND UA BOTH REQUIRED.
00588  M00S00581.qfsp    +++|*                WHEN SPECIFYING ACCESS LEVELS, BOTH THE LOWER (LA)
00589  M00S00582.qfsp    +++|*                AND UPPER (UA) MUST BE SPECIFIED.
00590  M00S00583.qfsp    +++|*
00591  M00S00584.qfsp    +++|*         **** ACCESS LEVEL OUT OF RANGE.
00592  M00S00585.qfsp    +++|*                THE ACCESS LEVEL SELECTED WAS NOT WITHIN
00593  M00S00586.qfsp    +++|*                THE SYSTEM LIMITS.
00594  M00S00587.qfsp    +++|*
00595  M00S00588.qfsp    +++|*         **** LA VALUE LARGER THAN UA.
00596  M00S00589.qfsp    +++|*                THE VALUE ASSOCIATED WITH LOWER (LA) ACCESS LEVEL
00597  M00S00590.qfsp    +++|*                MUST BE LESS THAN OR EQUAL TO THE UPPER (UA) VALUE.
00598  M00S00591.qfsp    +++|*
00599  M00S00592.qfsp    +++|*         **** UNKNOWN ACCESS LEVEL NAME.
00600  M00S00593.qfsp    +++|*                THE ACCESS LEVEL NAME SELECTED IS NOT A DEFINED NAME.
00601  M00S00594.qfsp    +++|*
00602  M00S00595.qfsp    +++|*         **** PAGING COMMAND IGNORED.
00603  M00S00596.qfsp    +++|*                THE ENTERED PAGING COMMAND IS DISABLED WHILE THE LIST
00604  M00S00597.qfsp    +++|*                K-DISPLAY IS ACTIVE.
00605  M00S00598.qfsp    +++|          TITLE  MACROS.
00606  M00S00599.qfsp    +++|          SPACE  4
00607  M00S00600.qfsp    +++|**        BITCON - GENERATE BIT STRING FOR SPECIAL CHARACTERS.
00608  M00S00601.qfsp    +++|*
00609  M00S00602.qfsp    +++|*         BITCON GENERATES A CONSTANT WITH BIT POSITIONS SET
00610  M00S00603.qfsp    +++|*         WHICH CORRESPOND WITH THE SPECIAL CHARACTERS SUPPLIED
00611  M00S00604.qfsp    +++|*         BIASED BY (-45B).
00612  M00S00605.qfsp    +++|*
00613  M00S00606.qfsp    +++|* NAME    BITCON P
00614  M00S00607.qfsp    +++|*                *P* SERIES OF SPECIAL CHARACTERS SEPARATED BY COMMAS
00615  M00S00608.qfsp    +++|*                    AND DELIMITED BY PARENTHESIS.
00616  M00S00609.qfsp    +++|
00617  M00S00610.qfsp    +++|
00618  M00S00611.qfsp    +++|          MACRO  BITCON,NAME,P
00619  M00S00612.qfsp    +++|          LOCAL  A,B
00620  M00S00613.qfsp    +++| A        MICRO  1,,
00621  M00S00614.qfsp    +++|          IRP    P
00622  M00S00615.qfsp    +++| B        DECMIC 1R_P-1R+
00623  M00S00616.qfsp    +++| A        MICRO  1,, "A"+1S"B"
00624  M00S00617.qfsp    +++|          IRP
00625  M00S00618.qfsp    +++| NAME     CON    "A"
00626  M00S00619.qfsp    +++|          ENDM
00627  M00S00620.qfsp    +++|          SPACE  4
00628  M00S00621.qfsp    +++|**        IENTRY - GENERATE INPUT ENTRY TABLE ENTRY.
00629  M00S00622.qfsp    +++|*
00630  M00S00623.qfsp    +++|*         IENTRY I,F,A,P
00631  M00S00624.qfsp    +++|*                I = IDENTIFIER.
00632  M00S00625.qfsp    +++|*                F = PROCESSOR INFORMATION.
00633  M00S00626.qfsp    +++|*                A = ARGUMENT TABLE INDEX.
00634  M00S00627.qfsp    +++|*                P = PROCESSOR INDEX.
00635  M00S00628.qfsp    +++|
00636  M00S00629.qfsp    +++|
00637  M00S00630.qfsp    +++| IENTRY   MACRO  I,F,A,P
00638  M00S00631.qfsp    +++|          LOCAL  B
00639  M00S00632.qfsp    +++| B        MICRO  1,3,$I$
00640  M00S00633.qfsp    +++|          VFD    18/0L"B",18/F,12/0,6/A,6/P
00641  M00S00634.qfsp    +++|          ENDM
00642  M00S00635.qfsp    +++|          SPACE  4
00643  M00S00636.qfsp    +++|**        KIND - GENERATE K-DISPLAY INDEX TABLE ENTRY.
00644  M00S00637.qfsp    +++|*
00645  M00S00638.qfsp    +++|*         KIND   DD,DL,DM,DQ,DF,DN.
00646  M00S00639.qfsp    +++|*                DD = QDUMP K-DISPLAY LINE INDEX.
00647  M00S00640.qfsp    +++|*                DL = QLOAD K-DISPLAY LINE INDEX.
00648  M00S00641.qfsp    +++|*                DM = QMOVE K-DISPLAY LINE INDEX.
00649  M00S00642.qfsp    +++|*                DQ = QREC K-DISPLAY LINE INDEX.
00650  M00S00643.qfsp    +++|*                DF = DAYFILE K-DISPLAY LINE INDEX.
00651  M00S00644.qfsp    +++|*                DN = QFTLIST/QALTER K-DISPLAY LINE INDEX.
00652  M00S00645.qfsp    +++|*                NULL = DIRECTIVE NOT USED BY UTILITY.
00653  M00S00646.qfsp    +++|
00654  M00S00647.qfsp    +++|
00655  M00S00648.qfsp    +++| KIND     MACRO  A,B,C,D,E,F
00656  M00S00649.qfsp    +++|          VFD    18/A,18/B,18/C,6/0
00657  M00S00650.qfsp    +++|          VFD    18/D,18/E,18/F,6/0
00658  M00S00651.qfsp    +++|          ENDM
00659  M00S00652.qfsp    +++| MASK     SPACE  4,10
00660  M00S00653.qfsp    +++|**        MASK - GENERATE DIRECTIVE MASK.
00661  M00S00654.qfsp    +++|*
00662  M00S00655.qfsp    +++|*         MASK   (A,B,C,...,N)
00663  M00S00656.qfsp    +++|*                BITS 59-A, 59-B, 59-C,...,59-N ARE SET.
00664  M00S00657.qfsp    +++|
00665  M00S00658.qfsp    +++|
00666  M00S00659.qfsp    +++| MASK     MACRO  A
00667  M00S00660.qfsp    +++|          IRP    A
00668  M00S00661.qfsp    +++|          POS    60-A
00669  M00S00662.qfsp    +++|          VFD    1/1
00670  M00S00663.qfsp    +++|          IRP
00671  M00S00664.qfsp    +++|          POS    1
00672  M00S00665.qfsp    +++|          BSS    0
00673  M00S00666.qfsp    +++|          ENDM
00674  M00S00667.qfsp    +++| TABLE    SPACE  4
00675  M00S00668.qfsp    +++|**        TABLE - GENERATE TABLE ENTRY.
00676  M00S00669.qfsp    +++|*
00677  M00S00670.qfsp    +++|*         TABLE  I,N
00678  M00S00671.qfsp    +++|*
00679  M00S00672.qfsp    +++|*         ENTRY  I = K-DISPLAY INPUT ENTRY.
00680  M00S00673.qfsp    +++|*                N = INTERNAL IDENTIFIER NUMBER.
00681  M00S00674.qfsp    +++|*
00682  M00S00675.qfsp    +++|*         EXIT   ONE WORD GENERATED IN FOLLOWING FORMAT -
00683  M00S00676.qfsp    +++|*                42/ I , 18/ N
00684  M00S00677.qfsp    +++|
00685  M00S00678.qfsp    +++|
00686  M00S00679.qfsp    +++| TABLE    MACRO  I,N
00687  M00S00680.qfsp    +++|          LOCAL  A
00688  M00S00681.qfsp    +++|          IFC    NE,$I$*$
00689  M00S00682.qfsp    +++| A        MICRO  1,7,$I$
00690  M00S00683.qfsp    +++|          VFD    42/0L"A",18/N
00691  M00S00684.qfsp    +++|          ELSE
00692  M00S00685.qfsp    +++|          VFD    42/1L*,18/7
00693  M00S00686.qfsp    +++|          ENDIF
00694  M00S00687.qfsp    +++|          ENDM
00695  M00S00688.qfsp    +++|          SPACE  4
00696  M00S00689.qfsp    +++|**        COMMON DECKS.
00697  M00S00690.qfsp    +++|
00698  M00S00691.qfsp    +++|*CALL     COMCMAC
00699  M00S00692.qfsp    +++|*CALL     COMCCMD
00700  M00S00693.qfsp    +++|*CALL     COMCDCM
00701  M00S00694.qfsp    +++|*CALL     COMCDCP
00702  M00S00695.qfsp    +++|*CALL     COMSIOQ
00703  M00S00696.qfsp    +++|*CALL     COMSJIO
00704  M00S00697.qfsp    +++|*CALL     COMSMLS
00705  M00S00698.qfsp    +++|*CALL     COMSMSC
00706  M00S00699.qfsp    +++|*CALL     COMSPRD
00707  M00S00700.qfsp    +++|*CALL     COMSSFM
00708  M00S00701.qfsp    +++|*CALL     COMSSSD
00709  M00S00702.qfsp    +++|*CALL     COMSSSJ
00710  M00S00703.qfsp    +++|          LIST   X
00711  M00S00704.qfsp    +++|*CALL     COMSQFS
00712  M00S00705.qfsp    +++|          LIST   -X
00713  M00S00706.qfsp    +++|          SPACE  4
00714  M00S00707.qfsp    +++|**        GENERAL EQUATES.
00715  M00S00708.qfsp    +++|
00716  M00S00709.qfsp    +++|
00717  M00S00710.qfsp    +++| NOQT     EQU    12          NUMBER OF QUEUE TYPES
00718  M00S00711.qfsp    +++| NSCI     EQU    80          NUMBER OF CHARACTERS TO SCAN ON INPUT
00719  M00S00712.qfsp    +++|          TITLE  TABLES.
00720  M00S00713.qfsp    +++|          ORG    120B
00721  M00S00714.qfsp    +++|
Line S00715 Modification History
M01 (Removed by) ns2570
Seq #  *Modification Id* Act 
----------------------------+
00722  M01S00715.ns2570  ---|**        WORKING STORAGE.
Line S00001 Modification History
M01 (Added by) ns2570
Seq #  *Modification Id* Act 
----------------------------+
00723  M01S00001.ns2570  +++|*         WORKING STORAGE (ANY CHANGES TO CELLS REFERENCED BY
00724  M01S00002.ns2570  +++|*         DEFINITIONS IN *COMSQFS* MUST BE REFLECTED THERE).
00725  M00S00716.qfsp    +++|
00726  M00S00717.qfsp    +++|
00727  M00S00718.qfsp    +++| FWA      BSS    0
00728  M00S00719.qfsp    +++| BLKS     DATA   1H          WORD OF BLANKS
00729  M00S00720.qfsp    +++|          CHAR   1R[,1R(
00730  M00S00721.qfsp    +++|          CHAR   1R],1R)
00731  M00S00722.qfsp    +++|          CODE   O
00732  M00S00723.qfsp    +++| CA       BITCON (+,-,[,])   ALLOW + - ( ) PAGING CHARACTERS
00733  M00S00724.qfsp    +++|          CODE   *
00734  M00S00725.qfsp    +++| CF       BITCON (*)         SPECIAL CHARACTER FOR MACHINE ID
00735  M00S00726.qfsp    +++| CS       BITCON ( )         CHARACTERS SUPPRESSED ON INPUT
00736  M00S00727.qfsp    +++| DFP      CON    0           DAYFILE POINTER
00737  M00S00728.qfsp    +++| DVLL     CON    8           DEVICE LOWER ACCESS LEVEL LIMIT
00738  M00S00729.qfsp    +++| DVUL     CON    -1          DEVICE UPPER ACCESS LEVEL LIMIT
00739  M00S00730.qfsp    +++| ENUT     CON    0           ENTRY ADDRESS OF UTILITY
00740  M00S00731.qfsp    +++| FPNM     CON    -1          FUNCTION PROCESSOR NUMBER
00741  M00S00732.qfsp    +++| JACL     CON    0           VALID JOB ACCESS LEVELS
00742  M00S00733.qfsp    +++| KD       CON    0           K-DISPLAY STATUS WORD
00743  M00S00734.qfsp    +++| KTIT     BSSZ   2           K-DISPLAY TITLE
00744  M00S00735.qfsp    +++| N        CON    0           INHIBIT K-DISPLAY FLAG
00745  M00S00736.qfsp    +++| PG       CON    0           PAGE INDEX
00746  M00S00737.qfsp    +++| PI       CON    0           PROCESSOR INFORMATION
00747  M00S00738.qfsp    +++| QFT      CON    0           QFT POINTER WORD
00748  M00S00739.qfsp    +++| SECR     CON    0           *GETSSL* REPLY WORD
00749  M00S00740.qfsp    +++| SL       CON    0           STRING BUFFER LIMIT POINTER
00750  M00S00741.qfsp    +++| SP       CON    0           STRING BUFFER POINTER
Line S00003 Modification History
M01 (Added by) ns2570
Seq #  *Modification Id* Act 
----------------------------+
00751  M01S00003.ns2570  +++| OPMP     CON    0           OPERATOR ACTION MESSAGE POINTER
00752  M00S00742.qfsp    +++|          SPACE  4
00753  M00S00743.qfsp    +++|*         NOTE - ANY CHANGE IN THE ORDER OF THE *TARG*, *TEQP*,
Line S00744 Modification History
M01 (Removed by) ns2533
Seq #  *Modification Id* Act 
----------------------------+
00754  M01S00744.ns2533  ---|*                *TMSD*, *TDAL* AND *FOTT* TABLES MUST BE
Line S00001 Modification History
M01 (Added by) ns2533
Seq #  *Modification Id* Act 
----------------------------+
00755  M01S00001.ns2533  +++|*                *TMSD*, *TDAL*, *TMSS* AND *FOTT* TABLES MUST BE
00756  M00S00745.qfsp    +++|*                ACCOMPANIED BY A CHANGE IN *COMSQFS*.
00757  M00S00746.qfsp    +++| TARG     SPACE  4
00758  M00S00747.qfsp    +++|**        TARG - TABLE OF PROCESSED ARGUMENTS.
00759  M00S00748.qfsp    +++|*
00760  M00S00749.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00761  M00S00750.qfsp    +++|
00762  M00S00751.qfsp    +++|
00763  M00S00752.qfsp    +++| TARG     BSS    TARGL
00764  M00S00753.qfsp    +++| TEQP     SPACE  4
00765  M00S00754.qfsp    +++|**        TEQP - TABLE OF MASS STORAGE DEVICES.
00766  M00S00755.qfsp    +++|*
00767  M00S00756.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00768  M00S00757.qfsp    +++|
00769  M00S00758.qfsp    +++|
00770  M00S00759.qfsp    +++| TEQP     BSSZ   ESMX+1
00771  M00S00760.qfsp    +++| TMSD     SPACE  4
00772  M00S00761.qfsp    +++|**        TMSD - TABLE OF MASS STORAGE DESCRIPTIONS.
00773  M00S00762.qfsp    +++|*
00774  M00S00763.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00775  M00S00764.qfsp    +++|
00776  M00S00765.qfsp    +++|
00777  M00S00766.qfsp    +++| TMSD     BSSZ   ESMX
00778  M00S00767.qfsp    +++|          SPACE  4,10
00779  M00S00768.qfsp    +++|**        TDAL - TABLE OF MASS STORAGE DEVICE ACCESS LEVELS.
00780  M00S00769.qfsp    +++|*
00781  M00S00770.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00782  M00S00771.qfsp    +++|
00783  M00S00772.qfsp    +++| TDAL     BSSZ   ESMX
Line S00002 Modification History
M01 (Added by) ns2533
Seq #  *Modification Id* Act 
----------------------------+
00784  M01S00002.ns2533  +++|          SPACE  4,10
00785  M01S00003.ns2533  +++|**        TMSS - TABLE OF AVAILABLE MASS STORAGE SPACE.
00786  M01S00004.ns2533  +++|*
00787  M01S00005.ns2533  +++|*         SEE *COMSQFS* FOR FORMAT.
00788  M01S00006.ns2533  +++|
00789  M01S00007.ns2533  +++| TMSS     BSSZ   ESMX
00790  M00S00773.qfsp    +++|          SPACE  4,10
00791  M00S00774.qfsp    +++|**        TPPP - TABLE OF PRINTER PAGE PARAMETERS.
00792  M00S00775.qfsp    +++|*
00793  M00S00776.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00794  M00S00777.qfsp    +++|
00795  M00S00778.qfsp    +++|
00796  M00S00779.qfsp    +++| TPPP     BSSZ   TPPPL
00797  M00S00780.qfsp    +++|          SPACE  4,10
00798  M00S00781.qfsp    +++|**        FOTT - FAMILY ORDINAL TABLE.
00799  M00S00782.qfsp    +++|*
00800  M00S00783.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00801  M00S00784.qfsp    +++|
00802  M00S00785.qfsp    +++|
00803  M00S00786.qfsp    +++| FOTT     BSSZ   FOTL
00804  M00S00787.qfsp    +++| TKLN     SPACE  4
00805  M00S00788.qfsp    +++|**        TKLN - TABLE OF K-DISPLAY LINE NUMBERS.
00806  M00S00789.qfsp    +++|
00807  M00S00790.qfsp    +++|
00808  M00S00791.qfsp    +++| TKLN     BSS    0
00809  M00S00792.qfsp    +++|          LOC    0
00810  M00S00793.qfsp    +++|          KIND   DDFM,,DMFM,DQFM,DFFM,DNFM
00811  M00S00794.qfsp    +++|          KIND   DQFU,DQFU,DQFU,DQFU
00812  M00S00795.qfsp    +++|          KIND   ,DLDE,DMDF,,,DNDF
00813  M00S00796.qfsp    +++|          KIND   DDDN,,DMDN,DQDN,DFDN,DNDN
00814  M00S00797.qfsp    +++|          KIND   ,DLDD,DMDD
00815  M00S00798.qfsp    +++|          KIND   DQUI,DQUI,DQUI,DQUI
00816  M00S00799.qfsp    +++|          KIND   DQU1,DQU1,DQU1,DQU1
00817  M00S00800.qfsp    +++|          KIND   DDDA,DLDA,DMDA,DQDA
00818  M00S00801.qfsp    +++|          KIND   DDD1,DLD1,DMD1,DQD1
00819  M00S00802.qfsp    +++|          KIND   DQJN,DQJN,DQJN,DQJN,,DQJN
00820  M00S00803.qfsp    +++|          KIND   DQJ2,DQJ2,DQJ2,DQJ2,,DQJ2
00821  M00S00804.qfsp    +++|          KIND   DQJ3,DQJ3,DQJ3,DQJ3,,DQJ3
00822  M00S00805.qfsp    +++|          KIND   DQJ4,DQJ4,DQJ4,DQJ4,,DQJ4
00823  M00S00806.qfsp    +++|          KIND   DQJ5,DQJ5,DQJ5,DQJ5,,DQJ5
00824  M00S00807.qfsp    +++|          KIND   DQLI,DQLI,DQLI,DQLI,,DNLD
00825  M00S00808.qfsp    +++|          KIND   ,,,,,DNNL
00826  M00S00809.qfsp    +++|          KIND   DQID,DQID,DQID,DQID,,DNID
00827  M00S00810.qfsp    +++|          KIND   DQI1,DQI1,DQI1,DQI1,,DNI1
00828  M00S00811.qfsp    +++|          KIND   DQLA,DQLA,DQLA,DQLA,,DNLA
00829  M00S00812.qfsp    +++|          KIND   DQL1,DQL1,DQL1,DQL1,,DNL1
00830  M00S00813.qfsp    +++|          KIND   DQUA,DQUA,DQUA,DQUA,,DNUA
00831  M00S00814.qfsp    +++|          KIND   DQU2,DQU2,DQU2,DQU2,,DNU1
00832  M00S00815.qfsp    +++|          KIND   DDOF,DLOF,DMOF,DQOF,DFOF,DNOF
00833  M00S00816.qfsp    +++|          KIND   DDTP,,DMTP
Line S00817 Modification History
M01 (Removed by) ns2747
Seq #  *Modification Id* Act 
----------------------------+
00834  M01S00817.ns2747  ---|          KIND   DQFS,DQFS,DQFS,DQFS
00835  M01S00818.ns2747  ---|          KIND   DQF1,DQF1,DQF1,DQF1
Line S00001 Modification History
M01 (Added by) ns2747
Seq #  *Modification Id* Act 
----------------------------+
00836  M01S00001.ns2747  +++|          KIND   DQFS,DQFS,DQFS,DQFS,,DNFS
00837  M01S00002.ns2747  +++|          KIND   DQF1,DQF1,DQF1,DQF1,,DNF1
00838  M00S00819.qfsp    +++|          KIND   DDNF,DLNF
00839  M00S00820.qfsp    +++|          KIND   ,DLSC
00840  M00S00821.qfsp    +++|          KIND   DQBC,DQBC,DQBC,DQBC,,DQBC
00841  M00S00822.qfsp    +++|          KIND   DQB1,DQB1,DQB1,DQB1,,DQB1
00842  M00S00823.qfsp    +++|          KIND   DQB2,DQB2,DQB2,DQB2,,DQB2
00843  M00S00824.qfsp    +++|          KIND   DQRB,DQRB,DQRB,DQRB,,DQRB
00844  M00S00825.qfsp    +++|          KIND   DQR3,DQR3,DQR3,DQR3,,DQR3
00845  M00S00826.qfsp    +++|          KIND   DQR4,DQR4,DQR4,DQR4,,DQR4
00846  M00S00827.qfsp    +++|          KIND   ,DLOP,DMOP,DQOP,DFOP,DNOP
00847  M00S00828.qfsp    +++|          KIND   ,,,,DFFT
00848  M00S00829.qfsp    +++|          KIND   ,,,,DFNM
00849  M00S00830.qfsp    +++|          KIND   DQTI,DQTI,DQTI,DQTI
00850  M00S00831.qfsp    +++|          KIND   DQT1,DQT1,DQT1,DQT1
00851  M00S00832.qfsp    +++|          KIND   DQTF,DQTF,DQTF,DQTF
00852  M00S00833.qfsp    +++|          KIND   DQFR,DQFR,DQFR,DQFR,,DNFR
00853  M00S00834.qfsp    +++|          KIND   DDMI,DLMI,DMMI,DQMI
00854  M00S00835.qfsp    +++|          KIND   DDFN,DLFN
00855  M00S00836.qfsp    +++|          KIND   ,,,,,DNUN
00856  M00S00837.qfsp    +++|          KIND   ,,,,,DNUJ
00857  M00S00838.qfsp    +++|          KIND   ,,,,,DNLO
00858  M00S00839.qfsp    +++|          KIND   ,,,,,DNAL
00859  M00S00840.qfsp    +++|          KIND   ,,,,,DNDC
00860  M00S00841.qfsp    +++|          KIND   ,,,,,DNNE
00861  M00S00842.qfsp    +++|          KIND   ,,,,,DNND
00862  M00S00843.qfsp    +++|          KIND   ,,,,,DNNU
00863  M00S00844.qfsp    +++|          KIND   ,,,,,DNNC
00864  M00S00845.qfsp    +++|          KIND   ,,,,,DNNI
00865  M00S00846.qfsp    +++|          KIND   ,,,,,DNNR
00866  M00S00847.qfsp    +++|          KIND   ,,,,,DNNP
00867  M00S00848.qfsp    +++| TKDR     EQU    */2
00868  M00S00849.qfsp    +++|          KIND   DDDR,,DMDR,DQDR
00869  M00S00850.qfsp    +++| TKIN     EQU    */2
00870  M00S00851.qfsp    +++|          KIND   DDIN,,DMIN,DQIN
00871  M00S00852.qfsp    +++| TKER     EQU    */2
00872  M00S00853.qfsp    +++|          KIND   DDER,DLER,DMER
00873  M00S00854.qfsp    +++|
00874  M00S00855.qfsp    +++|          LOC    *O
00875  M00S00856.qfsp    +++| TOCE     SPACE  4,10
00876  M00S00857.qfsp    +++|**        TOCE - TABLE OF COMMAND ENTRIES.
00877  M00S00858.qfsp    +++|*
00878  M00S00859.qfsp    +++|*T        42/ COMMAND , 6/ 0 , 6/ VALUE , 6/ INDEX
Figure

0561112171829 INDEX VALUE 0 COMMAND 3059 COMMAND

00879  M00S00860.qfsp    +++|*
00880  M00S00861.qfsp    +++|*         NOTE   THIS TABLE IS ALTERED BY PRESET FOR THE
00881  M00S00862.qfsp    +++|*                SPECIFIC UTILITY BEING PROCESSED.
00882  M00S00863.qfsp    +++|
00883  M00S00864.qfsp    +++|
00884  M00S00865.qfsp    +++| TOCE     BSS    0
00885  M00S00866.qfsp    +++|          VFD    42/1L+,6/0,6/1,6/CPL      +
00886  M00S00867.qfsp    +++|          VFD    42/1L-,6/0,6/1,6/CPL      -
00887  M00S00868.qfsp    +++|          VFD    42/1L(,6/0,6/1,6/CPR      (
00888  M00S00869.qfsp    +++|          VFD    42/1L),6/0,6/1,6/CPR      )
00889  M00S00870.qfsp    +++|          VFD    42/0LSTOP,6/0,6/0,6/CTR   STOP
00890  M00S00871.qfsp    +++| TOCEA    VFD    42/0LGO,6/0,6/0,6/CUP     GO
00891  M00S00872.qfsp    +++|          VFD    42/0LRESET,6/0,6/0,6/CRS  RESET
00892  M00S00873.qfsp    +++|          VFD    42/0LOUT,6/0,6/3,6/CUP    OUT
00893  M00S00874.qfsp    +++| TOCEB    VFD    42/0LLIST,6/0,6/2,6/CLT   LIST
00894  M00S00875.qfsp    +++|          VFD    42/0LCLEAR,6/0,6/0,6/CCR  CLEAR
00895  M00S00876.qfsp    +++|          VFD    42/0LFAMILY,6/0,6/0,6/PFO FAMILY
00896  M00S00877.qfsp    +++|          VFD    42/0LLID,6/0,6/0,6/PLT    LID
00897  M00S00878.qfsp    +++|          CON    0                         END OF TABLE
00898  M00S00879.qfsp    +++| TINE     SPACE  4,11
00899  M00S00880.qfsp    +++|**        TINE - TABLE OF INPUT ENTRIES.
00900  M00S00881.qfsp    +++|*
00901  M00S00882.qfsp    +++|*T        18/ I ,18/ F ,12/  ,6/ A ,6/ P
Figure

0561112232429 P A F 30414259 F I

00902  M00S00883.qfsp    +++|*
00903  M00S00884.qfsp    +++|*                I = IDENTIFIER.
00904  M00S00885.qfsp    +++|*                F = PROCESSOR INFORMATION.
00905  M00S00886.qfsp    +++|*                    FWA OF SEARCH TABLE.
00906  M00S00887.qfsp    +++|*                    ADDRESS OF MAXIMUM VALUE.
00907  M00S00888.qfsp    +++|*                A = ARGUMENT TABLE INDEX.
00908  M00S00889.qfsp    +++|*                P = PROCESSOR INDEX.
00909  M00S00890.qfsp    +++|
00910  M00S00891.qfsp    +++|
00911  M00S00892.qfsp    +++| TINE     BSS    0
00912  M00S00893.qfsp    +++|          LOC    0
00913  M00S00894.qfsp    +++|          IENTRY FM,TEQP,ARFM,PFM      *FM*
00914  M00S00895.qfsp    +++|          IENTRY FU,0,ARFU,PFM         *FU*
00915  M00S00896.qfsp    +++|          IENTRY TF,0,ARTF,PFM         *TF*
00916  M00S00897.qfsp    +++|          IENTRY DD,TEQP,ARDD,PDN      *DD*
00917  M00S00898.qfsp    +++| TIDF     BSS    0
00918  M00S00899.qfsp    +++|          IENTRY DF,TEQP,ARDF,PFM      *DF*
00919  M00S00900.qfsp    +++|          IENTRY DN,TEQP,ARDN,PDN      *DN*
00920  M00S00901.qfsp    +++|          IENTRY JSN,ARJN,ARJN,PJN     *JSN*
00921  M00S00902.qfsp    +++|          IENTRY ID,NRPB,ARID,PNR      *ID*
00922  M00S00903.qfsp    +++|          IENTRY LA,TALV,ARLA,PAL      *LA*
00923  M00S00904.qfsp    +++|          IENTRY UA,TALV,ARUA,PAL      *UA*
00924  M00S00905.qfsp    +++|          IENTRY L,0,ARLL,PAN          *L*
00925  M00S00906.qfsp    +++|          IENTRY TP,TOTP,ARTP,PAN      *TP*
00926  M00S00907.qfsp    +++|          IENTRY FS,NRPC,ARFS,PNR      *FS*
00927  M00S00908.qfsp    +++|          IENTRY FN,0,ARFN,PAN         *FN*
00928  M00S00909.qfsp    +++|          IENTRY NF,0,ARNF,PNM         *NF*
00929  M00S00910.qfsp    +++|          IENTRY SC,0,ARSC,PNM         *SC*
00930  M00S00911.qfsp    +++|          IENTRY FT,TODT,ARFT,PAN      *FT*
00931  M00S00912.qfsp    +++|          IENTRY BC,TQTE,ARBC,POT      *BC*
00932  M00S00913.qfsp    +++|          IENTRY RB,TQTE,ARRB,POT      *RB*
00933  M00S00914.qfsp    +++|          IENTRY UI,NRPA,ARUI,PNR      *UI*
Line S00915 Modification History
M01 (Removed by) ns2786a
Seq #  *Modification Id* Act 
----------------------------+
00934  M01S00915.ns2786a ---|          IENTRY DA,0,ARDA,PNR
Line S00001 Modification History
M01 (Added by) ns2786a
Seq #  *Modification Id* Act 
----------------------------+
00935  M01S00001.ns2786a +++|          IENTRY DA,0,ARDA,PNR         *DA*
00936  M00S00916.qfsp    +++|          IENTRY NM,0,ARNM,PAN         *NM*
00937  M00S00917.qfsp    +++|          IENTRY TUI,NRPA,ARTI,PNR     *TUI*
00938  M00S00918.qfsp    +++|          IENTRY FC,,ARFR,PFC          *FC*
00939  M00S00919.qfsp    +++|          IENTRY MI,3,ARMI,PMI         *MI*
00940  M00S00920.qfsp    +++|          IENTRY UN,10B,ARUN,PMI       *UN*
00941  M00S00921.qfsp    +++|          IENTRY UJN,10B,ARUJ,PMI      *UJN*
00942  M00S00922.qfsp    +++|          IENTRY LO,TLOP,ARLO,PAN      *LO*
00943  M00S00923.qfsp    +++|          IENTRY LD,0,AROL,PLD         *LD*
00944  M00S00924.qfsp    +++|          IENTRY NAL,TALV,ARAL,PAL     *NAL*
00945  M00S00925.qfsp    +++|          IENTRY NLD,0,ARNL,PLD        *NLD*
00946  M00S00926.qfsp    +++|          IENTRY NDC,TDVC,ARDC,PAN     *NDC*
00947  M00S00927.qfsp    +++|          IENTRY NEC,0,ARNE,PEC        *NEC*
00948  M00S00928.qfsp    +++|          IENTRY NDF,10B,ARND,PMI      *NDF*
00949  M00S00929.qfsp    +++|          IENTRY NUN,10B,ARNU,PMI      *NUN*
00950  M00S00930.qfsp    +++|          IENTRY NID,NMPB,ARNI,PNM     *NID*
00951  M00S00931.qfsp    +++|          IENTRY NPR,NMPC,ARNP,PNM     *NPR*
00952  M00S00932.qfsp    +++|          IENTRY NFC,3,ARNC,PMI        *NFC*
00953  M00S00933.qfsp    +++|          IENTRY NRC,NMPD,ARNR,PNM     *NRC*
00954  M00S00934.qfsp    +++| TIOP     BSS    0
00955  M00S00935.qfsp    +++|          IENTRY OP,0,AROP,PAN         *OP*
00956  M00S00936.qfsp    +++| TIII     BSS    0
00957  M00S00937.qfsp    +++|          IENTRY I,0,0,PIF             *I*
00958  M00S00938.qfsp    +++| TIPO     BSS    0
00959  M00S00939.qfsp    +++|          IENTRY PO,0,0,CPO            *PO*
00960  M00S00940.qfsp    +++|          CON    0           END OF TABLE
00961  M00S00941.qfsp    +++|          LOC    *O
00962  M00S00942.qfsp    +++| TODT     SPACE  4
00963  M00S00943.qfsp    +++|**        TODT - TABLE OF DAYFILE TYPES.
00964  M00S00944.qfsp    +++|
00965  M00S00945.qfsp    +++|
00966  M00S00946.qfsp    +++| TODT     BSS    0
00967  M00S00947.qfsp    +++|          TABLE  DAYFILE,SDAY   SYSTEM DAYFILE
00968  M00S00948.qfsp    +++|          TABLE  ACCOUNT,ACCF   ACCOUNT FILE
00969  M00S00949.qfsp    +++|          TABLE  ERRLOG,ERLF    ERRLOG DAYFILE
00970  M00S00950.qfsp    +++|          TABLE  MAINLOG,BMLF   MAINTENANCE LOG FILE
00971  M00S00951.qfsp    +++|          CON    0
00972  M00S00952.qfsp    +++| TFTE     SPACE  4,7
00973  M00S00953.qfsp    +++|**        TQTE - TABLE OF QUEUE TYPE ENTRIES.
00974  M00S00954.qfsp    +++|*                ONE WORD PER QUEUE TYPE.
00975  M00S00955.qfsp    +++|*
00976  M00S00956.qfsp    +++|*T        42/ QT, 18/ B
Figure

0171829 B QT3059 QT

00977  M00S00957.qfsp    +++|*
00978  M00S00958.qfsp    +++|*                QT = INPUT OPTION.
00979  M00S00959.qfsp    +++|*                B  = BIT MASK FOR QUEUE TYPES.
00980  M00S00960.qfsp    +++|
00981  M00S00961.qfsp    +++|
00982  M00S00962.qfsp    +++| TQTE     BSS    0
00983  M00S00963.qfsp    +++|          TABLE  ALL,777700B ALL QUEUE TYPES SELECTED
00984  M00S00964.qfsp    +++|          TABLE  NONE,0      NO QUEUE TYPES SELECTED
00985  M00S00965.qfsp    +++|          TABLE  IN,200000B  INPUT QUEUE TYPE
00986  M00S00966.qfsp    +++|          TABLE  PH,100000B  PUNCH QUEUE TYPE
00987  M00S00967.qfsp    +++|          TABLE  PU,100000B  PUNCH QUEUE TYPE
00988  M00S00968.qfsp    +++|          TABLE  PL,40000B   PLOT QUEUE TYPE
00989  M00S00969.qfsp    +++|          TABLE  PRINT,37600B ALL PRINT QUEUES
00990  M00S00970.qfsp    +++|          TABLE  PR,20000B   PRINT QUEUE TYPE-ANY PRINTER
00991  M00S00971.qfsp    +++|          TABLE  P2,10000B   PRINT QUEUE TYPE-511 PRINTER
00992  M00S00972.qfsp    +++|          TABLE  LR,4000B    PRINT QUEUE TYPE-580-12 PRINTER
00993  M00S00973.qfsp    +++|          TABLE  LS,2000B    PRINT QUEUE TYPE-580-16 PRINTER
00994  M00S00974.qfsp    +++|          TABLE  LT,1000B    PRINT QUEUE TYPE-580-20 PRINTER
00995  M00S00975.qfsp    +++|          TABLE  LX,400B     PRINT QUEUE TYPE-5870 NIP
00996  M00S00976.qfsp    +++|          TABLE  LY,200B     PRINT QUEUE TYPE-5970 NIP
00997  M00S00977.qfsp    +++|          TABLE  WT,100B     WAIT QUEUE-TERMINAL OUTPUT
00998  M00S00978.qfsp    +++|          TABLE  SF,400000B  SPECIAL FILE TYPES
00999  M00S00979.qfsp    +++|          CON    0
01000  M00S00980.qfsp    +++| TLOP     SPACE  4,10
01001  M00S00981.qfsp    +++|**        TLOP - TABLE OF LIST OPTIONS.
01002  M00S00982.qfsp    +++|
01003  M00S00983.qfsp    +++|
01004  M00S00984.qfsp    +++| TLOP     BSS    0
01005  M00S00985.qfsp    +++|          TABLE  S,0         SHORT LIST
01006  M00S00986.qfsp    +++|          TABLE  F,1         FULL LIST
01007  M00S00987.qfsp    +++|          CON    0
01008  M00S00988.qfsp    +++| TOAL     SPACE  4
01009  M00S00989.qfsp    +++|**        TOAL - TABLE OF QALTER OPTIONS.
01010  M00S00990.qfsp    +++|
01011  M00S00991.qfsp    +++|
01012  M00S00992.qfsp    +++| TOAL     BSS    0
01013  M00S00993.qfsp    +++|          TABLE  BC,BCOP     ALTER TO LOCAL BATCH
01014  M00S00994.qfsp    +++|          TABLE  RB,RBOP     ALTER TO REMOTE BATCH
01015  M00S00995.qfsp    +++|          TABLE  NC,NCOP     DO NOT CHANGE ORIGIN
01016  M00S00996.qfsp    +++|          TABLE  PR,PROP     PURGE FILES
01017  M00S00997.qfsp    +++|          CON    0           END OF TABLE
01018  M00S00998.qfsp    +++| TOQM     SPACE  4
01019  M00S00999.qfsp    +++|**        TOQM - TABLE OF QMOVE OPTIONS.
01020  M00S01000.qfsp    +++|
01021  M00S01001.qfsp    +++|
01022  M00S01002.qfsp    +++| TOQM     BSS    0
01023  M00S01003.qfsp    +++|          TABLE  I,0         LEAVE AS INACTIVE FILES
01024  M00S01004.qfsp    +++|          TABLE  A,1         LEAVE AS ACTIVE FILES
01025  M00S01005.qfsp    +++|          CON    0
01026  M00S01006.qfsp    +++| TOQR     SPACE  4
01027  M00S01007.qfsp    +++|**        TOQR - TABLE OF QREC OPTIONS.
01028  M00S01008.qfsp    +++|
01029  M00S01009.qfsp    +++|
01030  M00S01010.qfsp    +++| TOQR     BSS    0
01031  M00S01011.qfsp    +++|          TABLE  RP,REPG     RECOVER/PURGE OPTION
01032  M00S01012.qfsp    +++|          TABLE  RI,REIG     RECOVER/IGNORE OPTION
01033  M00S01013.qfsp    +++|          TABLE  PI,PGIG     PURGE/IGNORE OPTION
01034  M00S01014.qfsp    +++|          TABLE  DI,DEIG     DEQUEUE OPTION
01035  M00S01015.qfsp    +++|          CON    0
01036  M00S01016.qfsp    +++| TOTP     SPACE  4,3
01037  M00S01017.qfsp    +++|**        TOTP - TABLE OF QDUMP AND QMOVE TYPES.
01038  M00S01018.qfsp    +++|*                (MODIFIED FOR QLOAD AND DFTERM OPTION TABLE)
01039  M00S01019.qfsp    +++|
01040  M00S01020.qfsp    +++|
01041  M00S01021.qfsp    +++| TOTP     BSS    0
01042  M00S01022.qfsp    +++|          TABLE  I,0         INACTIVE
01043  M00S01023.qfsp    +++|          TABLE  A,1         ACTIVE
01044  M00S01024.qfsp    +++| TOTPA    BSS    0
01045  M00S01025.qfsp    +++|          TABLE  ALL,2       ALL
01046  M00S01026.qfsp    +++|          CON    0
01047  M00S01027.qfsp    +++|          SPACE  4,10
01048  M00S01028.qfsp    +++|**        TPOO - TABLE OF *PO* OPTIONS AND PROCESSORS.
01049  M00S01029.qfsp    +++|
01050  M00S01030.qfsp    +++|
01051  M00S01031.qfsp    +++|TPOO      BSS    0
01052  M00S01032.qfsp    +++|          TABLE  F,FOP       FAMILY ORDINAL TABLE PROCESSOR
01053  M00S01033.qfsp    +++|          TABLE  R,RWD       REWIND PROCESSOR
01054  M00S01034.qfsp    +++|          TABLE  E,ERF       ERROR COMMAND PROCESSOR
01055  M00S01035.qfsp    +++|          TABLE  N,NKP       INHIBIT K-DISPLAY INPUT
01056  M00S01036.qfsp    +++|          TABLE  L,LTP       LID TABLE PROCESSOR
01057  M00S01037.qfsp    +++|          TABLE  I,IQP       INPUT QUEUE FILE PROCESSOR
01058  M00S01038.qfsp    +++|          TABLE  U,UQP       UNCONDITIONAL FILE PROCESSOR
01059  M00S01039.qfsp    +++|          CON    0
01060  M00S01040.qfsp    +++| TRFN     SPACE  4,10
01061  M00S01041.qfsp    +++|**        TRFN - TABLE OF RESERVED FILE NAMES.
01062  M00S01042.qfsp    +++|
01063  M00S01043.qfsp    +++|
01064  M00S01044.qfsp    +++| TRFN     BSS    0
01065  M00S01045.qfsp    +++|          TABLE  "RFIQ"
01066  M00S01046.qfsp    +++|          TABLE  "RFNI"
01067  M00S01047.qfsp    +++|          TABLE  "RFMI"
01068  M00S01048.qfsp    +++|          TABLE  "RFSC"
01069  M00S01049.qfsp    +++|          CON    0           END OF TABLE
01070  M00S01050.qfsp    +++|          SPACE  4
01071  M00S01051.qfsp    +++|**        TDVC - TABLE OF DEVICE CODES.
01072  M00S01052.qfsp    +++|
01073  M00S01053.qfsp    +++|
01074  M00S01054.qfsp    +++| TDVC     BSS    0
01075  M00S01055.qfsp    +++|          TABLE  NONE,777B
01076  M00S01056.qfsp    +++|          TABLE  PR,LPQF
01077  M00S01057.qfsp    +++|          TABLE  LP,LPQF
01078  M00S01058.qfsp    +++|          TABLE  P2,P2QF
01079  M00S01059.qfsp    +++|          TABLE  LR,LRQF
01080  M00S01060.qfsp    +++|          TABLE  LS,LSQF
01081  M00S01061.qfsp    +++|          TABLE  LT,LTQF
01082  M00S01062.qfsp    +++|          TABLE  LX,LXQF
01083  M00S01063.qfsp    +++|          TABLE  LY,LYQF
01084  M00S01064.qfsp    +++|          CON    0           END OF TABLE
01085  M00S01065.qfsp    +++|          SPACE  4
01086  M00S01066.qfsp    +++|**        TPLC - TABLE OF PLOT QUEUE EXTERNAL CHARACTERISTICS.
01087  M00S01067.qfsp    +++|
01088  M00S01068.qfsp    +++|
01089  M00S01069.qfsp    +++| TPLC     BSS    0
01090  M00S01070.qfsp    +++|          TABLE  T6,T6EX+4000B  TRANSPARENT 6 BIT
01091  M00S01071.qfsp    +++|          TABLE  T8,T8EX+4000B  TRANSPARENT 8 BIT
01092  M00S01072.qfsp    +++|          CON    0           END OF TABLE
01093  M00S01073.qfsp    +++| TRPC     SPACE  4,10
01094  M00S01074.qfsp    +++|**        TPRC - TABLE OF PRINT QUEUE EXTERNAL CHARACTERISTICS.
01095  M00S01075.qfsp    +++|
01096  M00S01076.qfsp    +++|
01097  M00S01077.qfsp    +++| TPRC     BSS    0
01098  M00S01078.qfsp    +++|          TABLE  A4,A4EX+4000B  A4 - ASCII 48-CHARACTER
01099  M00S01079.qfsp    +++|          TABLE  B4,B4EX+4000B  B4 - BCD 48-CHARACTER
01100  M00S01080.qfsp    +++|          TABLE  B6,B6EX+4000B  B6 - BCD 63/4 CHARACTER
01101  M00S01081.qfsp    +++|          TABLE  A6,A6EX+4000B  A6 - ASCII 64-CHARACTER
01102  M00S01082.qfsp    +++|          TABLE  A9,A9EX+4000B  A9 - ASCII 96-CHARACTER
01103  M00S01083.qfsp    +++|          CON    0           END OF TABLE
01104  M00S01084.qfsp    +++| TPUC     SPACE  4,10
01105  M00S01085.qfsp    +++|**        TPUC - TABLE OF PUNCH QUEUE EXTERNAL CHARACTERISTICS.
01106  M00S01086.qfsp    +++|
01107  M00S01087.qfsp    +++|
01108  M00S01088.qfsp    +++| TPUC     BSS    0
01109  M00S01089.qfsp    +++|          TABLE  PB,PBFR+4000B  SB - SYSTEM BINARY
01110  M00S01090.qfsp    +++|          TABLE  P8,P8FR+4000B  80 COL - 80 COLUMN BINARY
01111  M00S01091.qfsp    +++|          TABLE  PH,PHFR+4000B  O26 - O26 PUNCH
01112  M00S01092.qfsp    +++|          TABLE  P9,P9FR+4000B  O29 - O29 PUNCH
01113  M00S01093.qfsp    +++|          TABLE  AS,ASFR+4000B  ASCII - ASCII PUNCH
01114  M00S01094.qfsp    +++|          CON    0           END 0F TABLE
01115  M00S01095.qfsp    +++|          SPACE  4,10
01116  M00S01096.qfsp    +++|**        FET DEFINITIONS.
01117  M00S01097.qfsp    +++|
01118  M00S01098.qfsp    +++|
01119  M00S01099.qfsp    +++| I        BSS    0
01120  M00S01100.qfsp    +++| INPUT    FILEC  IBUF,IBUFL
01121  M00S01101.qfsp    +++|
01122  M00S01102.qfsp    +++| IBUFL    EQU    201B        LENGTH OF INPUT BUFFER
01123  M00S01103.qfsp    +++|          SPACE  4,10
01124  M00S01104.qfsp    +++|**        *SFM* PARAMETER BLOCK.
01125  M00S01105.qfsp    +++|
01126  M00S01106.qfsp    +++|
01127  M00S01107.qfsp    +++| FOTB     VFD    12/RFDF,12/0,12/FOTL,6/0,18/FOTT
01128  M00S01108.qfsp    +++|          CON    0
01129  M00S01109.qfsp    +++| LUP      SPACE  4,8
01130  M00S01110.qfsp    +++|**        LUP - LOAD UTILITY PROCESSOR.
01131  M00S01111.qfsp    +++|*
01132  M00S01112.qfsp    +++|*         ENTRY  (X1) = OVERLAY NAME.
01133  M00S01113.qfsp    +++|*
01134  M00S01114.qfsp    +++|*         EXIT   TO *DIP*.
01135  M00S01115.qfsp    +++|*                (ENUT) = ENTRY ADDRESS TO UTILITY OVERLAY.
01136  M00S01116.qfsp    +++|*
01137  M00S01117.qfsp    +++|*         USES   X - 6.
01138  M00S01118.qfsp    +++|*                A - 6.
01139  M00S01119.qfsp    +++|*
01140  M00S01120.qfsp    +++|*         MACROS OVERLAY.
01141  M00S01121.qfsp    +++|
01142  M00S01122.qfsp    +++|
01143  M00S01123.qfsp    +++| LUP      OVERLAY X1,100B,S
01144  M00S01124.qfsp    +++|          BX6    X1
01145  M00S01125.qfsp    +++|          SA6    ENUT
01146  M00S01126.qfsp    +++|          JP     DIP
01147  M00S01127.qfsp    +++| DIP      TITLE   DIRECTIVE INPUT PROCESSOR.
01148  M00S01128.qfsp    +++|**        DIP - DIRECTIVE INPUT PROCESSOR.
01149  M00S01129.qfsp    +++|*
01150  M00S01130.qfsp    +++|*         ENTRY  K - DISPLAYS SET IN BUFFERS.
01151  M00S01131.qfsp    +++|*                UTILITY OVERLAY LOADED.
01152  M00S01132.qfsp    +++|*                DEFAULT PARAMETERS SET.
01153  M00S01133.qfsp    +++|
01154  M00S01134.qfsp    +++|
01155  M00S01135.qfsp    +++| DIP4     RJ     IDE         PROCESS ERROR
01156  M00S01136.qfsp    +++|
01157  M00S01137.qfsp    +++| DIP      RJ     ISB         INPUT STRING BUFFER
01158  M00S01138.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01159  M00S01139.qfsp    +++|          SA1    CA          ALLOW PAGING CHARACTERS
01160  M00S01140.qfsp    +++|          BX6    X2
01161  M00S01141.qfsp    +++|          RJ     ASC         ASSEMBLE KEYWORD
01162  M00S01142.qfsp    +++|          SB3    ERID        **** ERROR IN IDENTIFIER.
01163  M00S01143.qfsp    +++|          ZR     X4,DIP      IF NO DATA ASSEMBLED
01164  M00S01144.qfsp    +++|          SB5    B5-1R=
01165  M00S01145.qfsp    +++|          SA5    TINE+TIII
01166  M00S01146.qfsp    +++|          EQ     B5,DIP2     IF IDENTIFIER SEPARATOR
01167  M00S01147.qfsp    +++|          NZ     X5,DIP2     IF COMMAND PARAMETER
01168  M00S01148.qfsp    +++|          SA6    KCMD        SAVE COMMAND FOR PAGING PROCESSORS
01169  M00S01149.qfsp    +++|
01170  M00S01150.qfsp    +++|*         SEARCH COMMAND ENTRY TABLE.
01171  M00S01151.qfsp    +++|
01172  M00S01152.qfsp    +++| DIP1     SA3    TOCE-1      SEARCH COMMAND ENTRY TABLE
01173  M00S01153.qfsp    +++|          MX0    42
01174  M00S01154.qfsp    +++|          NZ     X5,DIP4     IF COMMAND PARAMETER
01175  M00S01155.qfsp    +++|          RJ     SET
01176  M00S01156.qfsp    +++|          NZ     X4,DIP4     IF ENTRY NOT FOUND
01177  M00S01157.qfsp    +++|          MX0    -6          SET PROCESSOR INDEX
01178  M00S01158.qfsp    +++|          BX1    -X0*X3
01179  M00S01159.qfsp    +++|          AX3    6           SET COMMAND NUMBER
01180  M00S01160.qfsp    +++|          BX6    -X0*X3
01181  M00S01161.qfsp    +++|          EQ     DIP3
01182  M00S01162.qfsp    +++|
01183  M00S01163.qfsp    +++|*         SEARCH DIRECTIVE INPUT TABLE.
01184  M00S01164.qfsp    +++|
01185  M00S01165.qfsp    +++| DIP2     SA3    TINE-1      SEARCH DIRECTIVE TABLE
01186  M00S01166.qfsp    +++|          MX0    18
01187  M00S01167.qfsp    +++|          MX2    42
01188  M00S01168.qfsp    +++|          BX2    X2*X6
01189  M00S01169.qfsp    +++|          BX1    -X0*X2
01190  M00S01170.qfsp    +++|          NZ     X1,DIP1     IF TOO MANY CHARACTERS
01191  M00S01171.qfsp    +++|          RJ     SET
01192  M00S01172.qfsp    +++|          NZ     X4,DIP1     IF ENTRY NOT FOUND
01193  M00S01173.qfsp    +++|          BX6    -X0*X3      SAVE PROCESSOR INFORMATION
01194  M00S01174.qfsp    +++|          AX6    24
01195  M00S01175.qfsp    +++|          SA6    PI
01196  M00S01176.qfsp    +++|          MX0    -6          SET PROCESSOR INDEX
01197  M00S01177.qfsp    +++|          BX1    -X0*X3
01198  M00S01178.qfsp    +++|          SX7    X1-PIF
01199  M00S01179.qfsp    +++|          ZR     X7,DIP3     IF *I* DIRECTIVE
01200  M00S01180.qfsp    +++|          SX7    X1-CPO
01201  M00S01181.qfsp    +++|          ZR     X7,DIP3     IF *P0* PROCESSOR
01202  M00S01182.qfsp    +++|          AX3    6           SET ARGUMENT TABLE INDEX
01203  M00S01183.qfsp    +++|          BX6    -X0*X3
01204  M00S01184.qfsp    +++|          SA4    DIPA        CHECK IF DIRECTIVE LEGAL FOR UTILITY
01205  M00S01185.qfsp    +++|          SB6    X6
01206  M00S01186.qfsp    +++|          LX4    B6,X4
01207  M00S01187.qfsp    +++|          PL     X4,DIP4     IF INCORRECT ENTRY
01208  M00S01188.qfsp    +++|
01209  M00S01189.qfsp    +++|*         JUMP TO PROCESSOR.
01210  M00S01190.qfsp    +++|
01211  M00S01191.qfsp    +++| DIP3     SA2    X1+TOIP     SET PROCESSOR ADDRESS
01212  M00S01192.qfsp    +++|          SB7    X2
01213  M00S01193.qfsp    +++|          BX7    X7-X7       CLEAR *PNB* BLOCK
01214  M00S01194.qfsp    +++|          SA6    PINB
01215  M00S01195.qfsp    +++|          SA7    A6+B1
01216  M00S01196.qfsp    +++|          SA7    A7+B1
01217  M00S01197.qfsp    +++|          SA7    A7+B1
01218  M00S01198.qfsp    +++|          SA7    A7+B1
01219  M00S01199.qfsp    +++|          SA7    A7+B1
01220  M00S01200.qfsp    +++|          SA7    A7+B1
01221  M00S01201.qfsp    +++|          RJ     ICE         JUMP TO PROCESSOR
01222  M00S01202.qfsp    +++|          NZ     X1,DIP4     IF ERROR
Line S00004 Modification History
M01 (Added by) ns2570
Seq #  *Modification Id* Act 
----------------------------+
01223  M01S00004.ns2570  +++|          SA1    OPAM        CHECK FOR OPERATOR ACTION MESSAGE
01224  M01S00005.ns2570  +++|          SB3    X1
01225  M01S00006.ns2570  +++|          NZ     B3,DIP4     IF OPERATOR ACTION MESSAGE PRESENT
01226  M00S01203.qfsp    +++|          SA1    PINB+1
01227  M00S01204.qfsp    +++|          ZR     X1,DIP      IF NO K-DISPLAY UPDATE
01228  M00S01205.qfsp    +++|          RJ     SPD         UPDATE K-DISPLAY AND ARGUMENT TABLE
01229  M00S01206.qfsp    +++|          EQ     DIP
01230  M00S01207.qfsp    +++|
01231  M00S01208.qfsp    +++| DIPA     CON    0           DIRECTIVE MASK
01232  M00S01209.qfsp    +++|
01233  M00S01210.qfsp    +++|
01234  M00S01211.qfsp    +++|**        PINB - PROCESSED INPUT DATA BUFFER.
01235  M00S01212.qfsp    +++|*
01236  M00S01213.qfsp    +++|*T PINB   6/ , 18/ AI3, 18/ AI2, 18/ AI1
Figure PINB

0171829 AI1 AI2303536535459 AI2 AI3

01237  M00S01214.qfsp    +++|*T,       60/ PRIMARY K-DISPLAY VALUE
Figure

029 PRIMARY K-DISPLAY VALUE3059 PRIMARY K-DISPLAY VALUE

01238  M00S01215.qfsp    +++|*T,       60/ PRIMARY ARGUMENT TABLE VALUE
Figure

029 PRIMARY ARGUMENT TABLE VALUE3059 PRIMARY ARGUMENT TABLE VALUE

01239  M00S01216.qfsp    +++|*T,       60/ SECONDARY K-DISPLAY VALUE
Figure

029 SECONDARY K-DISPLAY VALUE3059 SECONDARY K-DISPLAY VALUE

01240  M00S01217.qfsp    +++|*T,       60/ SECONDARY ARGUMENT TABLE VALUE
Figure

029 SECONDARY ARGUMENT TABLE VALUE3059 SECONDARY ARGUMENT TABLE VALUE

01241  M00S01218.qfsp    +++|*T,       60/ TERTIARY K-DISPLAY VALUE
Figure

029 TERTIARY K-DISPLAY VALUE3059 TERTIARY K-DISPLAY VALUE

01242  M00S01219.qfsp    +++|*T,       60/ TERTIARY ARGUMENT TABLE VALUE
Figure

029 TERTIARY ARGUMENT TABLE VALUE3059 TERTIARY ARGUMENT TABLE VALUE

01243  M00S01220.qfsp    +++|*
01244  M00S01221.qfsp    +++|*
01245  M00S01222.qfsp    +++|*                AI1 = ARGUMENT TABLE INDEX FOR PRIMARY VALUE.
01246  M00S01223.qfsp    +++|*                AI2 = ARGUMENT TABLE INDEX FOR SECONDARY VALUE.
01247  M00S01224.qfsp    +++|*                AI3 = ARGUMENT TABLE INDEX FOR TERTIARY VALUE.
01248  M00S01225.qfsp    +++|
01249  M00S01226.qfsp    +++|
01250  M00S01227.qfsp    +++| PINB     BSSZ   7
01251  M00S01228.qfsp    +++|          SPACE  4
01252  M00S01229.qfsp    +++|**        TOIP - TABLE OF INPUT PROCESSORS.
01253  M00S01230.qfsp    +++|
01254  M00S01231.qfsp    +++|
01255  M00S01232.qfsp    +++| TOIP     BSS    0
01256  M00S01233.qfsp    +++|          LOC    0
01257  M00S01234.qfsp    +++| PAN      CON    ANP         ALPHA-NUMERIC PROCESSOR
01258  M00S01235.qfsp    +++| PDN      CON    DNP         DEVICE NUMBER PROCESSOR
01259  M00S01236.qfsp    +++| PEC      CON    ECP         EXTERNAL CHARACTERISTIC PROCESSOR
01260  M00S01237.qfsp    +++| PFC      CON    FCP         FORMS CODE PROCESSOR (QFTLIST/QALTER ONLY)
01261  M00S01238.qfsp    +++| PFM      CON    FMP         FAMILY NAME PROCESSOR
01262  M00S01239.qfsp    +++| PIF      CON    IFP         INPUT FILE PROCESSOR
01263  M00S01240.qfsp    +++| PJN      CON    JNP         JOB SEQUENCE NUMBER PROCESSOR
01264  M00S01241.qfsp    +++| PLD      CON    LDP         LID PROCESSOR
01265  M00S01242.qfsp    +++| PLT      CON    LTP         LID TABLE PROCESSOR
01266  M00S01243.qfsp    +++| PAL      CON    ALP         ACCESS LEVEL PROCESSOR
01267  M00S01244.qfsp    +++| PMI      CON    MIP         MACHINE INDEX PROCESSOR
01268  M00S01245.qfsp    +++| PNK      CON    NKP         INHIBIT K-DISPLAY PROCESSOR
01269  M00S01246.qfsp    +++| PNM      CON    NMP         NUMERIC DATA PROCESSOR
01270  M00S01247.qfsp    +++| PNR      CON    NRP         NUMERIC RANGE PROCESSOR
01271  M00S01248.qfsp    +++| POT      CON    OTP         FILE DESTINATION - QUEUE TYPE PROCESSOR
01272  M00S01249.qfsp    +++| CCR      CON    CLR         CLEAR COMMAND PROCESSOR
01273  M00S01250.qfsp    +++| CER      CON    ERF         ERROR COMMAND PROCESSOR
01274  M00S01251.qfsp    +++| CLT      CON    LST         LIST COMMAND PROCESSOR
01275  M00S01252.qfsp    +++| CPL      CON    PGL         PAGE LEFT SCREEN COMMAND PROCESSOR
01276  M00S01253.qfsp    +++| CPR      CON    PGR         PAGE RIGHT SCREEN COMMAND PROCESSOR
01277  M00S01254.qfsp    +++| CPO      CON    POP         *PO* PARAMETER PROCESSOR
01278  M00S01255.qfsp    +++| PFO      CON    FOP         FAMILY ORDINAL PROCESSOR
01279  M00S01256.qfsp    +++| CRD      CON    RWD         REWIND COMMAND PROCESSOR
01280  M00S01257.qfsp    +++| CRS      CON    RST         RESET COMMAND PROCESSOR
01281  M00S01258.qfsp    +++| CTR      CON    TER         STOP COMMAND PROCESSOR
01282  M00S01259.qfsp    +++| CUP      CON    UCP         UTILITY COMMAND PROCESSOR
01283  M00S01260.qfsp    +++|          LOC    *O
01284  M00S01261.qfsp    +++| ALP      SPACE  4,20
01285  M00S01262.qfsp    +++|**        ALP - SECURITY ACCESS LEVEL PROCESSOR.
01286  M00S01263.qfsp    +++|*
01287  M00S01264.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01288  M00S01265.qfsp    +++|*
01289  M00S01266.qfsp    +++|*         EXIT   *PINB* BLOCK SET.
01290  M00S01267.qfsp    +++|*                (X1) = 0, IF NO ERROR.
01291  M00S01268.qfsp    +++|*                (B3) = ADDRESS OF ERROR MESSAGE.
01292  M00S01269.qfsp    +++|*
01293  M00S01270.qfsp    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
01294  M00S01271.qfsp    +++|*                A - 2, 6, 7.
01295  M00S01272.qfsp    +++|*                B - 2, 3, 5, 6.
01296  M00S01273.qfsp    +++|*
01297  M00S01274.qfsp    +++|*         CALLS  ASC, SFN, VLC.
01298  M00S01275.qfsp    +++|
01299  M00S01276.qfsp    +++|
01300  M00S01277.qfsp    +++| ALP4     SX1    B1+         SET ERROR EXIT
01301  M00S01278.qfsp    +++|
01302  M00S01279.qfsp    +++| ALP      SUBR               ENTRY/EXIT
01303  M00S01280.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01304  M00S01281.qfsp    +++|          BX1    X1-X1       ALLOW NO SPECIAL CHARACTERS
01305  M00S01282.qfsp    +++|          BX6    X2
01306  M00S01283.qfsp    +++|          RJ     ASC         ASSEMBLE CHARACTERS
01307  M00S01284.qfsp    +++|          SB3    ERAC        **** ERROR IN ACCESS LEVEL.
01308  M00S01285.qfsp    +++|          ZR     X4,ALP4     IF NO PARAMETER
01309  M00S01286.qfsp    +++|          SB6    B5-1R=
01310  M00S01287.qfsp    +++|          SB5    B5-1R-
01311  M00S01288.qfsp    +++|          ZR     B6,ALP4     IF INCORRECT SEPARATOR
01312  M00S01289.qfsp    +++|          LE     B5,ALP4     IF INCORRECT SEPARATOR
01313  M00S01290.qfsp    +++|          SB2    X4-7
01314  M00S01291.qfsp    +++|          GT     B2,ALP4     IF MORE THAN SEVEN CHARACTERS
01315  M00S01292.qfsp    +++|          SB2    B0          CHECK ACCESS LEVEL
01316  M00S01293.qfsp    +++|          BX1    X6
01317  M00S01294.qfsp    +++|          RJ     VLC         VALIDATE ACCESS LEVEL
01318  M00S01295.qfsp    +++|          NG     X2,ALP2     IF INCORRECT ACCESS LEVEL
01319  M00S01296.qfsp    +++|          RJ     SFN         SPACE FILL NAME
01320  M00S01297.qfsp    +++|          BX1    X2          SET ARGUMENT TABLE VALUE
01321  M00S01298.qfsp    +++|          BX7    X2
01322  M00S01299.qfsp    +++|          SA2    SECR        GET SYSTEM ACCESS LEVEL LIMITS
01323  M00S01300.qfsp    +++|          LX2    12
01324  M00S01301.qfsp    +++|          MX0    -3
01325  M00S01302.qfsp    +++|          BX3    -X0*X2
01326  M00S01303.qfsp    +++|          ZR     X3,ALP1     IF UNSECURE SYSTEM
01327  M00S01304.qfsp    +++|          LX2    -48
01328  M00S01305.qfsp    +++|          BX3    -X0*X2      GET UPPER LIMIT
01329  M00S01306.qfsp    +++|          LX2    -6
01330  M00S01307.qfsp    +++|          IX4    X3-X1
01331  M00S01308.qfsp    +++|          NG     X4,ALP3     IF ABOVE UPPER LIMIT
01332  M00S01309.qfsp    +++|          BX3    -X0*X2      GET LOWER LIMIT
01333  M00S01310.qfsp    +++|          IX4    X1-X3
01334  M00S01311.qfsp    +++|          NG     X4,ALP3     IF BELOW LOWER LIMIT
01335  M00S01312.qfsp    +++| ALP1     BX1    X1-X1       CLEAR ERROR RETURN
01336  M00S01313.qfsp    +++|          SA6    PINB+1      SET K-DISPLAY
01337  M00S01314.qfsp    +++|          SA7    A6+B1       SET ARGUMENT TABLE VALUE
01338  M00S01315.qfsp    +++|          EQ     ALPX        RETURN
01339  M00S01316.qfsp    +++|
01340  M00S01317.qfsp    +++| ALP2     SB3    ERUA        **** UNKNOWN ACCESS LEVEL NAME.
01341  M00S01318.qfsp    +++|          EQ     ALP4        SET ERROR EXIT
01342  M00S01319.qfsp    +++|
01343  M00S01320.qfsp    +++| ALP3     SB3    ERAL        **** ACCESS LEVEL OUT OF RANGE.
01344  M00S01321.qfsp    +++|          EQ     ALP4        SET ERROR EXIT
01345  M00S01322.qfsp    +++|          TITLE  DIRECTIVE PROCESSOR ROUTINES.
01346  M00S01323.qfsp    +++| ANP      SPACE  4
01347  M00S01324.qfsp    +++|**        ANP - ALPHA-NUMERIC DATA PROCESSOR.
01348  M00S01325.qfsp    +++|*
01349  M00S01326.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01350  M00S01327.qfsp    +++|*                (PI) = FWA OF SEARCH TABLE.
01351  M00S01328.qfsp    +++|*
01352  M00S01329.qfsp    +++|*         EXIT   *PINB* BLOCK SET.
01353  M00S01330.qfsp    +++|*                (X1) = 0, NO ERROR ENCOUNTERED.
01354  M00S01331.qfsp    +++|*                (B3) = ADDRESS OF ERROR MESSAGE.
01355  M00S01332.qfsp    +++|*
01356  M00S01333.qfsp    +++|*         USES   X - 0, 1, 2, 3, 5, 6.
01357  M00S01334.qfsp    +++|*                A - 1, 2, 3, 4, 6.
01358  M00S01335.qfsp    +++|*                B - 2, 3, 5, 6.
01359  M00S01336.qfsp    +++|*
01360  M00S01337.qfsp    +++|*         CALLS  ASC, DDR, SET, SFN, SPD.
01361  M00S01338.qfsp    +++|
01362  M00S01339.qfsp    +++|
01363  M00S01340.qfsp    +++| ANP8     SX1    B1+         SET ERROR RETURN
01364  M00S01341.qfsp    +++|          SB3    ERAD        **** ERROR IN ALPHANUMERIC DATA.
01365  M00S01342.qfsp    +++|
01366  M00S01343.qfsp    +++| ANP      SUBR               ENTRY/EXIT
01367  M00S01344.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01368  M00S01345.qfsp    +++|          MX1    0           ALLOW NO SPECIAL CHARACTERS
01369  M00S01346.qfsp    +++|          BX6    X2
01370  M00S01347.qfsp    +++|          RJ     ASC         ASSEMBLE CHARACTERS
01371  M00S01348.qfsp    +++|          ZR     X4,ANP8     IF NO PARAMETER
01372  M00S01349.qfsp    +++|          SB6    B5-1R=
01373  M00S01350.qfsp    +++|          SB5    B5-1R-
01374  M00S01351.qfsp    +++|          ZR     B6,ANP8     IF INCORRECT SEPARATOR
01375  M00S01352.qfsp    +++|          LE     B5,ANP8     IF INCORRECT SEPARATOR
01376  M00S01353.qfsp    +++|          SA5    PINB        GET ARGUMENT TABLE INDEX
01377  M00S01354.qfsp    +++|          SB2    X4-7
01378  M00S01355.qfsp    +++|          GT     B2,ANP8     IF MORE THAN SEVEN CHARACTERS
01379  M00S01356.qfsp    +++|          SX1    X5-ARNM
01380  M00S01357.qfsp    +++|          NZ     X1,ANP2     IF NOT DAYFILE NAME DIRECTIVE
01381  M00S01358.qfsp    +++|          SB6    X4-5
01382  M00S01359.qfsp    +++|          GT     B6,ANP8     IF MORE THAN FIVE CHARACTERS
01383  M00S01360.qfsp    +++| ANP2     SA4    PI          GET FWA OF SEARCH TABLE
01384  M00S01361.qfsp    +++|          BX1    X6
01385  M00S01362.qfsp    +++|          MX0    42
01386  M00S01363.qfsp    +++|          ZR     X4,ANP3     IF NO VALIDATION NEEDED
01387  M00S01364.qfsp    +++|          SA3    X4-1        SEARCH TABLE FOR ENTRY
01388  M00S01365.qfsp    +++|          RJ     SET
01389  M00S01366.qfsp    +++|          BX6    -X0*X3
01390  M00S01367.qfsp    +++|          NZ     X4,ANP8     IF NOT VALID ENTRY
01391  M00S01368.qfsp    +++| ANP3     SA6    PINB+2      SET ARGUMENT TABLE VALUE
01392  M00S01369.qfsp    +++|          RJ     SFN
01393  M00S01370.qfsp    +++|          SX2    X5-ARFT
01394  M00S01371.qfsp    +++|          SA6    A5+B1       SET K-DISPLAY VALUE
01395  M00S01372.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01396  M00S01373.qfsp    +++|          NZ     X2,ANP4     IF DAYFILE TYPE NOT ENTERED
01397  M00S01374.qfsp    +++|
01398  M00S01375.qfsp    +++|*         PROCESS DAYFILE TYPE.
01399  M00S01376.qfsp    +++|
01400  M00S01377.qfsp    +++|          SA1    TARG+AROP
01401  M00S01378.qfsp    +++|          ZR     X1,ANPX     IF INACTIVE DAYFILE TO BE TERMINATED
01402  M00S01379.qfsp    +++|          RJ     SPD         SET PROCESSED DATA
01403  M00S01380.qfsp    +++|          SA1    PINB+2      DETERMINE DAYFILE RESIDENCE
01404  M00S01381.qfsp    +++|          RJ     DDR
01405  M00S01382.qfsp    +++|          BX1    X1-X1
01406  M00S01383.qfsp    +++|          JP     ANPX
01407  M00S01384.qfsp    +++|
01408  M00S01385.qfsp    +++|*         SET DIRECTIVES THAT ARE NOT APPLICABLE TO QALTER OPTION.
01409  M00S01386.qfsp    +++|
01410  M00S01387.qfsp    +++| ANP4     SA2    FPNM
01411  M00S01388.qfsp    +++|          SA4    PINB
01412  M00S01389.qfsp    +++|          SX2    X2-FNFN
01413  M00S01390.qfsp    +++|          SX4    X4-AROP
01414  M00S01391.qfsp    +++|          NZ     X2,ANPX     IF NOT QALTER
01415  M00S01392.qfsp    +++|          NZ     X4,ANPX     IF NO *OP* DIRECTIVE
01416  M00S01393.qfsp    +++|          SA3    TARG+ARFC
01417  M00S01394.qfsp    +++|          NG     X3,ANPX     IF COMMAND CALL
01418  M00S01395.qfsp    +++|          RJ     SPD         SET PROCESSED DATA
01419  M00S01396.qfsp    +++|          BX6    X6-X6       CLEAR ARGUMENT TABLE ENTRY
01420  M00S01397.qfsp    +++|          SA6    PINB+2
01421  M00S01398.qfsp    +++|          SB6    -B1
01422  M00S01399.qfsp    +++| ANP5     SB6    B6+B1       ADVANCE TABLE INDEX
01423  M00S01400.qfsp    +++|          BX6    X6-X6
01424  M00S01401.qfsp    +++|          SA1    TODD+B6
01425  M00S01402.qfsp    +++|          NZ     X1,ANP6     IF NOT END OF TABLE
01426  M00S01403.qfsp    +++|          SA6    PINB+1
01427  M00S01404.qfsp    +++|          EQ     ANPX        RETURN
01428  M00S01405.qfsp    +++|
01429  M00S01406.qfsp    +++| ANP6     SA2    TARG+AROP
01430  M00S01407.qfsp    +++|          BX6    X1
01431  M00S01408.qfsp    +++|          SA6    PINB
01432  M00S01409.qfsp    +++|          SB3    X2
01433  M00S01410.qfsp    +++|          LX1    B3
01434  M00S01411.qfsp    +++|          SA2    BLKS
01435  M00S01412.qfsp    +++|          PL     X1,ANP7     IF ENTRY TO BE CLEARED
01436  M00S01413.qfsp    +++|          SA2    ANPA
01437  M00S01414.qfsp    +++|
01438  M00S01415.qfsp    +++| ANP7     BX6    X2
01439  M00S01416.qfsp    +++|          SA6    PINB+1
01440  M00S01417.qfsp    +++|          RJ     SPD         SET PROCESSED DATA
01441  M00S01418.qfsp    +++|          EQ     ANP5        CHECK NEXT TABLE ENTRY
01442  M00S01419.qfsp    +++|
01443  M00S01420.qfsp    +++| ANPA     VFD    60/10H  -N/A-
01444  M00S01421.qfsp    +++| TODD     SPACE  4,15
01445  M00S01422.qfsp    +++|**        TODD - TABLE OF DEPENDENT DIRECTIVES.
01446  M00S01423.qfsp    +++|*
01447  M00S01424.qfsp    +++|*         1/E,1/B,1/N,1/,1/P,19/0,18/0,18/ARIN
01448  M00S01425.qfsp    +++|*
01449  M00S01426.qfsp    +++|*         IF THE FOLLOWING BITS ARE SET, AN -N/A- WILL BE DISPLAYED
01450  M00S01427.qfsp    +++|*         FOR THE DIRECTIVE. OTHERWISE, THAT DIRECTIVE WILL BE
01451  M00S01428.qfsp    +++|*         CLEARED.
01452  M00S01429.qfsp    +++|*                E - ALTER TO REMOTE BATCH OPTION.
01453  M00S01430.qfsp    +++|*                B - ALTER TO LOCAL BATCH OPTION
01454  M00S01431.qfsp    +++|*                N - DO NOT ALTER FILE DESTINATION OPTION.
01455  M00S01432.qfsp    +++|*                P - PURGE OPTION.
01456  M00S01433.qfsp    +++|*         ARIN = ARGUMENT TABLE INDEX.
01457  M00S01434.qfsp    +++|
01458  M00S01435.qfsp    +++|
01459  M00S01436.qfsp    +++| TODD     BSS    0
01460  M00S01437.qfsp    +++|          LOC    0
01461  M00S01438.qfsp    +++|          VFD    1/0,1/1,1/0,1/0,1/1,37/0,18/ARND  *NDF*
01462  M00S01439.qfsp    +++|          VFD    1/0,1/1,1/0,1/0,1/1,37/0,18/ARNU  *NUN*
01463  M00S01440.qfsp    +++|          VFD    1/1,1/0,1/0,1/0,1/1,37/0,18/ARNI  *NID*
01464  M00S01441.qfsp    +++|          VFD    1/0,1/0,1/0,1/0,1/1,37/0,18/ARNP  *NPR*
01465  M00S01442.qfsp    +++|          VFD    1/0,1/0,1/0,1/0,1/1,37/0,18/ARNC  *NFC*
01466  M00S01443.qfsp    +++|          CON    0
01467  M00S01444.qfsp    +++|          LOC    *O
01468  M00S01445.qfsp    +++| DNP      SPACE  4,14
01469  M00S01446.qfsp    +++|**        DNP - DEVICE NUMBER PROCESSOR.
01470  M00S01447.qfsp    +++|*
01471  M00S01448.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01472  M00S01449.qfsp    +++|*                (PI) = FWA OF TABLE TO SEARCH.
01473  M00S01450.qfsp    +++|*
01474  M00S01451.qfsp    +++|*         EXIT   *PINB* BLOCK SET.
01475  M00S01452.qfsp    +++|*                (X1) = 0, NO ERROR ENCOUNTERED.
01476  M00S01453.qfsp    +++|*                (B3) = ADDRESS OF ERROR MESSAGE.
01477  M00S01454.qfsp    +++|*
01478  M00S01455.qfsp    +++|*         USES   X - ALL.
01479  M00S01456.qfsp    +++|*                A - 1, 2, 3, 4, 5, 6, 7.
01480  M00S01457.qfsp    +++|*                B - 2, 3, 5, 6, 7.
01481  M00S01458.qfsp    +++|*
01482  M00S01459.qfsp    +++|*         CALLS  ASC, DXB, COD, SET.
01483  M00S01460.qfsp    +++|
01484  M00S01461.qfsp    +++|
01485  M00S01462.qfsp    +++| DNP8     SX1    B1+         SET ERROR RETURN
01486  M00S01463.qfsp    +++|          SB3    ERDN        **** ERROR IN DEVICE NUMBER.
01487  M00S01464.qfsp    +++|
01488  M00S01465.qfsp    +++| DNP      SUBR               ENTRY/EXIT
01489  M00S01466.qfsp    +++|
01490  M00S01467.qfsp    +++|*         CHECK IF FAMILY NAME ENTERED.
01491  M00S01468.qfsp    +++|
01492  M00S01469.qfsp    +++|          SB3    ERFN        **** FAMILY NAME MUST BE ENTERED.
01493  M00S01470.qfsp    +++|          SA3    TARG+ARFM   GET FAMILY NAME
01494  M00S01471.qfsp    +++|          SA1    FPNM
01495  M00S01472.qfsp    +++|          SX2    X1-FNQL
01496  M00S01473.qfsp    +++|          ZR     X2,DNP1     IF QLOAD UTILITY
01497  M00S01474.qfsp    +++|          SX2    X1-FNQM
01498  M00S01475.qfsp    +++|          NZ     X2,DNP2     IF NOT QMOVE UTILITY
01499  M00S01476.qfsp    +++| DNP1     SA5    PINB
01500  M00S01477.qfsp    +++|          SX5    X5-ARDN
01501  M00S01478.qfsp    +++|          ZR     X5,DNP2     IF *DN* SPECIFIED
01502  M00S01479.qfsp    +++|          SA3    TARG+ARDF
01503  M00S01480.qfsp    +++|          JP     DNP3
01504  M00S01481.qfsp    +++|
01505  M00S01482.qfsp    +++| DNP2     ZR     X3,DNPX     IF ALL FAMILIES SPECIFIED
01506  M00S01483.qfsp    +++| DNP3     SX1    B1
01507  M00S01484.qfsp    +++|          IX3    X3+X1
01508  M00S01485.qfsp    +++|          ZR     X3,DNPX     IF FAMILY NAME NOT ENTERED
01509  M00S01486.qfsp    +++|
01510  M00S01487.qfsp    +++|*         ASSEMBLE DEVICE NUMBER.
01511  M00S01488.qfsp    +++|
01512  M00S01489.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01513  M00S01490.qfsp    +++|          MX1    0           ALLOW NO SPECIAL CHARACTERS
01514  M00S01491.qfsp    +++|          BX6    X2
01515  M00S01492.qfsp    +++|          RJ     ASC         ASSEMBLE DEVICE NUMBER
01516  M00S01493.qfsp    +++|          ZR     X4,DNP8     IF NO PARAMETER
01517  M00S01494.qfsp    +++|          SB6    B5-1R=
01518  M00S01495.qfsp    +++|          SB5    B5-1R-
01519  M00S01496.qfsp    +++|          LE     B5,B0,DNP8  IF INCORRECT SEPARATOR
01520  M00S01497.qfsp    +++|          ZR     B6,DNP8     IF INCORRECT SEPARATOR
01521  M00S01498.qfsp    +++|
01522  M00S01499.qfsp    +++|*         CHECK IF ALL DEVICES LEGAL.
01523  M00S01500.qfsp    +++|
01524  M00S01501.qfsp    +++|          SA1    PINB        GET ARGUMENT TABLE INDEX
01525  M00S01502.qfsp    +++|          SB6    X1-ARDD
01526  M00S01503.qfsp    +++|          MX0    18
01527  M00S01504.qfsp    +++|          ZR     B6,DNP5     IF *DD* DIRECTIVE
01528  M00S01505.qfsp    +++|          SA2    DNPA
01529  M00S01506.qfsp    +++|          PL     X2,DNP6     IF *DN=ALL* NOT ALLOWED
01530  M00S01507.qfsp    +++| DNP4     SA2    FMPA
01531  M00S01508.qfsp    +++|          BX2    X6-X2
01532  M00S01509.qfsp    +++|          BX2    X0*X2
01533  M00S01510.qfsp    +++|          NZ     X2,DNP6     IF *ALL* NOT SPECIFIED
01534  M00S01511.qfsp    +++|          SA5    FMPA        SET *PINB* BLOCK
01535  M00S01512.qfsp    +++|          BX6    X6-X6
01536  M00S01513.qfsp    +++|          BX7    X5
01537  M00S01514.qfsp    +++|          SA7    PINB+1
01538  M00S01515.qfsp    +++|          SA6    A7+B1
01539  M00S01516.qfsp    +++|          MX1    0           CLEAR ERROR RETURN
01540  M00S01517.qfsp    +++|          JP     DNPX
01541  M00S01518.qfsp    +++|
01542  M00S01519.qfsp    +++|*         PROCESS QLOAD *DD* DIRECTIVE.
01543  M00S01520.qfsp    +++|
01544  M00S01521.qfsp    +++| DNP5     SA2    FPNM
01545  M00S01522.qfsp    +++|          SX3    X2-FNQL
01546  M00S01523.qfsp    +++|          NZ     X3,DNP6     IF NOT QLOAD UTILITY
01547  M00S01524.qfsp    +++|          SA2    TARG+ARDF
01548  M00S01525.qfsp    +++|          ZR     X2,DNP4     IF ALL FAMILIES SPECIFIED
01549  M00S01526.qfsp    +++|
01550  M00S01527.qfsp    +++|*         PROCESS SPECIFIC DEVICE NUMBER.
01551  M00S01528.qfsp    +++|
01552  M00S01529.qfsp    +++| DNP6     SB7    B0          SET OCTAL CONVERSION
01553  M00S01530.qfsp    +++|          BX5    X6
01554  M00S01531.qfsp    +++|          RJ     DXB
01555  M00S01532.qfsp    +++|          NZ     X4,DNP8     IF ERROR
01556  M00S01533.qfsp    +++|          SX4    X6-100B
01557  M00S01534.qfsp    +++|          PL     X4,DNP8     IF INCORRECT DEVICE NUMBER
01558  M00S01535.qfsp    +++|          BX5    X6          SAVE ARGUMENT VALUE
01559  M00S01536.qfsp    +++|          BX1    X6          SET K-DISPLAY VALUE
01560  M00S01537.qfsp    +++|          RJ     COD
01561  M00S01538.qfsp    +++|          LX6    6           INSERT B
01562  M00S01539.qfsp    +++|          SX1    1RB-1R
01563  M00S01540.qfsp    +++|          IX6    X6+X1
01564  M00S01541.qfsp    +++|          SB3    54
01565  M00S01542.qfsp    +++|          SB2    B3-B2
01566  M00S01543.qfsp    +++|          LX6    B2,X6
01567  M00S01544.qfsp    +++|          SA6    PINB+1
01568  M00S01545.qfsp    +++|
01569  M00S01546.qfsp    +++|*         VALIDATE FAMILY NAME AND DEVICE NUMBER.
01570  M00S01547.qfsp    +++|
01571  M00S01548.qfsp    +++|          LX5    12          VALIDATE DEVICE NUMBER
01572  M00S01549.qfsp    +++|          SA1    ARDF+TARG
01573  M00S01550.qfsp    +++|          ZR     B6,DNP7     IF *DD* DIRECTIVE
01574  M00S01551.qfsp    +++|          SA1    ARFM+TARG
01575  M00S01552.qfsp    +++| DNP7     BX6    X5+X1
01576  M00S01553.qfsp    +++|          MX0    48
01577  M00S01554.qfsp    +++|          SA3    TEQP+NOPE-1 INITIALIZE *TEQP* SEARCH
01578  M00S01555.qfsp    +++|          RJ     SET
01579  M00S01556.qfsp    +++|          NZ     X4,DNP8     IF NOT FOUND
01580  M00S01557.qfsp    +++|          LX5    36
01581  M00S01558.qfsp    +++|          SX3    A3          GET EST ORDINAL
01582  M00S01559.qfsp    +++|          SX3    X3-TEQP
01583  M00S01560.qfsp    +++|          BX7    X5+X3
01584  M00S01561.qfsp    +++|          SA7    A6+B1       SET ARGUMENT TABLE VALUE IN *PINB*
01585  M00S01562.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01586  M00S01563.qfsp    +++|          JP     DNPX        RETURN
01587  M00S01564.qfsp    +++|
01588  M00S01565.qfsp    +++| DNPA     CON    0
01589  M00S01566.qfsp    +++| ECP      SPACE  4,15
01590  M00S01567.qfsp    +++|**        ECP - EXTERNAL CHARACTERISTIC PROCESSOR.
01591  M00S01568.qfsp    +++|*
01592  M00S01569.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01593  M00S01570.qfsp    +++|*
01594  M00S01571.qfsp    +++|*         EXIT   EXTERNAL CHARACTERISTIC PROCESSOR SET IN
01595  M00S01572.qfsp    +++|*                K-DISPLAY AND ARGUMENT TABLE.
01596  M00S01573.qfsp    +++|*                (X1) = 0, NO ERROR ENCOUNTERED.
01597  M00S01574.qfsp    +++|*                (B3) = FWA OF ERROR MESSAGE.
01598  M00S01575.qfsp    +++|*
01599  M00S01576.qfsp    +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
01600  M00S01577.qfsp    +++|*                A - 2, 3, 5, 6.
01601  M00S01578.qfsp    +++|*                B - 1, 3, 5, 6, 7.
01602  M00S01579.qfsp    +++|*
01603  M00S01580.qfsp    +++|*         CALLS  ASC, SET, SFN.
01604  M00S01581.qfsp    +++|
01605  M00S01582.qfsp    +++|
01606  M00S01583.qfsp    +++| ECP2     SX1    B1+         SET ERROR RETURN
01607  M00S01584.qfsp    +++|          SB3    ERAD        **** ERROR IN ALPHANUMERIC DATA
01608  M00S01585.qfsp    +++|
01609  M00S01586.qfsp    +++| ECP      SUBR               ENTRY EXIT
01610  M00S01587.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01611  M00S01588.qfsp    +++|          MX1    0           ALLOW NO SPECIAL CHARACTERS
01612  M00S01589.qfsp    +++|          BX6    X2
01613  M00S01590.qfsp    +++|          RJ     ASC         ASSEMBLE CHARACTERS
01614  M00S01591.qfsp    +++|          ZR     X4,ECP2     IF NO DATA
01615  M00S01592.qfsp    +++|          SB6    B5-1R=
01616  M00S01593.qfsp    +++|          SB5    B5-1R-
01617  M00S01594.qfsp    +++|          ZR     B6,ECP2     IF INCORRECT CHARACTER
01618  M00S01595.qfsp    +++|          LE     B5,ECP2     IF INCORRECT SEPARATOR
01619  M00S01596.qfsp    +++|          BX1    X6
01620  M00S01597.qfsp    +++|          MX0    42          SEARCH FOR TABLE ENTRY
01621  M00S01598.qfsp    +++|          SB7    B0
01622  M00S01599.qfsp    +++| ECP1     SA5    TECA+B7
01623  M00S01600.qfsp    +++|          ZR     X5,ECP2     IF NOT VALID
01624  M00S01601.qfsp    +++|          SB7    B7+B1
01625  M00S01602.qfsp    +++|          SA3    X5          GET FWA-1 OF SEARCH TABLE
01626  M00S01603.qfsp    +++|          RJ     SET
01627  M00S01604.qfsp    +++|          ZR     X3,ECP1     IF NOT VALID ENTRY
01628  M00S01605.qfsp    +++|          BX6    -X0*X3
01629  M00S01606.qfsp    +++|          AX5    18
01630  M00S01607.qfsp    +++|          SB7    X5
01631  M00S01608.qfsp    +++|          LX6    B7,X6
01632  M00S01609.qfsp    +++|          SA2    PINB        GET ARGUMENT TABLE VALUES
01633  M00S01610.qfsp    +++|          SA2    X2+TARG
01634  M00S01611.qfsp    +++|          MX0    -12
01635  M00S01612.qfsp    +++|          LX0    B7,X0
01636  M00S01613.qfsp    +++|          BX2    X0*X2
01637  M00S01614.qfsp    +++|          BX6    X6+X2
01638  M00S01615.qfsp    +++|          SA6    PINB+2      SET ARGUMENT TABLE VALUE
01639  M00S01616.qfsp    +++|          RJ     SFN
01640  M00S01617.qfsp    +++|          SA6    PINB+1      SET K-DISPLAY VALUE
01641  M00S01618.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01642  M00S01619.qfsp    +++|          EQ     ECPX        RETURN
01643  M00S01620.qfsp    +++|
01644  M00S01621.qfsp    +++|
01645  M00S01622.qfsp    +++|**        TABLE OF EXTERNAL CHARACTERISTIC ADDRESSES.
01646  M00S01623.qfsp    +++|*
01647  M00S01624.qfsp    +++|*T         24/ 0, 18/ SHIFT COUNT, 18/ ADDRESS OF SEARCH TABLE
Figure

0171829 ADDRESS OF SEARCH TABLE SHIFT COUNT30353659 SHIFT COUNT 0

01648  M00S01625.qfsp    +++|
01649  M00S01626.qfsp    +++|
01650  M00S01627.qfsp    +++| TECA     BSS    0
01651  M00S01628.qfsp    +++|          VFD    24/0,18/48,18/TPLC-1  PLOT QUEUE
01652  M00S01629.qfsp    +++|          VFD    24/0,18/36,18/TPRC-1  PRINT QUEUE
01653  M00S01630.qfsp    +++|          VFD    24/0,18/24,18/TPUC-1  PUNCH QUEUE
01654  M00S01631.qfsp    +++|          VFD    60/0
01655  M00S01632.qfsp    +++| FCP      SPACE  4,20
01656  M00S01633.qfsp    +++|**        FCP - FORMS CODE PROCESSOR.
01657  M00S01634.qfsp    +++|*
01658  M00S01635.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01659  M00S01636.qfsp    +++|*
01660  M00S01637.qfsp    +++|*         EXIT   *PINB* BLOCK SET.
01661  M00S01638.qfsp    +++|*                (X1) = 0, IF NO ERROR ENCOUNTERED.
01662  M00S01639.qfsp    +++|*                (B3) = FWA OF ERROR MESSAGE.
01663  M00S01640.qfsp    +++|*
01664  M00S01641.qfsp    +++|*         USES   X - ALL.
01665  M00S01642.qfsp    +++|*                A - 1, 2, 6, 7.
01666  M00S01643.qfsp    +++|*                B - 3, 5, 6, 7.
01667  M00S01644.qfsp    +++|*
01668  M00S01645.qfsp    +++|*         CALLS  ASC, SFN.
01669  M00S01646.qfsp    +++|
01670  M00S01647.qfsp    +++|
01671  M00S01648.qfsp    +++| FCP5     SB3    ERAD        **** ERROR IN ALPHANUMERIC DATA.
01672  M00S01649.qfsp    +++|          SX1    B1+
01673  M00S01650.qfsp    +++|
01674  M00S01651.qfsp    +++| FCP      SUBR               ENTRY/EXIT
01675  M00S01652.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01676  M00S01653.qfsp    +++|          SA1    FCPA        ALLOW *-*, * AND */*
01677  M00S01654.qfsp    +++|          BX6    X2
01678  M00S01655.qfsp    +++|          RJ     ASC         ASSEMBLE CHARACTERS
01679  M00S01656.qfsp    +++|          ZR     X4,FCP5     IF NO DATA
01680  M00S01657.qfsp    +++|          SB7    B5-1R+
01681  M00S01658.qfsp    +++|          SB6    B5-1R=
01682  M00S01659.qfsp    +++|          ZR     B7,FCP5     IF INCORRECT SEPARATOR
01683  M00S01660.qfsp    +++|          ZR     B6,FCP5     IF INCORRECT SEPARATOR
01684  M00S01661.qfsp    +++|
01685  M00S01662.qfsp    +++|*         SET K-DISPLAY ENTRY.
01686  M00S01663.qfsp    +++|
01687  M00S01664.qfsp    +++|          BX1    X6
01688  M00S01665.qfsp    +++|          BX5    X6
01689  M00S01666.qfsp    +++|          RJ     SFN         SPACE FILL K-DISPLAY INPUT
01690  M00S01667.qfsp    +++|          SA6    PINB+1
01691  M00S01668.qfsp    +++|
01692  M00S01669.qfsp    +++|*         SET ARGUMENT TABLE ENTRY.
01693  M00S01670.qfsp    +++|
01694  M00S01671.qfsp    +++|          MX0    -12         FORMS CODE MASK
01695  M00S01672.qfsp    +++|          MX1    -6          SEPARATOR MASK
01696  M00S01673.qfsp    +++|          SB5    B0+         RANGE FLAG
01697  M00S01674.qfsp    +++|          SB6    3           NUMBER OF FORMS CODES ALLOWED
01698  M00S01675.qfsp    +++|          SB7    48          SHIFT COUNT
01699  M00S01676.qfsp    +++|          SX7    B0+         CLEAR ASSEMBLY BUFFER
01700  M00S01677.qfsp    +++|
01701  M00S01678.qfsp    +++| FCP1     LX5    12          EXTRACT FORMS CODE
01702  M00S01679.qfsp    +++|          BX2    -X0*X5
01703  M00S01680.qfsp    +++|          ZR     X2,FCP5     IF NO FORMS CODE
01704  M00S01681.qfsp    +++|          SX3    X2-2R**
01705  M00S01682.qfsp    +++|          SX4    7777B       PRESET NULL FORMS CODE
01706  M00S01683.qfsp    +++|          ZR     X3,FCP2     IF NULL FORMS CODE
01707  M00S01684.qfsp    +++|          BX4    -X1*X2      VALIDATE FORMS CODE
01708  M00S01685.qfsp    +++|          BX3    X2-X4
01709  M00S01686.qfsp    +++|          ZR     X4,FCP5     IF NO CHARACTER
01710  M00S01687.qfsp    +++|          SX4    X4-1R9-1
01711  M00S01688.qfsp    +++|          SX3    X3-1R9*100B-100B
01712  M00S01689.qfsp    +++|          PL     X4,FCP5     IF INCORRECT CHARACTER
01713  M00S01690.qfsp    +++|          PL     X3,FCP5     IF INCORRECT CHARACTER
01714  M00S01691.qfsp    +++|          BX4    X2
01715  M00S01692.qfsp    +++| FCP2     LX3    B7,X4       ENTER FORMS CODE IN ASSEMBLY REGISTER
01716  M00S01693.qfsp    +++|          BX7    X3+X7
01717  M00S01694.qfsp    +++|          SB6    B6-B1       DECREMENT NUMBER OF FORMS CODES LEFT
01718  M00S01695.qfsp    +++|          SB7    B7-12
01719  M00S01696.qfsp    +++|          LT     B6,FCP5     IF TOO MANY FORMS CODES SPECIFIED
01720  M00S01697.qfsp    +++|          LX5    6           CHECK SEPARATOR
01721  M00S01698.qfsp    +++|          BX2    -X1*X5
01722  M00S01699.qfsp    +++|          ZR     X2,FCP3     IF END OF STRING
01723  M00S01700.qfsp    +++|          SX3    X2-1R/
01724  M00S01701.qfsp    +++|          SX4    X2-1R-
01725  M00S01702.qfsp    +++|          ZR     X3,FCP1     IF PROCESSING LIST
01726  M00S01703.qfsp    +++|          NZ     X4,FCP5     IF INCORRECT SEPARATOR
01727  M00S01704.qfsp    +++|          SB6    B6-2
01728  M00S01705.qfsp    +++|          NZ     B6,FCP5     IF NOT FIRST FORMS CODE, RANGE NOT ALLOWED
01729  M00S01706.qfsp    +++|          SB5    B1          SET RANGE FLAG
01730  M00S01707.qfsp    +++|          SB6    B1          ALLOW ONE MORE FORMS CODE
01731  M00S01708.qfsp    +++|          SX4    B1          SET RANGE FLAG
01732  M00S01709.qfsp    +++|          BX7    X4+X7
01733  M00S01710.qfsp    +++|          EQ     FCP1        CHECK NEXT FORMS CODE
01734  M00S01711.qfsp    +++|
01735  M00S01712.qfsp    +++|*         CHECK IF FORMS CODE TO BE CLEARED.
01736  M00S01713.qfsp    +++|
01737  M00S01714.qfsp    +++| FCP3     BX1    X1-X1       CLEAR ERROR RETURN
01738  M00S01715.qfsp    +++|          SA2    TARG+ARFR
01739  M00S01716.qfsp    +++|          BX2    X2-X7
01740  M00S01717.qfsp    +++|          NZ     X2,FCP4     IF NO MATCH
01741  M00S01718.qfsp    +++|          RJ     SFN         SET K-DISPLAY VALUE
01742  M00S01719.qfsp    +++|          SA6    PINB+1
01743  M00S01720.qfsp    +++|          SX7    B0+         SET ARGUMENT TABLE VALUE
01744  M00S01721.qfsp    +++| FCP4     SA7    PINB+2      SET ARGUMENT TABLE VALUE
01745  M00S01722.qfsp    +++|          ZR     B5,FCPX     IF LIST SPECIFIED
01746  M00S01723.qfsp    +++|          LX7    12          EXTRACT LOWER BOUND
01747  M00S01724.qfsp    +++|          BX2    -X0*X7
01748  M00S01725.qfsp    +++|          LX7    12          EXTRACT UPPER BOUND
01749  M00S01726.qfsp    +++|          BX3    -X0*X7
01750  M00S01727.qfsp    +++|          BX4    X2+X0
01751  M00S01728.qfsp    +++|          ZR     X4,FCPX     IF NULL FORMS
01752  M00S01729.qfsp    +++|          BX4    X3+X0
01753  M00S01730.qfsp    +++|          ZR     X4,FCP5     IF NULL FORMS
01754  M00S01731.qfsp    +++|          IX3    X3-X2
01755  M00S01732.qfsp    +++|          PL     X3,FCPX     IF LOWER BOUND .LE. UPPER BOUND
01756  M00S01733.qfsp    +++|          EQ     FCP5        ERROR EXIT
01757  M00S01734.qfsp    +++|
01758  M00S01735.qfsp    +++|
01759  M00S01736.qfsp    +++| FCPA     BITCON (-,/,*)     ALLOW SPECIAL CHARACTERS
01760  M00S01737.qfsp    +++| FMP      SPACE  4,12
01761  M00S01738.qfsp    +++|**        FMP - FAMILY NAME PROCESSOR.
01762  M00S01739.qfsp    +++|*
01763  M00S01740.qfsp    +++|*         ENTRY  (PINB) = ARGUEMENT TABLE INDEX.
01764  M00S01741.qfsp    +++|*                (PI) = FWA OF SEARCH TABLE.
01765  M00S01742.qfsp    +++|*
01766  M00S01743.qfsp    +++|*         EXIT   FAMILY NAME PROCESSED AND SET IN K-DISPLAY.
01767  M00S01744.qfsp    +++|*                DEVICE NUMBER LIST DISPLAYED.
01768  M00S01745.qfsp    +++|*                (X1) = 0, NO ERROR ENCOUNTERED.
01769  M00S01746.qfsp    +++|*                (B3) = ADDRESS OF ERROR MESSAGE.
01770  M00S01747.qfsp    +++|*
01771  M00S01748.qfsp    +++|*         USES   X - ALL.
01772  M00S01749.qfsp    +++|*                A - 1, 2, 3, 4, 5, 6, 7.
01773  M00S01750.qfsp    +++|*                B - 2, 3, 4, 5, 6, 7.
01774  M00S01751.qfsp    +++|*
01775  M00S01752.qfsp    +++|*         CALLS  ASC, SET, SFN, SPD, COD, DDN.
01776  M00S01753.qfsp    +++|
01777  M00S01754.qfsp    +++|
01778  M00S01755.qfsp    +++| FMP11    SX1    B1+         SET ERROR RETURN
01779  M00S01756.qfsp    +++|          SB3    ERFM        **** ERROR IN FAMILY NAME.
01780  M00S01757.qfsp    +++|
01781  M00S01758.qfsp    +++| FMP      SUBR               ENTRY/EXIT
01782  M00S01759.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01783  M00S01760.qfsp    +++|          MX1    0           ALLOW NO SPECIAL CHARACTERS
01784  M00S01761.qfsp    +++|          BX6    X2
01785  M00S01762.qfsp    +++|          RJ     ASC         ASSEMBLE FAMILY NAME
01786  M00S01763.qfsp    +++|          ZR     X4,FMP11    IF NO PARAMETER
01787  M00S01764.qfsp    +++|          SB6    B5-1R=
01788  M00S01765.qfsp    +++|          SB5    B5-1R-
01789  M00S01766.qfsp    +++|          LE     B5,B0,FMP11 IF INCORRECT SEPARATOR
01790  M00S01767.qfsp    +++|          ZR     B6,FMP11    IF INCORRECT SEPARATOR
01791  M00S01768.qfsp    +++|          SX4    X4-8
01792  M00S01769.qfsp    +++|          PL     X4,FMP11    IF TOO MANY CHARACTERS
01793  M00S01770.qfsp    +++|
01794  M00S01771.qfsp    +++|*         PROCESS FAMILY NAME.
01795  M00S01772.qfsp    +++|
01796  M00S01773.qfsp    +++|          SA6    DDNA+2      SET FAMILY NAME IN K-DISPLAY
01797  M00S01774.qfsp    +++|          BX1    X6          SET K-DISPLAY ENTRY IN *PINB*
01798  M00S01775.qfsp    +++|          RJ     SFN
01799  M00S01776.qfsp    +++|          SA6    PINB+1
01800  M00S01777.qfsp    +++|          SA4    PINB
01801  M00S01778.qfsp    +++|          SX2    X4-ARFU
01802  M00S01779.qfsp    +++|          SX3    X4-ARDF
01803  M00S01780.qfsp    +++|          ZR     X2,FMP2     IF *FU* DIRECTIVE ENTERED
01804  M00S01781.qfsp    +++|          SX2    X4-ARTF
01805  M00S01782.qfsp    +++|          ZR     X2,FMP2     IF *TF* DIRECTIVE ENTERED
01806  M00S01783.qfsp    +++|          SA4    FPNM        SET CHECK FOR QMOVE UTILITY
01807  M00S01784.qfsp    +++|          SX7    X4-FNQM
01808  M00S01785.qfsp    +++|          ZR     X3,FMP1     IF *DF* DIRECTIVE ENTERED
01809  M00S01786.qfsp    +++|          SX2    55B         CHECK *FM=ALL* LEGAL
01810  M00S01787.qfsp    +++|          SB2    59
01811  M00S01788.qfsp    +++|          SB5    X4
01812  M00S01789.qfsp    +++|          SB5    B2-B5
01813  M00S01790.qfsp    +++|          LX7    B5,X2
01814  M00S01791.qfsp    +++|          SA7    DNPA        SAVE RESULT FOR *DN=ALL* CHECK
01815  M00S01792.qfsp    +++|          PL     X7,FMP3     IF *FM=ALL* NOT LEGAL
01816  M00S01793.qfsp    +++|
01817  M00S01794.qfsp    +++| FMP1     ZR     X7,FMP3     IF QMOVE UTILITY *DF* DIRECTIVE
01818  M00S01795.qfsp    +++| FMP2     SA4    FMPB
01819  M00S01796.qfsp    +++|          BX2    X1-X4
01820  M00S01797.qfsp    +++|          NZ     X2,FMP3     IF *ALL* NOT SPECIFIED
01821  M00S01798.qfsp    +++|          SX1    B0+
01822  M00S01799.qfsp    +++| FMP3     BX6    X1
01823  M00S01800.qfsp    +++|          SA6    PINB+2
01824  M00S01801.qfsp    +++|          MX0    42
01825  M00S01802.qfsp    +++|          SA3    PI
01826  M00S01803.qfsp    +++|          ZR     X3,FMP5     IF VALIDATION NOT REQUIRED
01827  M00S01804.qfsp    +++|          ZR     X1,FMP5     IF *ALL* SPECIFIED
01828  M00S01805.qfsp    +++|          SA3    X3-1
01829  M00S01806.qfsp    +++|          RJ     SET
01830  M00S01807.qfsp    +++|          NZ     X4,FMP11    IF INCORRECT FAMILY NAME
Line S01808 Modification History
M01 (Removed by) ns2533
Seq #  *Modification Id* Act 
----------------------------+
01831  M01S01808.ns2533  ---|          SX6    A3+         SAVE TABLE ENTRY ADDRESS
01832  M01S01809.ns2533  ---|          SA6    FMPC
Line S00008 Modification History
M01 (Added by) ns2533
Seq #  *Modification Id* Act 
----------------------------+
01833  M01S00008.ns2533  +++|          SX7    A3          SAVE TABLE ENTRY ADDRESS
01834  M01S00009.ns2533  +++|          SA7    FMPC
01835  M01S00010.ns2533  +++|          SA5    A3-TEQP+TAMS  SEARCH FOR DEVICE WITH MOST TRACKS
01836  M01S00011.ns2533  +++|          SB2    X5+         STARTING TRACKS AVAILABLE
01837  M01S00012.ns2533  +++| FMP4     RJ     SET
01838  M01S00013.ns2533  +++|          NZ     X4,FMP5     IF NO MORE DEVICES IN FAMILY
01839  M01S00014.ns2533  +++|          SA5    A3-TEQP+TAMS
01840  M01S00015.ns2533  +++|          SB3    X5
01841  M01S00016.ns2533  +++|          LE     B3,B2,FMP4  IF NOT MORE AVAILABLE TRACKS
01842  M01S00017.ns2533  +++|          SX7    A3          SET NEW TABLE ENTRY ADDRESS
01843  M01S00018.ns2533  +++|          SA7    FMPC
01844  M01S00019.ns2533  +++|          EQ     FMP4        CONTINUE FAMILY SEARCH
01845  M01S00020.ns2533  +++|
01846  M00S01810.qfsp    +++| FMP5     RJ     SPD         SET PROCESSED DATA IN DISPLAY
01847  M00S01811.qfsp    +++|
01848  M00S01812.qfsp    +++|*         SET DEVICE NUMBER TO DEFAULT VALUES.
01849  M00S01813.qfsp    +++|
01850  M00S01814.qfsp    +++|          SA5    PINB        DETERMINE TYPE OF DIRECTIVE
01851  M00S01815.qfsp    +++|          SB6    X5-ARDF
01852  M00S01816.qfsp    +++|          SB7    X5-ARFM
01853  M00S01817.qfsp    +++|          SB5    ARDD        ASSUME *DD* DIRECTIVE TO BE SET
01854  M00S01818.qfsp    +++|          ZR     B6,FMP6     IF *DF* DIRECTIVE
01855  M00S01819.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01856  M00S01820.qfsp    +++|          NZ     B7,FMPX     IF NOT *FM* DIRECTIVE
01857  M00S01821.qfsp    +++|          SA5    FPNM        FM DIRECTIVE ENTERED - DETERMINE UTILITY
01858  M00S01822.qfsp    +++|          SX1    X5-FNQR
01859  M00S01823.qfsp    +++|          SX2    X5-FNQD
01860  M00S01824.qfsp    +++|          SX7    X5-FNQM
01861  M00S01825.qfsp    +++|          SB5    ARDN        SET *DN* DIRECTIVE
01862  M00S01826.qfsp    +++|          ZR     X1,FMP8     IF QREC UTILITY
01863  M00S01827.qfsp    +++|          ZR     X2,FMP8     IF QDUMP UTILITY
01864  M00S01828.qfsp    +++|          ZR     X7,FMP8     IF QMOVE UTILITY
01865  M00S01829.qfsp    +++|          SX4    X5-FNFN
01866  M00S01830.qfsp    +++|          SX1    X5-FNDT
01867  M00S01831.qfsp    +++|          ZR     X4,FMP8     IF QFTLIST OR QALTER
01868  M00S01832.qfsp    +++|          ZR     X1,FMP10.1  IF DFTERM
01869  M00S01833.qfsp    +++|
01870  M00S01834.qfsp    +++|*         SET SPECIFIC DEVICE NUMBER.
01871  M00S01835.qfsp    +++|
01872  M00S01836.qfsp    +++| FMP6     SA5    FPNM        CHECK IF ALL DEVICES NECESSARY
01873  M00S01837.qfsp    +++|          SX7    X5-FNQL
01874  M00S01838.qfsp    +++|          NZ     X7,FMP7     IF NOT QLOAD UTILITY
01875  M00S01839.qfsp    +++|          SA1    PINB+2
01876  M00S01840.qfsp    +++|          ZR     X1,FMP8     IF *DF=ALL* SPECIFIED
01877  M00S01841.qfsp    +++| FMP7     MX0    -18         PROCESS *DD* DIRECTIVE
01878  M00S01842.qfsp    +++|          SA4    FMPC        GET TABLE ENTRY ADDRESS
01879  M00S01843.qfsp    +++|          SA5    X4
01880  M00S01844.qfsp    +++|          BX1    -X0*X5
01881  M00S01845.qfsp    +++|          AX1    12
01882  M00S01846.qfsp    +++|          BX5    X1
01883  M00S01847.qfsp    +++|          LX5    48          SET EST ORDINAL
01884  M00S01848.qfsp    +++|          SX2    X4-TEQP
01885  M00S01849.qfsp    +++|          BX5    X2+X5
01886  M00S01850.qfsp    +++|          RJ     COD
01887  M00S01851.qfsp    +++|          SB3    54
01888  M00S01852.qfsp    +++|          SB2    B3-B2
01889  M00S01853.qfsp    +++|          LX6    6           INSERT B
01890  M00S01854.qfsp    +++|          SX1    1RB-1R
01891  M00S01855.qfsp    +++|          IX6    X1+X6
01892  M00S01856.qfsp    +++|          LX6    B2,X6
01893  M00S01857.qfsp    +++|          SX7    B5          SET ARGUMENT TABLE INDEX
01894  M00S01858.qfsp    +++|          JP     FMP10
01895  M00S01859.qfsp    +++|
01896  M00S01860.qfsp    +++|*         SET DEVICE NUMBER TO ALL.
01897  M00S01861.qfsp    +++|
01898  M00S01862.qfsp    +++| FMP8     SA4    FMPA        SET DEFAULT TO ALL
01899  M00S01863.qfsp    +++|          BX6    X4
01900  M00S01864.qfsp    +++|          SX5    B0
01901  M00S01865.qfsp    +++|          SX7    B5          SET ARGUMENT TABLE INDEX
01902  M00S01866.qfsp    +++|
01903  M00S01867.qfsp    +++|*         SET DEFAULT VALUES IN *PINB* BLOCK.
01904  M00S01868.qfsp    +++|
01905  M00S01869.qfsp    +++| FMP10    SA7    PINB        SET ARGUMENT TABLE INDICES
01906  M00S01870.qfsp    +++|          SB6    X7-ARDN
01907  M00S01871.qfsp    +++|          SA6    A7+B1       SET PRIMARY ENTRY IN *PINB*
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/qfsp.txt ยท Last modified: by 127.0.0.1