User Tools

Site Tools


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

Deck QFSP

9 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.qfsp    +++|          IDENT  QFSP,FWA
00002  M01S00002.qfsp    +++|          ABS
00003  M01S00003.qfsp    +++|          SST
00004  M01S00004.qfsp    +++|          SYSCOM B1
00005  M01S00005.qfsp    +++|          ENTRY  QFSP
00006  M01S00006.qfsp    +++|          ENTRY  QREC
00007  M01S00007.qfsp    +++|          ENTRY  QLIST
00008  M01S00008.qfsp    +++|          ENTRY  QDUMP
00009  M01S00009.qfsp    +++|          ENTRY  QLOAD
00010  M01S00010.qfsp    +++|          ENTRY  LDLIST
00011  M01S00011.qfsp    +++|          ENTRY  QMOVE
00012  M01S00012.qfsp    +++|          ENTRY  DFTERM
00013  M01S00013.qfsp    +++|          ENTRY  DFLIST
00014  M01S00014.qfsp    +++|          ENTRY  QALTER
00015  M01S00015.qfsp    +++|          ENTRY  QFTLIST
00016  M01S00016.qfsp    +++|          ENTRY  RFL=
00017  M01S00017.qfsp    +++|          ENTRY  SSJ=
00018  M01S00018.qfsp    +++|          ENTRY  SSM=
00019  M01S00019.qfsp    +++|*COMMENT  QFSP - QUEUED FILE SUPERVISOR.
Line S00020 Modification History
M01 (Added by) qfsp
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00020  M02S00020.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION.  1978.
00021  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00022  M01S00021.qfsp    +++|          SPACE  4
00023  M01S00022.qfsp    +++|***       QFSP - QUEUED FILE SUPERVISOR.
00024  M01S00023.qfsp    +++|*         R. A. JAPS.        75/01/29.
00025  M01S00024.qfsp    +++|*         R. A. JAPS.        78/01/27. (RESEQUENCED)
00026  M01S00025.qfsp    +++|*         R. M. DESSEL.      81/10/15.
00027  M01S00026.qfsp    +++|*         J. T. LITTLE.      84/10/11.
00028  M01S00027.qfsp    +++|          TITLE  QFSP - QUEUED FILE SUPERVISOR.
00029  M01S00028.qfsp    +++|          SPACE  4
00030  M01S00029.qfsp    +++|***       QFSP WILL LOAD THE DESIRED QUEUE FILE OR DAYFILE
00031  M01S00030.qfsp    +++|*         UTILITY PROGRAM AND PROCESS ALL THE DIRECTIVES NEEDED
00032  M01S00031.qfsp    +++|*         BY THAT UTILITY.
00033  M01S00032.qfsp    +++|*
00034  M01S00033.qfsp    +++|*         UTILITY
00035  M01S00034.qfsp    +++|*         OPTIONS            DESCRIPTION
00036  M01S00035.qfsp    +++|*
00037  M01S00036.qfsp    +++|*         QDUMP              QUEUED FILE DUMP.
00038  M01S00037.qfsp    +++|*         QLOAD              QUEUED FILE LOAD.
00039  M01S00038.qfsp    +++|*         QMOVE              QUEUED FILE MOVE.
00040  M01S00039.qfsp    +++|*         QREC               QUEUED FILE REQUEUING.
00041  M01S00040.qfsp    +++|*         DFTERM             DAYFILE TERMINATION.
00042  M01S00041.qfsp    +++|*         QALTER             ALTER ACTIVE QUEUED FILES.
00043  M01S00042.qfsp    +++|*         QFTLIST            LIST ACTIVE QUEUED FILES.
00044  M01S00043.qfsp    +++|*
00045  M01S00044.qfsp    +++|*         IF X.QFSP CALL IS MADE, K.OPTION MUST BE ENTERED WHERE
00046  M01S00045.qfsp    +++|*         *OPTION* IS ONE OF THE ABOVE PARAMETERS. THIS MUST BE
00047  M01S00046.qfsp    +++|*         ENTERED BEFORE ANY OTHER DIRECTIVES ARE ENTERED.
00048  M01S00047.qfsp    +++|          SPACE  4
00049  M01S00048.qfsp    +++|***       THE COMMAND.
00050  M01S00049.qfsp    +++|*
00051  M01S00050.qfsp    +++|*         QFSP.
00052  M01S00051.qfsp    +++|*         QDUMP(P1=F1,P2=F2,...,PN=FN,I=LFN)
00053  M01S00052.qfsp    +++|*         QLOAD(P1=F1,P2=F2,...,PN=FN,I=LFN)
00054  M01S00053.qfsp    +++|*         LDLIST(P1=F1,P2=F2,...,PN=FN,I=LFN)
00055  M01S00054.qfsp    +++|*         QMOVE(P1=F1,P2=F2,...,PN=FN,I=LFN)
00056  M01S00055.qfsp    +++|*         QREC(P1=F1,P2=F2,...,PN=FN,I=LFN)
00057  M01S00056.qfsp    +++|*         QLIST(P1=F1,P2=F2,...,PN=FN,I=LFN)
00058  M01S00057.qfsp    +++|*         DFTERM(P1=F1,P2=F2,...,PN=FN,I=LFN)
00059  M01S00058.qfsp    +++|*         DFLIST.
00060  M01S00059.qfsp    +++|*         QALTER(P1=F1,P2=F2,...,PN=FN,I=LFN)
00061  M01S00060.qfsp    +++|*         QFTLIST(P1=F1,P2=F2,...PN=FN,I=LFN)
00062  M01S00061.qfsp    +++|*
00063  M01S00062.qfsp    +++|*         WHERE PI MAY BE ANY K-DISPLAY DIRECTIVE AND
00064  M01S00063.qfsp    +++|*         FI IS ITS ASSOCIATED VALUE. (SEE K-DISPLAY INPUT DATA)
00065  M01S00064.qfsp    +++|*
00066  M01S00065.qfsp    +++|*         I      ALTERNATE DIRECTIVE INPUT FILE. THIS IS A
00067  M01S00066.qfsp    +++|*                COMMAND PARAMETER SPECIFYING WHAT FILE SHOULD BE
00068  M01S00067.qfsp    +++|*                READ FOR INPUT DIRECTIVES. THESE DIRECTIVES
00069  M01S00068.qfsp    +++|*                CONSIST OF ANY LEGAL K-DISPLAY INPUT OR COMMANDS.
00070  M01S00069.qfsp    +++|*                THESE DIRECTIVES WILL BE PROCESSED AFTER THE
00071  M01S00070.qfsp    +++|*                COMMAND DIRECTIVES BUT BEFORE ANY
00072  M01S00071.qfsp    +++|*                K-DISPLAY INPUT IS ACCEPTED.
00073  M01S00072.qfsp    +++|*
00074  M01S00073.qfsp    +++|*         PO     PROCESSOR OPTIONS WHERE OPTIONS ARE DEFINED AS
00075  M01S00074.qfsp    +++|*                THE FOLLOWING -
00076  M01S00075.qfsp    +++|*
00077  M01S00076.qfsp    +++|*                N - IF SPECIFIED, ONLY COMMAND DIRECTIVES
00078  M01S00077.qfsp    +++|*                    WILL BE PROCESSED.  K-DISPLAY IS AVAILABLE
00079  M01S00078.qfsp    +++|*                    FOR MONITORING THE UTILITY PROGRESS, BUT NO
00080  M01S00079.qfsp    +++|*                    K-DISPLAY INPUT IS ALLOWED.  THE N PARAMETER
00081  M01S00080.qfsp    +++|*                    IS IMPLIED ON ALL NON-SYSTEM ORIGIN JOBS.
00082  M01S00081.qfsp    +++|*
00083  M01S00082.qfsp    +++|*                R - IF SPECIFIED, DUMP/LOAD FILE WILL BE REWOUND
00084  M01S00083.qfsp    +++|*                    BEFORE OPERATION BEGINS.
00085  M01S00084.qfsp    +++|*
00086  M01S00085.qfsp    +++|*                E - IF SPECIFIED, ERRORED FILE PROCESSING STATUS
00087  M01S00086.qfsp    +++|*                    WILL BE TOGGLED.  DEFAULTS FOR QUEUE UTILITIES
00088  M01S00087.qfsp    +++|*                    ARE -
00089  M01S00088.qfsp    +++|*
00090  M01S00089.qfsp    +++|*                         DUMP FILE          (QDUMP)
00091  M01S00090.qfsp    +++|*                         NOT LOAD FILE      (QLOAD)
00092  M01S00091.qfsp    +++|*                         NOT MOVE FILE      (QMOVE)
00093  M01S00092.qfsp    +++|*
00094  M01S00093.qfsp    +++|*                F - IF SPECIFIED, ENTRIES WILL BE MADE IN THE *FOT*
00095  M01S00094.qfsp    +++|*                    FOR THE INACTIVE FAMILIES AND THE FILES WILL BE
00096  M01S00095.qfsp    +++|*                    QUEUED.
00097  M01S00096.qfsp    +++|*
00098  M01S00097.qfsp    +++|*                L - IF SPECIFIED, ENTRIES WILL BE MADE TO THE LID
00099  M01S00098.qfsp    +++|*                    TABLE , (IF IT IS NOT FULL) AND THE FILES WILL
00100  M01S00099.qfsp    +++|*                    BE QUEUED.
00101  M01S00100.qfsp    +++|*
00102  M01S00101.qfsp    +++|*                I - IF SPECIFIED, INACTIVE INPUT QUEUE FILES WILL BE
00103  M01S00102.qfsp    +++|*                    ACTIVATED WHEN THE OWNER FAMILY IS NOT PRESENT.
00104  M01S00103.qfsp    +++|*
00105  M01S00104.qfsp    +++|*                U - IF SPECIFIED, UNCONDITIONALLY LOAD FILES WITHIN
00106  M01S00105.qfsp    +++|*                    SECURITY RESTRAINTS AND SYSTEM FILE INTEGRITY.
00107  M01S00106.qfsp    +++|          SPACE  4
00108  M01S00107.qfsp    +++|***       K-DISPLAY INPUT DATA.
00109  M01S00108.qfsp    +++|*
00110  M01S00109.qfsp    +++|*         DATA ITEMS ARE PARTITIONED WITH SEPARATOR CHARACTERS.
00111  M01S00110.qfsp    +++|*         END-OF-LINE IS CONSIDERED A SEPARATOR CHARACTER WHILE
00112  M01S00111.qfsp    +++|*         THE FOLLOWING CHARACTERS ARE NOT CONSIDERED SEPARATORS,
00113  M01S00112.qfsp    +++|*         *=*, *+*, *-*. EACH IDENTIFIER MUST BE PRECEEDED BY AN
00114  M01S00113.qfsp    +++|*         PARAMETER. THE IDENTIFIER MUST BE SEPARATED FROM THE
00115  M01S00114.qfsp    +++|*         PARAMETER BY AN *=*.
00116  M01S00115.qfsp    +++|*
00117  M01S00116.qfsp    +++|*         FM  =  FAMILY NAME FOR DEVICES. MUST BE ENTERED BEFORE
00118  M01S00117.qfsp    +++|*                ENTERING DEVICE NUMBER (DN).
00119  M01S00118.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00120  M01S00119.qfsp    +++|*                            DEFAULTS ARE -
00121  M01S00120.qfsp    +++|*                                  ALL FAMILIES (QDUMP, QMOVE, QREC,
00122  M01S00121.qfsp    +++|*                                  QALTER, QFTLIST)
00123  M01S00122.qfsp    +++|*                                  FM FOR CURRENT DAYFILE (DFTERM)
00124  M01S00123.qfsp    +++|*
00125  M01S00124.qfsp    +++|*         FU  =  FAMILY NAME FOR USER INDEX RANGE.
00126  M01S00125.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00127  M01S00126.qfsp    +++|*                            DEFAULT IS ALL FAMILY NAMES.
00128  M01S00127.qfsp    +++|*
00129  M01S00128.qfsp    +++|*         DF  =  DESTINATION FAMILY NAME. MUST BE SPECIFIED BEFORE
00130  M01S00129.qfsp    +++|*                DESTINATION DEVICE NUMBER (DD).
00131  M01S00130.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00132  M01S00131.qfsp    +++|*                            *QLOAD* DEFAULT OPTION IS ALL FAMILIES.
00133  M01S00132.qfsp    +++|*                            *QMOVE* DEFAULT OPTION IS NO FAMILIES.
00134  M01S00133.qfsp    +++|*
00135  M01S00134.qfsp    +++|*         DN  =  DEVICE NUMBER.
00136  M01S00135.qfsp    +++|*                            1-2 NUMERIC DIGITS + RADIX.
00137  M01S00136.qfsp    +++|*                            DEFAULTS ARE -
00138  M01S00137.qfsp    +++|*                                  ALL DEVICES (QDUMP, QMOVE, QREC)
00139  M01S00138.qfsp    +++|*                                  DN FOR CURRENT DAYFILE (DFTERM)
00140  M01S00139.qfsp    +++|*
00141  M01S00140.qfsp    +++|*         DD  =  DESTINATION DEVICE NUMBER.
00142  M01S00141.qfsp    +++|*                            1-2 NUMERIC DIGITS + RADIX.
00143  M01S00142.qfsp    +++|*                            *QLOAD* DEFAULT OPTION IS ALL DEVICES.
00144  M01S00143.qfsp    +++|*                            *QMOVE* DEFAULT OPTION IS NO DEVICES.
00145  M01S00144.qfsp    +++|*
00146  M01S00145.qfsp    +++|*         UN  =  DESTINATION USER NAME.
00147  M01S00146.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00148  M01S00147.qfsp    +++|*                            ENTERED.
00149  M01S00148.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00150  M01S00149.qfsp    +++|*                            DEFAULT IS NO USER NAME SPECIFIED.
00151  M01S00150.qfsp    +++|*
00152  M01S00151.qfsp    +++|*         UJN = USER JOB NAME.
00153  M01S00152.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00154  M01S00153.qfsp    +++|*                            DEFAULT IS NO NAME SPECIFIED.
00155  M01S00154.qfsp    +++|*
00156  M01S00155.qfsp    +++|*         UI  =  USER INDEX RANGE. MAY TAKE ONE OF TWO FORMATS.
00157  M01S00156.qfsp    +++|*                UI=XXXXXX-YYYYYY  USE ALL UI IN SPECIFIED RANGE.
00158  M01S00157.qfsp    +++|*                UI=XXXXXX         USE THIS USER INDEX ONLY.
00159  M01S00158.qfsp    +++|*                            1-6 NUMERIC DIGITS + RADIX.
00160  M01S00159.qfsp    +++|*                            DEFAULT IS 0-377777B.
00161  M01S00160.qfsp    +++|*
00162  M01S00161.qfsp    +++|*         DA = DATE RANGE.  THE RANGE MAY TAKE ONE OF THREE FORMS -
00163  M01S00162.qfsp    +++|*                DA=YYMMDD-YYMMDD  USE ALL DATES IN SPECIFIED RANGE.
00164  M01S00163.qfsp    +++|*                DA=YYMMDD         USE THIS DATE ONLY.
00165  M01S00164.qfsp    +++|*                            DEFAULT WILL SELECT ALL QUEUED
00166  M01S00165.qfsp    +++|*                            FILES CREATED WITHIN FIVE DAYS
00167  M01S00166.qfsp    +++|*                            OF THE CURRENT DATE.
00168  M01S00167.qfsp    +++|*                DA=ALL            USE ALL DATES.
00169  M01S00168.qfsp    +++|*
00170  M01S00169.qfsp    +++|*                            DEFAULT FOR *QLIST* IS ALL DATES.
00171  M01S00170.qfsp    +++|*
00172  M01S00171.qfsp    +++|*         LD =   DESTINATION LOGICAL IDENTIFIER (LID) FOR REMOTE
00173  M01S00172.qfsp    +++|*                LINKED FILES.
00174  M01S00173.qfsp    +++|*                            3 ALPHANUMERIC CHARACTERS.
00175  M01S00174.qfsp    +++|*                            *0* - ALL FILES WITHOUT LIDS ARE SELECTED.
00176  M01S00175.qfsp    +++|*                            DEFAULT IS NO LID SPECIFIED.
00177  M01S00176.qfsp    +++|*
00178  M01S00177.qfsp    +++|*         JSN =  JOB SEQUENCE NUMBER. JSN WILL BE CLEARED IF PREVIOUSLY
00179  M01S00178.qfsp    +++|*                ENTERED.  OTHERWISE, JSN IS ADDED TO LIST.
00180  M01S00179.qfsp    +++|*                            1-4 ALPHANUMERIC DIGITS.
00181  M01S00180.qfsp    +++|*                            DEFAULT IS NO JSN-S.
00182  M01S00181.qfsp    +++|*                JSN LIST CAN HOLD UP TO FIVE JSN-S.
00183  M01S00182.qfsp    +++|*
00184  M01S00183.qfsp    +++|*         MI  =  MACHINE ID. MACHINE ID WILL BE CLEARED
00185  M01S00184.qfsp    +++|*                IF PREVIOUSLY ENTERED.
00186  M01S00185.qfsp    +++|*                            1-2 CHARACTERS.
00187  M01S00186.qfsp    +++|*                            *ALL* - ALL MACHINE ID-S ARE SELECTED.
00188  M01S00187.qfsp    +++|*                            DEFAULT IS CURRENT MACHINE ID.
00189  M01S00188.qfsp    +++|*
00190  M01S00189.qfsp    +++|*         ID  =  IDENTIFIER NUMBER FOR BATCH PRINT AND PUNCH FILES.
00191  M01S00190.qfsp    +++|*                ID=XX-YY    USE ALL ID,S IN SPECIFIED RANGE.
00192  M01S00191.qfsp    +++|*                ID=XX       USE THIS ID ONLY.
00193  M01S00192.qfsp    +++|*                            1-2 NUMERIC DIGITS +RADIX.
00194  M01S00193.qfsp    +++|*                            DEFAULT IS 0-77B.
00195  M01S00194.qfsp    +++|*
00196  M01S00195.qfsp    +++|*         TUI =  DESTINATION USER INDEX FOR REMOTE BATCH PRINT
00197  M01S00196.qfsp    +++|*                AND PUNCH FILES.
00198  M01S00197.qfsp    +++|*                TUI=XXXXXX-YYYYYY  USE ALL INDICES IN SPECIFIED
00199  M01S00198.qfsp    +++|*                                   RANGE.
00200  M01S00199.qfsp    +++|*                TUI=XXXXXX         USE THIS SIZE ONLY.
00201  M01S00200.qfsp    +++|*                            1-6 NUMERIC DIGITS + RADIX.
00202  M01S00201.qfsp    +++|*                            DEFAULT IS 0.  (0=NO TUI SPECIFIED)
00203  M01S00202.qfsp    +++|*
00204  M01S00203.qfsp    +++|*         TF =   DESTINATION FAMILY FOR TERMINAL FOR SELECTING FILES IN
00205  M01S00204.qfsp    +++|*                THE REMOTE BATCH QUEUE.
00206  M01S00205.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00207  M01S00206.qfsp    +++|*                            DEFAULT IS ALL FAMILIES SELECTED.
00208  M01S00207.qfsp    +++|*         FC  =  FORMS CODE.
00209  M01S00208.qfsp    +++|*                TWO FORMATS ARE ACCEPTED.
00210  M01S00209.qfsp    +++|*                FC=F1/F2/F3 SPECIFY FORMS CODE LIST.
00211  M01S00210.qfsp    +++|*                FC=F1-F2    SPECIFY FORMS CODE RANGE.
00212  M01S00211.qfsp    +++|*                            (F2 AND F3 ARE OPTIONAL)
00213  M01S00212.qfsp    +++|*                            (** INDICATES NULL FORMS CODE)
00214  M01S00213.qfsp    +++|*                            DEFAULT IS *ALL*.
00215  M01S00214.qfsp    +++|*
00216  M01S00215.qfsp    +++|*         L   =  FILE NAME TO RECEIVE OUTPUT.
00217  M01S00216.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00218  M01S00217.qfsp    +++|*                            DEFAULT IS OUTPUT.
00219  M01S00218.qfsp    +++|*
00220  M01S00219.qfsp    +++|*         LO = LIST OPTION.
00221  M01S00220.qfsp    +++|*                S = SHORT LIST (DEFAULT).
00222  M01S00221.qfsp    +++|*                F = FULL LIST.
00223  M01S00222.qfsp    +++|*
00224  M01S00223.qfsp    +++|*         TP  =  TYPE OF QUEUES TO DUMP OR MOVE.
00225  M01S00224.qfsp    +++|*                            1 OR 3 CHARACTERS.
00226  M01S00225.qfsp    +++|*                                  A = ACTIVE QUEUED ONLY
00227  M01S00226.qfsp    +++|*                                  I = INACTIVE QUEUES ONLY
00228  M01S00227.qfsp    +++|*                                  ALL = ALL QUEUES
00229  M01S00228.qfsp    +++|*                            DEFAULT IS ALL QUEUE TYPES.
00230  M01S00229.qfsp    +++|*
00231  M01S00230.qfsp    +++|*         FS  =  FILE SIZE IN PRUS.
00232  M01S00231.qfsp    +++|*                MAY TAKE ONE OF TWO FORMS.
00233  M01S00232.qfsp    +++|*                FS=XXXXXX-YYYYYY  USE ALL SIZES IN SPECIFIED RANGE.
00234  M01S00233.qfsp    +++|*                FS=XXXXXX         USE THIS SIZE ONLY.
00235  M01S00234.qfsp    +++|*                            1-6 NUMERIC DIGITS + RADIX.
00236  M01S00235.qfsp    +++|*                            DEFAULT IS 0-777777B.
00237  M01S00236.qfsp    +++|*                            IF 777777B IS SPECIFIED, ALL SIZES LARGER
00238  M01S00237.qfsp    +++|*                            ARE INCLUDED.
00239  M01S00238.qfsp    +++|*
00240  M01S00239.qfsp    +++|*         FN  =  FILENAME FOR DUMP/LOAD FILE.
00241  M01S00240.qfsp    +++|*                            1-7 ALPHANUMERIC CHARACTERS.
00242  M01S00241.qfsp    +++|*                            DEFAULT IS *QFILES*.
00243  M01S00242.qfsp    +++|*
00244  M01S00243.qfsp    +++|*         NF  =  NUMBER OF MEDIA FILES TO SKIP.
00245  M01S00244.qfsp    +++|*                            1-7 NUMERIC CHARACTERS + RADIX.
00246  M01S00245.qfsp    +++|*                            DEFAULT IS 0.
00247  M01S00246.qfsp    +++|*
00248  M01S00247.qfsp    +++|*         SC  =  NUMBER OF QUEUED FILES TO SKIP.
00249  M01S00248.qfsp    +++|*                            1-7 NUMERIC CHARACTERS + RADIX.
00250  M01S00249.qfsp    +++|*                            DEFAULT IS 0.
00251  M01S00250.qfsp    +++|*
00252  M01S00251.qfsp    +++|*         FT  =  DAYFILE TYPE TO TERMINATE.
00253  M01S00252.qfsp    +++|*                            6-7 CHARACTERS.
00254  M01S00253.qfsp    +++|*                                  DAYFILE
00255  M01S00254.qfsp    +++|*                                  ACCOUNT
00256  M01S00255.qfsp    +++|*                                  ERRLOG
00257  M01S00256.qfsp    +++|*                                  MAINLOG
00258  M01S00257.qfsp    +++|*                            DEFAULT IS DAYFILE.
00259  M01S00258.qfsp    +++|*
00260  M01S00259.qfsp    +++|*         NM  = FILE NAME FOR OLD DAYFILE. OVERRIDES
00261  M01S00260.qfsp    +++|*               AUTOMATIC ASSIGNMENT BY SYSTEM.
00262  M01S00261.qfsp    +++|*                            1-5 CHARACTERS.
00263  M01S00262.qfsp    +++|*
00264  M01S00263.qfsp    +++|*
00265  M01S00264.qfsp    +++|*         LA  =  LOWER SECURITY ACCESS LEVEL.
00266  M01S00265.qfsp    +++|*                *UA* MUST ALSO BE SPECIFIED.
00267  M01S00266.qfsp    +++|*                            1-7 CHARACTERS.
00268  M01S00267.qfsp    +++|*                            DEFAULT IS ALL ACCESS LEVELS.
00269  M01S00268.qfsp    +++|*
00270  M01S00269.qfsp    +++|*         UA  =  UPPER SECURITY ACCESS LEVEL.
00271  M01S00270.qfsp    +++|*                *LA* MUST ALSO BE SPECIFIED.
00272  M01S00271.qfsp    +++|*                            1-7 CHARACTERS.
00273  M01S00272.qfsp    +++|*                            DEFAULT IS ALL ACCESS LEVELS.
00274  M01S00273.qfsp    +++|*
00275  M01S00274.qfsp    +++|*         BC  =  BATCH QUEUE TYPE SELECTION.
00276  M01S00275.qfsp    +++|*                            2-5 CHARACTERS.
00277  M01S00276.qfsp    +++|*                                  ALL - ALL QUEUE TYPES
00278  M01S00277.qfsp    +++|*                                  NONE - NO QUEUE TYPES
00279  M01S00278.qfsp    +++|*                                  SF - SPECIAL QUEUE TYPE
00280  M01S00279.qfsp    +++|*                                  IN - INPUT QUEUE TYPE
00281  M01S00280.qfsp    +++|*                                  PH - PUNCH QUEUE TYPE
00282  M01S00281.qfsp    +++|*                                  PU - PUNCH QUEUE TYPE
00283  M01S00282.qfsp    +++|*                                  PL - PLOT QUEUE TYPE
00284  M01S00283.qfsp    +++|*                                  PRINT - ALL PRINT FILES
00285  M01S00284.qfsp    +++|*                                  PR - PRINT QUEUE TYPE-ANY PRINTER
00286  M01S00285.qfsp    +++|*                                  P2 - PRINT QUEUE TYPE-512 PRINTER
00287  M01S00286.qfsp    +++|*                                  LR - PRINT QUEUE TYPE-580-12 PRINTER
00288  M01S00287.qfsp    +++|*                                  LS - PRINT QUEUE TYPE-580-16 PRINTER
00289  M01S00288.qfsp    +++|*                                  LT - PRINT QUEUE TYPE-580-20 PRINTER
00290  M01S00289.qfsp    +++|*                                  LX - PRINT QUEUE TYPE-5870 NIP
00291  M01S00290.qfsp    +++|*                                  LY - PRINT QUEUE TYPE-5970 NIP
00292  M01S00291.qfsp    +++|*                                  WT - WAIT QUEUE - TERMINAL OUTPUT
00293  M01S00292.qfsp    +++|*                QUEUE TYPE WILL BE CLEARED IF PREVIOUSLY SELECTED.
00294  M01S00293.qfsp    +++|*
00295  M01S00294.qfsp    +++|*         RB  =  REMOTE BATCH QUEUE TYPE SELECTION.
00296  M01S00295.qfsp    +++|*                            SAME AS *BC*.
00297  M01S00296.qfsp    +++|*
00298  M01S00297.qfsp    +++|*         OP  =  OPTION.
00299  M01S00298.qfsp    +++|*                            1-2 CHARACTERS.
00300  M01S00299.qfsp    +++|*                                QLOAD OPTIONS.
00301  M01S00300.qfsp    +++|*                                  A-LOAD AND ACTIVATE
00302  M01S00301.qfsp    +++|*                                  I-LOAD AND INACTIVATE
00303  M01S00302.qfsp    +++|*                                QMOVE OPTIONS.
00304  M01S00303.qfsp    +++|*                                  A-LEAVE AS ACTIVE QUEUE FILES.
00305  M01S00304.qfsp    +++|*                                  I-LEAVE AS INACTIVE QUEUE FILES.
00306  M01S00305.qfsp    +++|*                                QREC OPTIONS.
00307  M01S00306.qfsp    +++|*                                  RP-REQUEUE SPECIFIED FILES, PURGE
00308  M01S00307.qfsp    +++|*                                     OTHERS
00309  M01S00308.qfsp    +++|*                                  RI-REQUEUE SPECIFIED FILES, IGNORE
00310  M01S00309.qfsp    +++|*                                     OTHERS
00311  M01S00310.qfsp    +++|*                                  PI-PURGE SPECIFIED FILES, IGNORE
00312  M01S00311.qfsp    +++|*                                     OTHERS.
00313  M01S00312.qfsp    +++|*                                  DI-DEQUEUE SPECIFIED FILES, IGNORE
00314  M01S00313.qfsp    +++|*                                     OTHERS.
00315  M01S00314.qfsp    +++|*                                DFTERM OPTIONS.
00316  M01S00315.qfsp    +++|*                                  A-TERMINATE ACTIVE DAYFILE
00317  M01S00316.qfsp    +++|*                                  I-TERMINATE INACTIVE DAYFILE
00318  M01S00317.qfsp    +++|*                                QALTER OPTIONS.
00319  M01S00318.qfsp    +++|*                                  BC-ALTER TO LOCAL BATCH.
00320  M01S00319.qfsp    +++|*                                  EI-ALTER TO REMOTE BATCH.
00321  M01S00320.qfsp    +++|*                                  NC-DO NOT CHANGE FILE DESTINATION.
00322  M01S00321.qfsp    +++|*                                  PR-PURGE FILES.
00323  M01S00322.qfsp    +++|*
00324  M01S00323.qfsp    +++|*         NDC =  NEW DEVICE CODES.
00325  M01S00324.qfsp    +++|*                            DEVICE CODES INCLUDE-
00326  M01S00325.qfsp    +++|*                                  NONE = NO DEVICE CODE SPECIFIED
00327  M01S00326.qfsp    +++|*                                  PR = ANY PRINTER
00328  M01S00327.qfsp    +++|*                                  LP = ANY PRINTER
00329  M01S00328.qfsp    +++|*                                  P2 = 512 PRINTER
00330  M01S00329.qfsp    +++|*                                  LR = 580-16 PRINTER
00331  M01S00330.qfsp    +++|*                                  LS = 580-16 PRINTER
00332  M01S00331.qfsp    +++|*                                  LT = 580-20 PRINTER
00333  M01S00332.qfsp    +++|*                                  LX = 5870 NIP
00334  M01S00333.qfsp    +++|*                                  LY = 5970 NIP
00335  M01S00334.qfsp    +++|*
00336  M01S00335.qfsp    +++|*         NEC =  NEW EXTERNAL CHARACTERISTICS.
00337  M01S00336.qfsp    +++|*                            EXTERNAL CHARACTERISTICS INCLUDE -
00338  M01S00337.qfsp    +++|*                                  T6 = TRANSPARENT 6 BIT
00339  M01S00338.qfsp    +++|*                                  T8 = TRANSPARENT 8 BIT
00340  M01S00339.qfsp    +++|*                                  A4 = ASCII 48-CHARACTER
00341  M01S00340.qfsp    +++|*                                  B4 = BCD 48 CHARACTER
00342  M01S00341.qfsp    +++|*                                  B6 = BCD 63/4 CHARACTER
00343  M01S00342.qfsp    +++|*                                  A6 = ASCII 64-CHARACTER
00344  M01S00343.qfsp    +++|*                                  A9 = ASCII 96 CHARACTER
00345  M01S00344.qfsp    +++|*                                  PB = SB-SYSTEM BINARY
00346  M01S00345.qfsp    +++|*                                  P8 = 80 COLUMN BINARY
00347  M01S00346.qfsp    +++|*                                  PH = O26 PUNCH
00348  M01S00347.qfsp    +++|*                                  P9 = O29 PUNCH
00349  M01S00348.qfsp    +++|*                                  AS = ASCII PUNCH
00350  M01S00349.qfsp    +++|*
00351  M01S00350.qfsp    +++|*         NDF =  NEW DESTINATION FAMILY NAME.
00352  M01S00351.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00353  M01S00352.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00354  M01S00353.qfsp    +++|*                            ENTERED.
00355  M01S00354.qfsp    +++|*                            DEFAULT IS NO FAMILY SPECIFIED.
00356  M01S00355.qfsp    +++|*
00357  M01S00356.qfsp    +++|*         NUN =  NEW DESTINATION USER NAME.
00358  M01S00357.qfsp    +++|*                            1-7 ALPHA-NUMERIC CHARACTERS.
00359  M01S00358.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00360  M01S00359.qfsp    +++|*                            ENTERED.
00361  M01S00360.qfsp    +++|*                            DEFAULT IS NO USER SPECIFIED.
00362  M01S00361.qfsp    +++|*
00363  M01S00362.qfsp    +++|*         NID =  NEW FILE IDENTIFIER.
00364  M01S00363.qfsp    +++|*                            1-2 NUMERIC DIGITS + RADIX.
00365  M01S00364.qfsp    +++|*                            (0 - 67B)
00366  M01S00365.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00367  M01S00366.qfsp    +++|*                            ENTERED.
00368  M01S00367.qfsp    +++|*                            DEFAULT IS NO ID SPECIFIED.
00369  M01S00368.qfsp    +++|*
00370  M01S00369.qfsp    +++|*         NPR =  NEW PRIORITY FOR OUTPUT FILES.
00371  M01S00370.qfsp    +++|*                            1-4 NUMERIC DIGITS + RADIX.
00372  M01S00371.qfsp    +++|*                            (0 - 7760B)
00373  M01S00372.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00374  M01S00373.qfsp    +++|*                            ENTERED.
00375  M01S00374.qfsp    +++|*                            DEFAULT IS NO PRIORITY SPECIFIED.
00376  M01S00375.qfsp    +++|*
00377  M01S00376.qfsp    +++|*         NFC =  NEW FORMS CODE FOR OUTPUT FILES.
00378  M01S00377.qfsp    +++|*                            2 ALPHANUMERIC CHARACTERS.
00379  M01S00378.qfsp    +++|*                            (** = NULL FORMS CODE)
00380  M01S00379.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00381  M01S00380.qfsp    +++|*                            ENTERED.
00382  M01S00381.qfsp    +++|*                            DEFAULT IS NO FORMS CODE SPECIFIED.
00383  M01S00382.qfsp    +++|*
00384  M01S00383.qfsp    +++|*         NRC = NEW REPEAT COUNT FOR OUTPUT.
00385  M01S00384.qfsp    +++|*                            1-2 DIGITS + RADIX.
00386  M01S00385.qfsp    +++|*                            (0-37B)
00387  M01S00386.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00388  M01S00387.qfsp    +++|*                            ENTERED.
00389  M01S00388.qfsp    +++|*                            DEFAULT IS NO REPEAT COUNT SPECIFIED.
00390  M01S00389.qfsp    +++|*
00391  M01S00390.qfsp    +++|*         NLD = NEW DESTINATION LOGICAL IDENTIFIER
00392  M01S00391.qfsp    +++|*               FOR REMOTE LINKED FILES.
00393  M01S00392.qfsp    +++|*                            3 ALPHANUMERIC CHARACTERS.
00394  M01S00393.qfsp    +++|*                            *0* - SPECIFIES NEW LID IS TO BE BLANK.
00395  M01S00394.qfsp    +++|*                            DEFAULT IS NO DESTINATION LID.
00396  M01S00395.qfsp    +++|*
00397  M01S00396.qfsp    +++|*         NAL =  NEW ACCESS LEVEL.  USER MUST BE VALIDATED FOR
00398  M01S00397.qfsp    +++|*                SECURITY ADMINISTRATOR PRIVILEGES IN ORDER TO
00399  M01S00398.qfsp    +++|*                SPECIFY *NAL*.
00400  M01S00399.qfsp    +++|*                            1-7 CHARACTERS.
00401  M01S00400.qfsp    +++|*                            ENTRY WILL BE CLEARED IF PREVIOUSLY
00402  M01S00401.qfsp    +++|*                            SPECIFIED.
00403  M01S00402.qfsp    +++|*                            DEFAULT IS NO ACCESS LEVEL SPECIFIED.
00404  M01S00403.qfsp    +++|          SPACE  4
00405  M01S00404.qfsp    +++|***       K - DISPLAY COMMANDS.
00406  M01S00405.qfsp    +++|*
00407  M01S00406.qfsp    +++|*         THE FOLLOWING COMMANDS ARE LEGAL FROM THE K - DISPLAY ONLY.
00408  M01S00407.qfsp    +++|*
00409  M01S00408.qfsp    +++|*         GO.    PROCEED WITH PROCESSING USING DIRECTIVES ENTERED.
00410  M01S00409.qfsp    +++|*                K - DISPLAY WILL BE SET TO THE DEFAULT VALUES WHEN
00411  M01S00410.qfsp    +++|*                CONTROL IS RETURNED.
00412  M01S00411.qfsp    +++|*
00413  M01S00412.qfsp    +++|*         STOP.  TERMINATE INPUT. END RUN.
00414  M01S00413.qfsp    +++|*
00415  M01S00414.qfsp    +++|*         RESET. RESET PARAMETERS TO DEFAULT VALUES.
00416  M01S00415.qfsp    +++|*
00417  M01S00416.qfsp    +++|*         LIST.  DISPLAY LIST OF INACTIVE QUEUES/PERMANENTIZED DAYFILES
00418  M01S00417.qfsp    +++|*                ON RIGHT SCREEN. (QREC, DFTERM ONLY).
00419  M01S00418.qfsp    +++|*
00420  M01S00419.qfsp    +++|*         LIST=ORD.  DISPLAY DETAILED LIST FOR QUEUED FILE AT QFT
00421  M01S00420.qfsp    +++|*                ORDINAL, ORD.  (QALTER AND QFTLIST ONLY).
00422  M01S00421.qfsp    +++|*
00423  M01S00422.qfsp    +++|*         +      PAGE LEFT SCREEN K-DISPLAY FORWARD.
00424  M01S00423.qfsp    +++|*
00425  M01S00424.qfsp    +++|*         -      PAGE LEFT SCREEN K-DISPLAY BACKWARD.
00426  M01S00425.qfsp    +++|*
00427  M01S00426.qfsp    +++|*         (      PAGE RIGHT SCREEN K-DISPLAY FORWARD.
00428  M01S00427.qfsp    +++|*
00429  M01S00428.qfsp    +++|*         )      PAGE RIGHT SCREEN K-DISPLAY BACKWARD.
00430  M01S00429.qfsp    +++|*
00431  M01S00430.qfsp    +++|*         CLEAR. SET RIGHT SCREEN TO MAIN QFSP RIGHT SCREEN DISPLAY.
00432  M01S00431.qfsp    +++|*                SET LEFT SCREEN TO FIRST PAGE OF K-DISPLAY.
00433  M01S00432.qfsp    +++|*
00434  M01S00433.qfsp    +++|*         OUT.   WRITE OUTPUT GENERATED BY LIST COMMAND TO OUTPUT
00435  M01S00434.qfsp    +++|*                FILE AND RELEASE FILE TO PRINTER.
00436  M01S00435.qfsp    +++|*
00437  M01S00436.qfsp    +++|*         FAMILY.  IF ENTERED, ENTRIES WILL BE MADE IN THE *FOT* FOR
00438  M01S00437.qfsp    +++|*                THE INACTIVE FAMILIES AND THE FILES WILL BE QUEUED.
00439  M01S00438.qfsp    +++|*
00440  M01S00439.qfsp    +++|*         REWIND.  IF ENTERED, DUMP/LOAD FILE WILL BE REWOUND WHEN
00441  M01S00440.qfsp    +++|*                *GO* COMMAND IS ENTERED. (QDUMP AND QLOAD ONLY).
00442  M01S00441.qfsp    +++|*
00443  M01S00442.qfsp    +++|*         ERROR. TOGGLE STATUS OF ERRORED FILE PROCESSING.  STATUS
00444  M01S00443.qfsp    +++|*                SET MEANS TO PERFORM CURRENT OPERATION ON ALL FILES,
00445  M01S00444.qfsp    +++|*                INCLUDING THOSE ON WHICH AN UNRECOVERABLE READ OR
00446  M01S00445.qfsp    +++|*                WRITE ERROR HAS OCCURED.  (QDUMP, QLOAD, QMOVE ONLY).
00447  M01S00446.qfsp    +++|*
00448  M01S00447.qfsp    +++|*         LID.   IF ENTERED, THE LID WILL BE ADDED TO THE LID
00449  M01S00448.qfsp    +++|*                TABLE (IF IT IS NOT FULL) AND THE FILES WILL
00450  M01S00449.qfsp    +++|*                BE QUEUED.  (QLOAD, QMOVE, QREC ONLY).
00451  M01S00450.qfsp    +++|          SPACE  4
00452  M01S00451.qfsp    +++|***       DAYFILE MESSAGES.
00453  M01S00452.qfsp    +++|*
00454  M01S00453.qfsp    +++|*         * USER ACCESS NOT VALID.*
00455  M01S00454.qfsp    +++|*                QFSP HAS BEEN CALLED FROM A NON-SYSTEM ORIGIN JOB.
00456  M01S00455.qfsp    +++|*
00457  M01S00456.qfsp    +++|*         * COMMAND ARGUMENT ERROR.*
00458  M01S00457.qfsp    +++|*                INCORRECT COMMAND ARGUMENTS. CORRECT AND RERUN.
00459  M01S00458.qfsp    +++|*
00460  M01S00459.qfsp    +++|*         * QUEUE FILE UTILITY COMPLETE.* - SELF EXPLANATORY.
00461  M01S00460.qfsp    +++|          SPACE  4
00462  M01S00461.qfsp    +++|***       K-DISPLAY OPERATOR MESSAGES.
00463  M01S00462.qfsp    +++|*
00464  M01S00463.qfsp    +++|*         THE PO=N PARAMETER WILL BE IGNORED IF THE JOB IS SYSTEM
00465  M01S00464.qfsp    +++|*         ORIGIN AND ONE OF THE ERRORS BELOW IS ENCOUNTERED. THE
00466  M01S00465.qfsp    +++|*         OPERATOR WILL BE ABLE TO CORRECT THE ERROR USING THE
00467  M01S00466.qfsp    +++|*         K-DISPLAY. ALL DIRECTIVES AFTER THE DIRECTIVE IN ERROR
00468  M01S00467.qfsp    +++|*         WILL BE IGNORED. IF AN ERROR OCCURS FROM A NON-SYSTEM
00469  M01S00468.qfsp    +++|*         ORIGIN JOB, THE JOB WILL BE ABORTED.
00470  M01S00469.qfsp    +++|*
00471  M01S00470.qfsp    +++|*
00472  M01S00471.qfsp    +++|*         **** ERROR IN ALPHANUMERIC DATA.
00473  M01S00472.qfsp    +++|*                CAN INDICATE -
00474  M01S00473.qfsp    +++|*                1. NO DATA PRESENT.
00475  M01S00474.qfsp    +++|*                2. INCORRECT SEPARATOR FOLLOWING DATA.
00476  M01S00475.qfsp    +++|*
00477  M01S00476.qfsp    +++|*         **** ERROR IN DATE.
00478  M01S00477.qfsp    +++|*                CAN INDICATE -
00479  M01S00478.qfsp    +++|*                1. DATE ENTRY IS NOT IN CORRECT FORMAT.
00480  M01S00479.qfsp    +++|*                2. INCORRECT SEPARATOR FOLLOWING DATE.
00481  M01S00480.qfsp    +++|*                3. DATE ENTERED IS EARLIER THAN 70/01/01.
00482  M01S00481.qfsp    +++|*                4. ENTERED DATE IS NOT VALID. (E.G. 76/04/44.)
00483  M01S00482.qfsp    +++|*
00484  M01S00483.qfsp    +++|*         **** ERROR IN DEVICE NUMBER.
00485  M01S00484.qfsp    +++|*                CAN INDICATE -
00486  M01S00485.qfsp    +++|*                1. NO FAMILY NAME HAS BEEN SPECIFIED.
00487  M01S00486.qfsp    +++|*                2. DEVICE NUMBER IS NOT IN SPECIFIED FAMILY.
00488  M01S00487.qfsp    +++|*                3. INCORRECT SEPARATOR FOLLOWS DEVICE NUMBER.
00489  M01S00488.qfsp    +++|*
00490  M01S00489.qfsp    +++|*         **** ERROR IN FAMILY NAME.
00491  M01S00490.qfsp    +++|*                CAN INDICATE -
00492  M01S00491.qfsp    +++|*                1. SPECIFIED FAMILY CAN NOT BE FOUND.
00493  M01S00492.qfsp    +++|*                2. INCORRECT SEPARATOR FOLLOWS FAMILY NAME.
00494  M01S00493.qfsp    +++|*
Line S00494 Modification History
M01 (Added by) qfsp
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00495  M02S00494.271l716 ---|*         **** ERROR IN SELECTED QUEUE TYPE.
00496  M01S00001.271l716 +++|*         **** ERROR IN SELECTED FILE TYPE.
00497  M01S00495.qfsp    +++|*                CAN INDICATE -
Line S00496 Modification History
M01 (Added by) qfsp
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00498  M02S00496.271l716 ---|*                1. QUEUE TYPE SELECTION CAN NOT BE RECOGNIZED.
Line S00497 Modification History
M01 (Added by) qfsp
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00499  M02S00497.271l716 ---|*                2. INCORRECT SEPARATOR FOLLOWS QUEUE TYPE.
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  M01S00498.qfsp    +++|*
00505  M01S00499.qfsp    +++|*         **** ERROR IN IDENTIFIER.
00506  M01S00500.qfsp    +++|*                INCORRECT DIRECTIVE OR COMMAND HAS BEEN ENTERED, OR
00507  M01S00501.qfsp    +++|*                DIRECTIVE IS INCORRECT FOR SELECTED UTILITY.
00508  M01S00502.qfsp    +++|*
00509  M01S00503.qfsp    +++|*         **** INCORRECT ENTRY.
00510  M01S00504.qfsp    +++|*                PROCESSOR COULD NOT RECOGNIZE SPECIFIED
00511  M01S00505.qfsp    +++|*                UTILITY OPTION.
00512  M01S00506.qfsp    +++|*
00513  M01S00507.qfsp    +++|*         **** ERROR IN FILE SIZE RANGE.
00514  M01S00508.qfsp    +++|*                CAN INDICATE -
00515  M01S00509.qfsp    +++|*                1. FILE SIZE IS NOT NUMERIC.
00516  M01S00510.qfsp    +++|*                2. FILE SIZE RANGE DOES NOT SATISFY THE
00517  M01S00511.qfsp    +++|*                   FOLLOWING CONDITIONS.
00518  M01S00512.qfsp    +++|*                       0 .LE. MIN FS .LE. MAX FS .LE. 777777B
00519  M01S00513.qfsp    +++|*                3. INCORRECT SEPARATOR FOLLOWS LAST SIZE.
00520  M01S00514.qfsp    +++|*
Line S00515 Modification History
M01 (Added by) qfsp
M02 (Updated by) 271l716
Seq #  *Modification Id* Act 
----------------------------+
00521  M02S00515.271l716 ---|*         **** JOB SEQUENCE NUMBER LIST FULL.
00522  M01S00006.271l716 +++|*         **** JSN LIST FULL.
00523  M01S00516.qfsp    +++|*                JSN LIST DOES NOT HAVE ROOM FOR SPECIFIED JSN.
00524  M01S00517.qfsp    +++|*
00525  M01S00518.qfsp    +++|*         **** ERROR IN NUMERIC DATA.
00526  M01S00519.qfsp    +++|*                CAN INDICATE -
00527  M01S00520.qfsp    +++|*                1. NO DATA PRESENT.
00528  M01S00521.qfsp    +++|*                2. NUMERIC DATA NOT NUMERIC.
00529  M01S00522.qfsp    +++|*                3. NUMERIC DATA EXCEEDS MAXIMUM VALUE.
00530  M01S00523.qfsp    +++|*
00531  M01S00524.qfsp    +++|*         **** ERROR IN USER INDEX RANGE.
00532  M01S00525.qfsp    +++|*                CAN INDICATE -
00533  M01S00526.qfsp    +++|*                1. USER INDEX WAS NOT NUMERIC DATA.
00534  M01S00527.qfsp    +++|*                2. USER INDEX RANGE DOES NOT SATISFY THE
00535  M01S00528.qfsp    +++|*                   FOLLOWING CONDITIONS.
00536  M01S00529.qfsp    +++|*                       0 .LE. MIN UI .LE. MAX UI .LE. 377777B
00537  M01S00530.qfsp    +++|*                3. INCORRECT SEPARATOR FOLLOWS LAST USER INDEX.
00538  M01S00531.qfsp    +++|*
00539  M01S00532.qfsp    +++|*         **** ERROR IN ID RANGE.
00540  M01S00533.qfsp    +++|*                CAN INDICATE -
00541  M01S00534.qfsp    +++|*                1. IDENTIFIER NUMBER IS NOT NUMERIC.
00542  M01S00535.qfsp    +++|*                2. ID RANGE DOES NOT SATISFY THE
00543  M01S00536.qfsp    +++|*                   FOLLOWING CONDITIONS.
00544  M01S00537.qfsp    +++|*                       0 .LE. MIN ID .LE. MAX ID .LE. 67B
00545  M01S00538.qfsp    +++|*                3. INCORRECT SEPARATOR FOLLOWS ID.
00546  M01S00539.qfsp    +++|*
00547  M01S00540.qfsp    +++|*         **** FILE NAME CONFLICT.
00548  M01S00541.qfsp    +++|*                CAN INDICATE-
00549  M01S00542.qfsp    +++|*                1. AN ATTEMPT TO USE A RESERVED FILE NAME WAS MADE.
00550  M01S00543.qfsp    +++|*                   RESERVED FILE NAMES INCLUDE *IQF*, *NIQFT*, *MIQFT*
00551  M01S00544.qfsp    +++|*                   AND *SCR*.
00552  M01S00545.qfsp    +++|*                2. THE NAMES SPECIFIED BY THE *I* AND *L*
00553  M01S00546.qfsp    +++|*                   DIRECTIVES ARE IDENTICAL.
00554  M01S00547.qfsp    +++|*
00555  M01S00548.qfsp    +++|*         **** FAMILY NAME MUST BE ENTERED.
00556  M01S00549.qfsp    +++|*                A *DN* DIRECTIVE HAS BEEN ENTERED BEFORE THE
00557  M01S00550.qfsp    +++|*                FAMILY NAME (*FM* OR *DF*) HAS BEEN
00558  M01S00551.qfsp    +++|*                SPECIFIED. TO CORRECT, ENTER A SPECIFIC
00559  M01S00552.qfsp    +++|*                FAMILY NAME AND REENTER THE DEVICE NUMBER.
00560  M01S00553.qfsp    +++|*
00561  M01S00554.qfsp    +++|*         **** DESTINATION FAMILY NOT SPECIFIED.
00562  M01S00555.qfsp    +++|*                A *GO* COMMAND HAS BEEN ENTERED BEFORE THE
00563  M01S00556.qfsp    +++|*                FAMILY NAME (FM) OR DESTINATION FAMILY (DF) HAVE
00564  M01S00557.qfsp    +++|*                BEEN SPECIFIED. TO CORRECT, ENTER MISSING FAMILY
00565  M01S00558.qfsp    +++|*                AND TYPE *GO*.
00566  M01S00559.qfsp    +++|*
00567  M01S00560.qfsp    +++|*         **** SYNTAX ERROR IN LID.
00568  M01S00561.qfsp    +++|*                AN INCORRECT SEPARATOR IS PRESENT, NO PARAMETER
00569  M01S00562.qfsp    +++|*                WAS SPECIFIED, OR THERE WERE NOT 3 CHARACTERS
00570  M01S00563.qfsp    +++|*                SPECIFIED.
00571  M01S00564.qfsp    +++|*
00572  M01S00565.qfsp    +++|*         **** LID NOT IN TABLE.
00573  M01S00566.qfsp    +++|*                AN *NLD* (NEW DESTINATION LOGICAL IDENTIFIER) WAS
00574  M01S00567.qfsp    +++|*                SPECIFIED THAT WAS NOT IN THE LID TABLE.
00575  M01S00568.qfsp    +++|*
00576  M01S00569.qfsp    +++|*         **** FAMILY FOR TERMINAL MUST BE ENTERED.
00577  M01S00570.qfsp    +++|*                THE *TUI* DIRECTIVE HAS BEEN ENTERED BEFORE THE
00578  M01S00571.qfsp    +++|*                *TF* DIRECTIVE.  TO CORRECT, ENTER A DESTINATION
00579  M01S00572.qfsp    +++|*                FAMILY FOR TERMINAL (*TF* DIRECTIVE) AND REENTER
00580  M01S00573.qfsp    +++|*                A DESTINATION USER INDEX (*TUI* PARAMETER).
00581  M01S00574.qfsp    +++|*
00582  M01S00575.qfsp    +++|*         **** ERROR IN ACCESS LEVEL.
00583  M01S00576.qfsp    +++|*                CAN INDICATE -
00584  M01S00577.qfsp    +++|*                1.  NO ACCESS LEVEL IS SPECIFIED.
00585  M01S00578.qfsp    +++|*                2.  INCORRECT SEPARATOR FOLLOWS ACCESS LEVEL.
00586  M01S00579.qfsp    +++|*
00587  M01S00580.qfsp    +++|*         **** LA AND UA BOTH REQUIRED.
00588  M01S00581.qfsp    +++|*                WHEN SPECIFYING ACCESS LEVELS, BOTH THE LOWER (LA)
00589  M01S00582.qfsp    +++|*                AND UPPER (UA) MUST BE SPECIFIED.
00590  M01S00583.qfsp    +++|*
00591  M01S00584.qfsp    +++|*         **** ACCESS LEVEL OUT OF RANGE.
00592  M01S00585.qfsp    +++|*                THE ACCESS LEVEL SELECTED WAS NOT WITHIN
00593  M01S00586.qfsp    +++|*                THE SYSTEM LIMITS.
00594  M01S00587.qfsp    +++|*
00595  M01S00588.qfsp    +++|*         **** LA VALUE LARGER THAN UA.
00596  M01S00589.qfsp    +++|*                THE VALUE ASSOCIATED WITH LOWER (LA) ACCESS LEVEL
00597  M01S00590.qfsp    +++|*                MUST BE LESS THAN OR EQUAL TO THE UPPER (UA) VALUE.
00598  M01S00591.qfsp    +++|*
00599  M01S00592.qfsp    +++|*         **** UNKNOWN ACCESS LEVEL NAME.
00600  M01S00593.qfsp    +++|*                THE ACCESS LEVEL NAME SELECTED IS NOT A DEFINED NAME.
00601  M01S00594.qfsp    +++|*
00602  M01S00595.qfsp    +++|*         **** PAGING COMMAND IGNORED.
00603  M01S00596.qfsp    +++|*                THE ENTERED PAGING COMMAND IS DISABLED WHILE THE LIST
00604  M01S00597.qfsp    +++|*                K-DISPLAY IS ACTIVE.
00605  M01S00598.qfsp    +++|          TITLE  MACROS.
00606  M01S00599.qfsp    +++|          SPACE  4
00607  M01S00600.qfsp    +++|**        BITCON - GENERATE BIT STRING FOR SPECIAL CHARACTERS.
00608  M01S00601.qfsp    +++|*
00609  M01S00602.qfsp    +++|*         BITCON GENERATES A CONSTANT WITH BIT POSITIONS SET
00610  M01S00603.qfsp    +++|*         WHICH CORRESPOND WITH THE SPECIAL CHARACTERS SUPPLIED
00611  M01S00604.qfsp    +++|*         BIASED BY (-45B).
00612  M01S00605.qfsp    +++|*
00613  M01S00606.qfsp    +++|* NAME    BITCON P
00614  M01S00607.qfsp    +++|*                *P* SERIES OF SPECIAL CHARACTERS SEPARATED BY COMMAS
00615  M01S00608.qfsp    +++|*                    AND DELIMITED BY PARENTHESIS.
00616  M01S00609.qfsp    +++|
00617  M01S00610.qfsp    +++|
00618  M01S00611.qfsp    +++|          MACRO  BITCON,NAME,P
00619  M01S00612.qfsp    +++|          LOCAL  A,B
00620  M01S00613.qfsp    +++| A        MICRO  1,,
00621  M01S00614.qfsp    +++|          IRP    P
00622  M01S00615.qfsp    +++| B        DECMIC 1R_P-1R+
00623  M01S00616.qfsp    +++| A        MICRO  1,, "A"+1S"B"
00624  M01S00617.qfsp    +++|          IRP
00625  M01S00618.qfsp    +++| NAME     CON    "A"
00626  M01S00619.qfsp    +++|          ENDM
00627  M01S00620.qfsp    +++|          SPACE  4
00628  M01S00621.qfsp    +++|**        IENTRY - GENERATE INPUT ENTRY TABLE ENTRY.
00629  M01S00622.qfsp    +++|*
00630  M01S00623.qfsp    +++|*         IENTRY I,F,A,P
00631  M01S00624.qfsp    +++|*                I = IDENTIFIER.
00632  M01S00625.qfsp    +++|*                F = PROCESSOR INFORMATION.
00633  M01S00626.qfsp    +++|*                A = ARGUMENT TABLE INDEX.
00634  M01S00627.qfsp    +++|*                P = PROCESSOR INDEX.
00635  M01S00628.qfsp    +++|
00636  M01S00629.qfsp    +++|
00637  M01S00630.qfsp    +++| IENTRY   MACRO  I,F,A,P
00638  M01S00631.qfsp    +++|          LOCAL  B
00639  M01S00632.qfsp    +++| B        MICRO  1,3,$I$
00640  M01S00633.qfsp    +++|          VFD    18/0L"B",18/F,12/0,6/A,6/P
00641  M01S00634.qfsp    +++|          ENDM
00642  M01S00635.qfsp    +++|          SPACE  4
00643  M01S00636.qfsp    +++|**        KIND - GENERATE K-DISPLAY INDEX TABLE ENTRY.
00644  M01S00637.qfsp    +++|*
00645  M01S00638.qfsp    +++|*         KIND   DD,DL,DM,DQ,DF,DN.
00646  M01S00639.qfsp    +++|*                DD = QDUMP K-DISPLAY LINE INDEX.
00647  M01S00640.qfsp    +++|*                DL = QLOAD K-DISPLAY LINE INDEX.
00648  M01S00641.qfsp    +++|*                DM = QMOVE K-DISPLAY LINE INDEX.
00649  M01S00642.qfsp    +++|*                DQ = QREC K-DISPLAY LINE INDEX.
00650  M01S00643.qfsp    +++|*                DF = DAYFILE K-DISPLAY LINE INDEX.
00651  M01S00644.qfsp    +++|*                DN = QFTLIST/QALTER K-DISPLAY LINE INDEX.
00652  M01S00645.qfsp    +++|*                NULL = DIRECTIVE NOT USED BY UTILITY.
00653  M01S00646.qfsp    +++|
00654  M01S00647.qfsp    +++|
00655  M01S00648.qfsp    +++| KIND     MACRO  A,B,C,D,E,F
00656  M01S00649.qfsp    +++|          VFD    18/A,18/B,18/C,6/0
00657  M01S00650.qfsp    +++|          VFD    18/D,18/E,18/F,6/0
00658  M01S00651.qfsp    +++|          ENDM
00659  M01S00652.qfsp    +++| MASK     SPACE  4,10
00660  M01S00653.qfsp    +++|**        MASK - GENERATE DIRECTIVE MASK.
00661  M01S00654.qfsp    +++|*
00662  M01S00655.qfsp    +++|*         MASK   (A,B,C,...,N)
00663  M01S00656.qfsp    +++|*                BITS 59-A, 59-B, 59-C,...,59-N ARE SET.
00664  M01S00657.qfsp    +++|
00665  M01S00658.qfsp    +++|
00666  M01S00659.qfsp    +++| MASK     MACRO  A
00667  M01S00660.qfsp    +++|          IRP    A
00668  M01S00661.qfsp    +++|          POS    60-A
00669  M01S00662.qfsp    +++|          VFD    1/1
00670  M01S00663.qfsp    +++|          IRP
00671  M01S00664.qfsp    +++|          POS    1
00672  M01S00665.qfsp    +++|          BSS    0
00673  M01S00666.qfsp    +++|          ENDM
00674  M01S00667.qfsp    +++| TABLE    SPACE  4
00675  M01S00668.qfsp    +++|**        TABLE - GENERATE TABLE ENTRY.
00676  M01S00669.qfsp    +++|*
00677  M01S00670.qfsp    +++|*         TABLE  I,N
00678  M01S00671.qfsp    +++|*
00679  M01S00672.qfsp    +++|*         ENTRY  I = K-DISPLAY INPUT ENTRY.
00680  M01S00673.qfsp    +++|*                N = INTERNAL IDENTIFIER NUMBER.
00681  M01S00674.qfsp    +++|*
00682  M01S00675.qfsp    +++|*         EXIT   ONE WORD GENERATED IN FOLLOWING FORMAT -
00683  M01S00676.qfsp    +++|*                42/ I , 18/ N
00684  M01S00677.qfsp    +++|
00685  M01S00678.qfsp    +++|
00686  M01S00679.qfsp    +++| TABLE    MACRO  I,N
00687  M01S00680.qfsp    +++|          LOCAL  A
00688  M01S00681.qfsp    +++|          IFC    NE,$I$*$
00689  M01S00682.qfsp    +++| A        MICRO  1,7,$I$
00690  M01S00683.qfsp    +++|          VFD    42/0L"A",18/N
00691  M01S00684.qfsp    +++|          ELSE
00692  M01S00685.qfsp    +++|          VFD    42/1L*,18/7
00693  M01S00686.qfsp    +++|          ENDIF
00694  M01S00687.qfsp    +++|          ENDM
00695  M01S00688.qfsp    +++|          SPACE  4
00696  M01S00689.qfsp    +++|**        COMMON DECKS.
00697  M01S00690.qfsp    +++|
00698  M01S00691.qfsp    +++|*CALL     COMCMAC
00699  M01S00692.qfsp    +++|*CALL     COMCCMD
00700  M01S00693.qfsp    +++|*CALL     COMCDCM
00701  M01S00694.qfsp    +++|*CALL     COMCDCP
00702  M01S00695.qfsp    +++|*CALL     COMSIOQ
00703  M01S00696.qfsp    +++|*CALL     COMSJIO
00704  M01S00697.qfsp    +++|*CALL     COMSMLS
00705  M01S00698.qfsp    +++|*CALL     COMSMSC
00706  M01S00699.qfsp    +++|*CALL     COMSPRD
00707  M01S00700.qfsp    +++|*CALL     COMSSFM
00708  M01S00701.qfsp    +++|*CALL     COMSSSD
00709  M01S00702.qfsp    +++|*CALL     COMSSSJ
00710  M01S00703.qfsp    +++|          LIST   X
00711  M01S00704.qfsp    +++|*CALL     COMSQFS
00712  M01S00705.qfsp    +++|          LIST   -X
00713  M01S00706.qfsp    +++|          SPACE  4
00714  M01S00707.qfsp    +++|**        GENERAL EQUATES.
00715  M01S00708.qfsp    +++|
00716  M01S00709.qfsp    +++|
00717  M01S00710.qfsp    +++| NOQT     EQU    12          NUMBER OF QUEUE TYPES
00718  M01S00711.qfsp    +++| NSCI     EQU    80          NUMBER OF CHARACTERS TO SCAN ON INPUT
00719  M01S00712.qfsp    +++|          TITLE  TABLES.
00720  M01S00713.qfsp    +++|          ORG    120B
00721  M01S00714.qfsp    +++|
Line S00715 Modification History
M01 (Added by) qfsp
M02 (Updated by) ns2570
Seq #  *Modification Id* Act 
----------------------------+
00722  M02S00715.ns2570  ---|**        WORKING STORAGE.
00723  M01S00001.ns2570  +++|*         WORKING STORAGE (ANY CHANGES TO CELLS REFERENCED BY
00724  M01S00002.ns2570  +++|*         DEFINITIONS IN *COMSQFS* MUST BE REFLECTED THERE).
00725  M01S00716.qfsp    +++|
00726  M01S00717.qfsp    +++|
00727  M01S00718.qfsp    +++| FWA      BSS    0
00728  M01S00719.qfsp    +++| BLKS     DATA   1H          WORD OF BLANKS
00729  M01S00720.qfsp    +++|          CHAR   1R[,1R(
00730  M01S00721.qfsp    +++|          CHAR   1R],1R)
00731  M01S00722.qfsp    +++|          CODE   O
00732  M01S00723.qfsp    +++| CA       BITCON (+,-,[,])   ALLOW + - ( ) PAGING CHARACTERS
00733  M01S00724.qfsp    +++|          CODE   *
00734  M01S00725.qfsp    +++| CF       BITCON (*)         SPECIAL CHARACTER FOR MACHINE ID
00735  M01S00726.qfsp    +++| CS       BITCON ( )         CHARACTERS SUPPRESSED ON INPUT
00736  M01S00727.qfsp    +++| DFP      CON    0           DAYFILE POINTER
00737  M01S00728.qfsp    +++| DVLL     CON    8           DEVICE LOWER ACCESS LEVEL LIMIT
00738  M01S00729.qfsp    +++| DVUL     CON    -1          DEVICE UPPER ACCESS LEVEL LIMIT
00739  M01S00730.qfsp    +++| ENUT     CON    0           ENTRY ADDRESS OF UTILITY
00740  M01S00731.qfsp    +++| FPNM     CON    -1          FUNCTION PROCESSOR NUMBER
00741  M01S00732.qfsp    +++| JACL     CON    0           VALID JOB ACCESS LEVELS
00742  M01S00733.qfsp    +++| KD       CON    0           K-DISPLAY STATUS WORD
00743  M01S00734.qfsp    +++| KTIT     BSSZ   2           K-DISPLAY TITLE
00744  M01S00735.qfsp    +++| N        CON    0           INHIBIT K-DISPLAY FLAG
00745  M01S00736.qfsp    +++| PG       CON    0           PAGE INDEX
00746  M01S00737.qfsp    +++| PI       CON    0           PROCESSOR INFORMATION
00747  M01S00738.qfsp    +++| QFT      CON    0           QFT POINTER WORD
00748  M01S00739.qfsp    +++| SECR     CON    0           *GETSSL* REPLY WORD
00749  M01S00740.qfsp    +++| SL       CON    0           STRING BUFFER LIMIT POINTER
00750  M01S00741.qfsp    +++| SP       CON    0           STRING BUFFER POINTER
00751  M01S00003.ns2570  +++| OPMP     CON    0           OPERATOR ACTION MESSAGE POINTER
00752  M01S00742.qfsp    +++|          SPACE  4
00753  M01S00743.qfsp    +++|*         NOTE - ANY CHANGE IN THE ORDER OF THE *TARG*, *TEQP*,
Line S00744 Modification History
M01 (Added by) qfsp
M02 (Updated by) ns2533
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00744.ns2533  ---|*                *TMSD*, *TDAL* AND *FOTT* TABLES MUST BE
00755  M01S00001.ns2533  +++|*                *TMSD*, *TDAL*, *TMSS* AND *FOTT* TABLES MUST BE
00756  M01S00745.qfsp    +++|*                ACCOMPANIED BY A CHANGE IN *COMSQFS*.
00757  M01S00746.qfsp    +++| TARG     SPACE  4
00758  M01S00747.qfsp    +++|**        TARG - TABLE OF PROCESSED ARGUMENTS.
00759  M01S00748.qfsp    +++|*
00760  M01S00749.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00761  M01S00750.qfsp    +++|
00762  M01S00751.qfsp    +++|
00763  M01S00752.qfsp    +++| TARG     BSS    TARGL
00764  M01S00753.qfsp    +++| TEQP     SPACE  4
00765  M01S00754.qfsp    +++|**        TEQP - TABLE OF MASS STORAGE DEVICES.
00766  M01S00755.qfsp    +++|*
00767  M01S00756.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00768  M01S00757.qfsp    +++|
00769  M01S00758.qfsp    +++|
00770  M01S00759.qfsp    +++| TEQP     BSSZ   ESMX+1
00771  M01S00760.qfsp    +++| TMSD     SPACE  4
00772  M01S00761.qfsp    +++|**        TMSD - TABLE OF MASS STORAGE DESCRIPTIONS.
00773  M01S00762.qfsp    +++|*
00774  M01S00763.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00775  M01S00764.qfsp    +++|
00776  M01S00765.qfsp    +++|
00777  M01S00766.qfsp    +++| TMSD     BSSZ   ESMX
00778  M01S00767.qfsp    +++|          SPACE  4,10
00779  M01S00768.qfsp    +++|**        TDAL - TABLE OF MASS STORAGE DEVICE ACCESS LEVELS.
00780  M01S00769.qfsp    +++|*
00781  M01S00770.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00782  M01S00771.qfsp    +++|
00783  M01S00772.qfsp    +++| TDAL     BSSZ   ESMX
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  M01S00773.qfsp    +++|          SPACE  4,10
00791  M01S00774.qfsp    +++|**        TPPP - TABLE OF PRINTER PAGE PARAMETERS.
00792  M01S00775.qfsp    +++|*
00793  M01S00776.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00794  M01S00777.qfsp    +++|
00795  M01S00778.qfsp    +++|
00796  M01S00779.qfsp    +++| TPPP     BSSZ   TPPPL
00797  M01S00780.qfsp    +++|          SPACE  4,10
00798  M01S00781.qfsp    +++|**        FOTT - FAMILY ORDINAL TABLE.
00799  M01S00782.qfsp    +++|*
00800  M01S00783.qfsp    +++|*         SEE *COMSQFS* FOR FORMAT.
00801  M01S00784.qfsp    +++|
00802  M01S00785.qfsp    +++|
00803  M01S00786.qfsp    +++| FOTT     BSSZ   FOTL
00804  M01S00787.qfsp    +++| TKLN     SPACE  4
00805  M01S00788.qfsp    +++|**        TKLN - TABLE OF K-DISPLAY LINE NUMBERS.
00806  M01S00789.qfsp    +++|
00807  M01S00790.qfsp    +++|
00808  M01S00791.qfsp    +++| TKLN     BSS    0
00809  M01S00792.qfsp    +++|          LOC    0
00810  M01S00793.qfsp    +++|          KIND   DDFM,,DMFM,DQFM,DFFM,DNFM
00811  M01S00794.qfsp    +++|          KIND   DQFU,DQFU,DQFU,DQFU
00812  M01S00795.qfsp    +++|          KIND   ,DLDE,DMDF,,,DNDF
00813  M01S00796.qfsp    +++|          KIND   DDDN,,DMDN,DQDN,DFDN,DNDN
00814  M01S00797.qfsp    +++|          KIND   ,DLDD,DMDD
00815  M01S00798.qfsp    +++|          KIND   DQUI,DQUI,DQUI,DQUI
00816  M01S00799.qfsp    +++|          KIND   DQU1,DQU1,DQU1,DQU1
00817  M01S00800.qfsp    +++|          KIND   DDDA,DLDA,DMDA,DQDA
00818  M01S00801.qfsp    +++|          KIND   DDD1,DLD1,DMD1,DQD1
00819  M01S00802.qfsp    +++|          KIND   DQJN,DQJN,DQJN,DQJN,,DQJN
00820  M01S00803.qfsp    +++|          KIND   DQJ2,DQJ2,DQJ2,DQJ2,,DQJ2
00821  M01S00804.qfsp    +++|          KIND   DQJ3,DQJ3,DQJ3,DQJ3,,DQJ3
00822  M01S00805.qfsp    +++|          KIND   DQJ4,DQJ4,DQJ4,DQJ4,,DQJ4
00823  M01S00806.qfsp    +++|          KIND   DQJ5,DQJ5,DQJ5,DQJ5,,DQJ5
00824  M01S00807.qfsp    +++|          KIND   DQLI,DQLI,DQLI,DQLI,,DNLD
00825  M01S00808.qfsp    +++|          KIND   ,,,,,DNNL
00826  M01S00809.qfsp    +++|          KIND   DQID,DQID,DQID,DQID,,DNID
00827  M01S00810.qfsp    +++|          KIND   DQI1,DQI1,DQI1,DQI1,,DNI1
00828  M01S00811.qfsp    +++|          KIND   DQLA,DQLA,DQLA,DQLA,,DNLA
00829  M01S00812.qfsp    +++|          KIND   DQL1,DQL1,DQL1,DQL1,,DNL1
00830  M01S00813.qfsp    +++|          KIND   DQUA,DQUA,DQUA,DQUA,,DNUA
00831  M01S00814.qfsp    +++|          KIND   DQU2,DQU2,DQU2,DQU2,,DNU1
00832  M01S00815.qfsp    +++|          KIND   DDOF,DLOF,DMOF,DQOF,DFOF,DNOF
00833  M01S00816.qfsp    +++|          KIND   DDTP,,DMTP
Line S00817 Modification History
M01 (Added by) qfsp
M02 (Updated by) ns2747
Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00817.ns2747  ---|          KIND   DQFS,DQFS,DQFS,DQFS
Line S00818 Modification History
M01 (Added by) qfsp
M02 (Updated by) ns2747
Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00818.ns2747  ---|          KIND   DQF1,DQF1,DQF1,DQF1
00836  M01S00001.ns2747  +++|          KIND   DQFS,DQFS,DQFS,DQFS,,DNFS
00837  M01S00002.ns2747  +++|          KIND   DQF1,DQF1,DQF1,DQF1,,DNF1
00838  M01S00819.qfsp    +++|          KIND   DDNF,DLNF
00839  M01S00820.qfsp    +++|          KIND   ,DLSC
00840  M01S00821.qfsp    +++|          KIND   DQBC,DQBC,DQBC,DQBC,,DQBC
00841  M01S00822.qfsp    +++|          KIND   DQB1,DQB1,DQB1,DQB1,,DQB1
00842  M01S00823.qfsp    +++|          KIND   DQB2,DQB2,DQB2,DQB2,,DQB2
00843  M01S00824.qfsp    +++|          KIND   DQRB,DQRB,DQRB,DQRB,,DQRB
00844  M01S00825.qfsp    +++|          KIND   DQR3,DQR3,DQR3,DQR3,,DQR3
00845  M01S00826.qfsp    +++|          KIND   DQR4,DQR4,DQR4,DQR4,,DQR4
00846  M01S00827.qfsp    +++|          KIND   ,DLOP,DMOP,DQOP,DFOP,DNOP
00847  M01S00828.qfsp    +++|          KIND   ,,,,DFFT
00848  M01S00829.qfsp    +++|          KIND   ,,,,DFNM
00849  M01S00830.qfsp    +++|          KIND   DQTI,DQTI,DQTI,DQTI
00850  M01S00831.qfsp    +++|          KIND   DQT1,DQT1,DQT1,DQT1
00851  M01S00832.qfsp    +++|          KIND   DQTF,DQTF,DQTF,DQTF
00852  M01S00833.qfsp    +++|          KIND   DQFR,DQFR,DQFR,DQFR,,DNFR
00853  M01S00834.qfsp    +++|          KIND   DDMI,DLMI,DMMI,DQMI
00854  M01S00835.qfsp    +++|          KIND   DDFN,DLFN
00855  M01S00836.qfsp    +++|          KIND   ,,,,,DNUN
00856  M01S00837.qfsp    +++|          KIND   ,,,,,DNUJ
00857  M01S00838.qfsp    +++|          KIND   ,,,,,DNLO
00858  M01S00839.qfsp    +++|          KIND   ,,,,,DNAL
00859  M01S00840.qfsp    +++|          KIND   ,,,,,DNDC
00860  M01S00841.qfsp    +++|          KIND   ,,,,,DNNE
00861  M01S00842.qfsp    +++|          KIND   ,,,,,DNND
00862  M01S00843.qfsp    +++|          KIND   ,,,,,DNNU
00863  M01S00844.qfsp    +++|          KIND   ,,,,,DNNC
00864  M01S00845.qfsp    +++|          KIND   ,,,,,DNNI
00865  M01S00846.qfsp    +++|          KIND   ,,,,,DNNR
00866  M01S00847.qfsp    +++|          KIND   ,,,,,DNNP
00867  M01S00848.qfsp    +++| TKDR     EQU    */2
00868  M01S00849.qfsp    +++|          KIND   DDDR,,DMDR,DQDR
00869  M01S00850.qfsp    +++| TKIN     EQU    */2
00870  M01S00851.qfsp    +++|          KIND   DDIN,,DMIN,DQIN
00871  M01S00852.qfsp    +++| TKER     EQU    */2
00872  M01S00853.qfsp    +++|          KIND   DDER,DLER,DMER
00873  M01S00854.qfsp    +++|
00874  M01S00855.qfsp    +++|          LOC    *O
00875  M01S00856.qfsp    +++| TOCE     SPACE  4,10
00876  M01S00857.qfsp    +++|**        TOCE - TABLE OF COMMAND ENTRIES.
00877  M01S00858.qfsp    +++|*
00878  M01S00859.qfsp    +++|*T        42/ COMMAND , 6/ 0 , 6/ VALUE , 6/ INDEX
Figure

0561112171829 INDEX VALUE 0 COMMAND 3059 COMMAND

00879  M01S00860.qfsp    +++|*
00880  M01S00861.qfsp    +++|*         NOTE   THIS TABLE IS ALTERED BY PRESET FOR THE
00881  M01S00862.qfsp    +++|*                SPECIFIC UTILITY BEING PROCESSED.
00882  M01S00863.qfsp    +++|
00883  M01S00864.qfsp    +++|
00884  M01S00865.qfsp    +++| TOCE     BSS    0
00885  M01S00866.qfsp    +++|          VFD    42/1L+,6/0,6/1,6/CPL      +
00886  M01S00867.qfsp    +++|          VFD    42/1L-,6/0,6/1,6/CPL      -
00887  M01S00868.qfsp    +++|          VFD    42/1L(,6/0,6/1,6/CPR      (
00888  M01S00869.qfsp    +++|          VFD    42/1L),6/0,6/1,6/CPR      )
00889  M01S00870.qfsp    +++|          VFD    42/0LSTOP,6/0,6/0,6/CTR   STOP
00890  M01S00871.qfsp    +++| TOCEA    VFD    42/0LGO,6/0,6/0,6/CUP     GO
00891  M01S00872.qfsp    +++|          VFD    42/0LRESET,6/0,6/0,6/CRS  RESET
00892  M01S00873.qfsp    +++|          VFD    42/0LOUT,6/0,6/3,6/CUP    OUT
00893  M01S00874.qfsp    +++| TOCEB    VFD    42/0LLIST,6/0,6/2,6/CLT   LIST
00894  M01S00875.qfsp    +++|          VFD    42/0LCLEAR,6/0,6/0,6/CCR  CLEAR
00895  M01S00876.qfsp    +++|          VFD    42/0LFAMILY,6/0,6/0,6/PFO FAMILY
00896  M01S00877.qfsp    +++|          VFD    42/0LLID,6/0,6/0,6/PLT    LID
00897  M01S00878.qfsp    +++|          CON    0                         END OF TABLE
00898  M01S00879.qfsp    +++| TINE     SPACE  4,11
00899  M01S00880.qfsp    +++|**        TINE - TABLE OF INPUT ENTRIES.
00900  M01S00881.qfsp    +++|*
00901  M01S00882.qfsp    +++|*T        18/ I ,18/ F ,12/  ,6/ A ,6/ P
Figure

0561112232429 P A F 30414259 F I

00902  M01S00883.qfsp    +++|*
00903  M01S00884.qfsp    +++|*                I = IDENTIFIER.
00904  M01S00885.qfsp    +++|*                F = PROCESSOR INFORMATION.
00905  M01S00886.qfsp    +++|*                    FWA OF SEARCH TABLE.
00906  M01S00887.qfsp    +++|*                    ADDRESS OF MAXIMUM VALUE.
00907  M01S00888.qfsp    +++|*                A = ARGUMENT TABLE INDEX.
00908  M01S00889.qfsp    +++|*                P = PROCESSOR INDEX.
00909  M01S00890.qfsp    +++|
00910  M01S00891.qfsp    +++|
00911  M01S00892.qfsp    +++| TINE     BSS    0
00912  M01S00893.qfsp    +++|          LOC    0
00913  M01S00894.qfsp    +++|          IENTRY FM,TEQP,ARFM,PFM      *FM*
00914  M01S00895.qfsp    +++|          IENTRY FU,0,ARFU,PFM         *FU*
00915  M01S00896.qfsp    +++|          IENTRY TF,0,ARTF,PFM         *TF*
00916  M01S00897.qfsp    +++|          IENTRY DD,TEQP,ARDD,PDN      *DD*
00917  M01S00898.qfsp    +++| TIDF     BSS    0
00918  M01S00899.qfsp    +++|          IENTRY DF,TEQP,ARDF,PFM      *DF*
00919  M01S00900.qfsp    +++|          IENTRY DN,TEQP,ARDN,PDN      *DN*
00920  M01S00901.qfsp    +++|          IENTRY JSN,ARJN,ARJN,PJN     *JSN*
00921  M01S00902.qfsp    +++|          IENTRY ID,NRPB,ARID,PNR      *ID*
00922  M01S00903.qfsp    +++|          IENTRY LA,TALV,ARLA,PAL      *LA*
00923  M01S00904.qfsp    +++|          IENTRY UA,TALV,ARUA,PAL      *UA*
00924  M01S00905.qfsp    +++|          IENTRY L,0,ARLL,PAN          *L*
00925  M01S00906.qfsp    +++|          IENTRY TP,TOTP,ARTP,PAN      *TP*
00926  M01S00907.qfsp    +++|          IENTRY FS,NRPC,ARFS,PNR      *FS*
00927  M01S00908.qfsp    +++|          IENTRY FN,0,ARFN,PAN         *FN*
00928  M01S00909.qfsp    +++|          IENTRY NF,0,ARNF,PNM         *NF*
00929  M01S00910.qfsp    +++|          IENTRY SC,0,ARSC,PNM         *SC*
00930  M01S00911.qfsp    +++|          IENTRY FT,TODT,ARFT,PAN      *FT*
00931  M01S00912.qfsp    +++|          IENTRY BC,TQTE,ARBC,POT      *BC*
00932  M01S00913.qfsp    +++|          IENTRY RB,TQTE,ARRB,POT      *RB*
00933  M01S00914.qfsp    +++|          IENTRY UI,NRPA,ARUI,PNR      *UI*
Line S00915 Modification History
M01 (Added by) qfsp
M02 (Updated by) ns2786a
Seq #  *Modification Id* Act 
----------------------------+
00934  M02S00915.ns2786a ---|          IENTRY DA,0,ARDA,PNR
00935  M01S00001.ns2786a +++|          IENTRY DA,0,ARDA,PNR         *DA*
00936  M01S00916.qfsp    +++|          IENTRY NM,0,ARNM,PAN         *NM*
00937  M01S00917.qfsp    +++|          IENTRY TUI,NRPA,ARTI,PNR     *TUI*
00938  M01S00918.qfsp    +++|          IENTRY FC,,ARFR,PFC          *FC*
00939  M01S00919.qfsp    +++|          IENTRY MI,3,ARMI,PMI         *MI*
00940  M01S00920.qfsp    +++|          IENTRY UN,10B,ARUN,PMI       *UN*
00941  M01S00921.qfsp    +++|          IENTRY UJN,10B,ARUJ,PMI      *UJN*
00942  M01S00922.qfsp    +++|          IENTRY LO,TLOP,ARLO,PAN      *LO*
00943  M01S00923.qfsp    +++|          IENTRY LD,0,AROL,PLD         *LD*
00944  M01S00924.qfsp    +++|          IENTRY NAL,TALV,ARAL,PAL     *NAL*
00945  M01S00925.qfsp    +++|          IENTRY NLD,0,ARNL,PLD        *NLD*
00946  M01S00926.qfsp    +++|          IENTRY NDC,TDVC,ARDC,PAN     *NDC*
00947  M01S00927.qfsp    +++|          IENTRY NEC,0,ARNE,PEC        *NEC*
00948  M01S00928.qfsp    +++|          IENTRY NDF,10B,ARND,PMI      *NDF*
00949  M01S00929.qfsp    +++|          IENTRY NUN,10B,ARNU,PMI      *NUN*
00950  M01S00930.qfsp    +++|          IENTRY NID,NMPB,ARNI,PNM     *NID*
00951  M01S00931.qfsp    +++|          IENTRY NPR,NMPC,ARNP,PNM     *NPR*
00952  M01S00932.qfsp    +++|          IENTRY NFC,3,ARNC,PMI        *NFC*
00953  M01S00933.qfsp    +++|          IENTRY NRC,NMPD,ARNR,PNM     *NRC*
00954  M01S00934.qfsp    +++| TIOP     BSS    0
00955  M01S00935.qfsp    +++|          IENTRY OP,0,AROP,PAN         *OP*
00956  M01S00936.qfsp    +++| TIII     BSS    0
00957  M01S00937.qfsp    +++|          IENTRY I,0,0,PIF             *I*
00958  M01S00938.qfsp    +++| TIPO     BSS    0
00959  M01S00939.qfsp    +++|          IENTRY PO,0,0,CPO            *PO*
00960  M01S00940.qfsp    +++|          CON    0           END OF TABLE
00961  M01S00941.qfsp    +++|          LOC    *O
00962  M01S00942.qfsp    +++| TODT     SPACE  4
00963  M01S00943.qfsp    +++|**        TODT - TABLE OF DAYFILE TYPES.
00964  M01S00944.qfsp    +++|
00965  M01S00945.qfsp    +++|
00966  M01S00946.qfsp    +++| TODT     BSS    0
00967  M01S00947.qfsp    +++|          TABLE  DAYFILE,SDAY   SYSTEM DAYFILE
00968  M01S00948.qfsp    +++|          TABLE  ACCOUNT,ACCF   ACCOUNT FILE
00969  M01S00949.qfsp    +++|          TABLE  ERRLOG,ERLF    ERRLOG DAYFILE
00970  M01S00950.qfsp    +++|          TABLE  MAINLOG,BMLF   MAINTENANCE LOG FILE
00971  M01S00951.qfsp    +++|          CON    0
00972  M01S00952.qfsp    +++| TFTE     SPACE  4,7
00973  M01S00953.qfsp    +++|**        TQTE - TABLE OF QUEUE TYPE ENTRIES.
00974  M01S00954.qfsp    +++|*                ONE WORD PER QUEUE TYPE.
00975  M01S00955.qfsp    +++|*
00976  M01S00956.qfsp    +++|*T        42/ QT, 18/ B
Figure

0171829 B QT3059 QT

00977  M01S00957.qfsp    +++|*
00978  M01S00958.qfsp    +++|*                QT = INPUT OPTION.
00979  M01S00959.qfsp    +++|*                B  = BIT MASK FOR QUEUE TYPES.
00980  M01S00960.qfsp    +++|
00981  M01S00961.qfsp    +++|
00982  M01S00962.qfsp    +++| TQTE     BSS    0
00983  M01S00963.qfsp    +++|          TABLE  ALL,777700B ALL QUEUE TYPES SELECTED
00984  M01S00964.qfsp    +++|          TABLE  NONE,0      NO QUEUE TYPES SELECTED
00985  M01S00965.qfsp    +++|          TABLE  IN,200000B  INPUT QUEUE TYPE
00986  M01S00966.qfsp    +++|          TABLE  PH,100000B  PUNCH QUEUE TYPE
00987  M01S00967.qfsp    +++|          TABLE  PU,100000B  PUNCH QUEUE TYPE
00988  M01S00968.qfsp    +++|          TABLE  PL,40000B   PLOT QUEUE TYPE
00989  M01S00969.qfsp    +++|          TABLE  PRINT,37600B ALL PRINT QUEUES
00990  M01S00970.qfsp    +++|          TABLE  PR,20000B   PRINT QUEUE TYPE-ANY PRINTER
00991  M01S00971.qfsp    +++|          TABLE  P2,10000B   PRINT QUEUE TYPE-511 PRINTER
00992  M01S00972.qfsp    +++|          TABLE  LR,4000B    PRINT QUEUE TYPE-580-12 PRINTER
00993  M01S00973.qfsp    +++|          TABLE  LS,2000B    PRINT QUEUE TYPE-580-16 PRINTER
00994  M01S00974.qfsp    +++|          TABLE  LT,1000B    PRINT QUEUE TYPE-580-20 PRINTER
00995  M01S00975.qfsp    +++|          TABLE  LX,400B     PRINT QUEUE TYPE-5870 NIP
00996  M01S00976.qfsp    +++|          TABLE  LY,200B     PRINT QUEUE TYPE-5970 NIP
00997  M01S00977.qfsp    +++|          TABLE  WT,100B     WAIT QUEUE-TERMINAL OUTPUT
00998  M01S00978.qfsp    +++|          TABLE  SF,400000B  SPECIAL FILE TYPES
00999  M01S00979.qfsp    +++|          CON    0
01000  M01S00980.qfsp    +++| TLOP     SPACE  4,10
01001  M01S00981.qfsp    +++|**        TLOP - TABLE OF LIST OPTIONS.
01002  M01S00982.qfsp    +++|
01003  M01S00983.qfsp    +++|
01004  M01S00984.qfsp    +++| TLOP     BSS    0
01005  M01S00985.qfsp    +++|          TABLE  S,0         SHORT LIST
01006  M01S00986.qfsp    +++|          TABLE  F,1         FULL LIST
01007  M01S00987.qfsp    +++|          CON    0
01008  M01S00988.qfsp    +++| TOAL     SPACE  4
01009  M01S00989.qfsp    +++|**        TOAL - TABLE OF QALTER OPTIONS.
01010  M01S00990.qfsp    +++|
01011  M01S00991.qfsp    +++|
01012  M01S00992.qfsp    +++| TOAL     BSS    0
01013  M01S00993.qfsp    +++|          TABLE  BC,BCOP     ALTER TO LOCAL BATCH
01014  M01S00994.qfsp    +++|          TABLE  RB,RBOP     ALTER TO REMOTE BATCH
01015  M01S00995.qfsp    +++|          TABLE  NC,NCOP     DO NOT CHANGE ORIGIN
01016  M01S00996.qfsp    +++|          TABLE  PR,PROP     PURGE FILES
01017  M01S00997.qfsp    +++|          CON    0           END OF TABLE
01018  M01S00998.qfsp    +++| TOQM     SPACE  4
01019  M01S00999.qfsp    +++|**        TOQM - TABLE OF QMOVE OPTIONS.
01020  M01S01000.qfsp    +++|
01021  M01S01001.qfsp    +++|
01022  M01S01002.qfsp    +++| TOQM     BSS    0
01023  M01S01003.qfsp    +++|          TABLE  I,0         LEAVE AS INACTIVE FILES
01024  M01S01004.qfsp    +++|          TABLE  A,1         LEAVE AS ACTIVE FILES
01025  M01S01005.qfsp    +++|          CON    0
01026  M01S01006.qfsp    +++| TOQR     SPACE  4
01027  M01S01007.qfsp    +++|**        TOQR - TABLE OF QREC OPTIONS.
01028  M01S01008.qfsp    +++|
01029  M01S01009.qfsp    +++|
01030  M01S01010.qfsp    +++| TOQR     BSS    0
01031  M01S01011.qfsp    +++|          TABLE  RP,REPG     RECOVER/PURGE OPTION
01032  M01S01012.qfsp    +++|          TABLE  RI,REIG     RECOVER/IGNORE OPTION
01033  M01S01013.qfsp    +++|          TABLE  PI,PGIG     PURGE/IGNORE OPTION
01034  M01S01014.qfsp    +++|          TABLE  DI,DEIG     DEQUEUE OPTION
01035  M01S01015.qfsp    +++|          CON    0
01036  M01S01016.qfsp    +++| TOTP     SPACE  4,3
01037  M01S01017.qfsp    +++|**        TOTP - TABLE OF QDUMP AND QMOVE TYPES.
01038  M01S01018.qfsp    +++|*                (MODIFIED FOR QLOAD AND DFTERM OPTION TABLE)
01039  M01S01019.qfsp    +++|
01040  M01S01020.qfsp    +++|
01041  M01S01021.qfsp    +++| TOTP     BSS    0
01042  M01S01022.qfsp    +++|          TABLE  I,0         INACTIVE
01043  M01S01023.qfsp    +++|          TABLE  A,1         ACTIVE
01044  M01S01024.qfsp    +++| TOTPA    BSS    0
01045  M01S01025.qfsp    +++|          TABLE  ALL,2       ALL
01046  M01S01026.qfsp    +++|          CON    0
01047  M01S01027.qfsp    +++|          SPACE  4,10
01048  M01S01028.qfsp    +++|**        TPOO - TABLE OF *PO* OPTIONS AND PROCESSORS.
01049  M01S01029.qfsp    +++|
01050  M01S01030.qfsp    +++|
01051  M01S01031.qfsp    +++|TPOO      BSS    0
01052  M01S01032.qfsp    +++|          TABLE  F,FOP       FAMILY ORDINAL TABLE PROCESSOR
01053  M01S01033.qfsp    +++|          TABLE  R,RWD       REWIND PROCESSOR
01054  M01S01034.qfsp    +++|          TABLE  E,ERF       ERROR COMMAND PROCESSOR
01055  M01S01035.qfsp    +++|          TABLE  N,NKP       INHIBIT K-DISPLAY INPUT
01056  M01S01036.qfsp    +++|          TABLE  L,LTP       LID TABLE PROCESSOR
01057  M01S01037.qfsp    +++|          TABLE  I,IQP       INPUT QUEUE FILE PROCESSOR
01058  M01S01038.qfsp    +++|          TABLE  U,UQP       UNCONDITIONAL FILE PROCESSOR
01059  M01S01039.qfsp    +++|          CON    0
01060  M01S01040.qfsp    +++| TRFN     SPACE  4,10
01061  M01S01041.qfsp    +++|**        TRFN - TABLE OF RESERVED FILE NAMES.
01062  M01S01042.qfsp    +++|
01063  M01S01043.qfsp    +++|
01064  M01S01044.qfsp    +++| TRFN     BSS    0
01065  M01S01045.qfsp    +++|          TABLE  "RFIQ"
01066  M01S01046.qfsp    +++|          TABLE  "RFNI"
01067  M01S01047.qfsp    +++|          TABLE  "RFMI"
01068  M01S01048.qfsp    +++|          TABLE  "RFSC"
01069  M01S01049.qfsp    +++|          CON    0           END OF TABLE
01070  M01S01050.qfsp    +++|          SPACE  4
01071  M01S01051.qfsp    +++|**        TDVC - TABLE OF DEVICE CODES.
01072  M01S01052.qfsp    +++|
01073  M01S01053.qfsp    +++|
01074  M01S01054.qfsp    +++| TDVC     BSS    0
01075  M01S01055.qfsp    +++|          TABLE  NONE,777B
01076  M01S01056.qfsp    +++|          TABLE  PR,LPQF
01077  M01S01057.qfsp    +++|          TABLE  LP,LPQF
01078  M01S01058.qfsp    +++|          TABLE  P2,P2QF
01079  M01S01059.qfsp    +++|          TABLE  LR,LRQF
01080  M01S01060.qfsp    +++|          TABLE  LS,LSQF
01081  M01S01061.qfsp    +++|          TABLE  LT,LTQF
01082  M01S01062.qfsp    +++|          TABLE  LX,LXQF
01083  M01S01063.qfsp    +++|          TABLE  LY,LYQF
01084  M01S01064.qfsp    +++|          CON    0           END OF TABLE
01085  M01S01065.qfsp    +++|          SPACE  4
01086  M01S01066.qfsp    +++|**        TPLC - TABLE OF PLOT QUEUE EXTERNAL CHARACTERISTICS.
01087  M01S01067.qfsp    +++|
01088  M01S01068.qfsp    +++|
01089  M01S01069.qfsp    +++| TPLC     BSS    0
01090  M01S01070.qfsp    +++|          TABLE  T6,T6EX+4000B  TRANSPARENT 6 BIT
01091  M01S01071.qfsp    +++|          TABLE  T8,T8EX+4000B  TRANSPARENT 8 BIT
01092  M01S01072.qfsp    +++|          CON    0           END OF TABLE
01093  M01S01073.qfsp    +++| TRPC     SPACE  4,10
01094  M01S01074.qfsp    +++|**        TPRC - TABLE OF PRINT QUEUE EXTERNAL CHARACTERISTICS.
01095  M01S01075.qfsp    +++|
01096  M01S01076.qfsp    +++|
01097  M01S01077.qfsp    +++| TPRC     BSS    0
01098  M01S01078.qfsp    +++|          TABLE  A4,A4EX+4000B  A4 - ASCII 48-CHARACTER
01099  M01S01079.qfsp    +++|          TABLE  B4,B4EX+4000B  B4 - BCD 48-CHARACTER
01100  M01S01080.qfsp    +++|          TABLE  B6,B6EX+4000B  B6 - BCD 63/4 CHARACTER
01101  M01S01081.qfsp    +++|          TABLE  A6,A6EX+4000B  A6 - ASCII 64-CHARACTER
01102  M01S01082.qfsp    +++|          TABLE  A9,A9EX+4000B  A9 - ASCII 96-CHARACTER
01103  M01S01083.qfsp    +++|          CON    0           END OF TABLE
01104  M01S01084.qfsp    +++| TPUC     SPACE  4,10
01105  M01S01085.qfsp    +++|**        TPUC - TABLE OF PUNCH QUEUE EXTERNAL CHARACTERISTICS.
01106  M01S01086.qfsp    +++|
01107  M01S01087.qfsp    +++|
01108  M01S01088.qfsp    +++| TPUC     BSS    0
01109  M01S01089.qfsp    +++|          TABLE  PB,PBFR+4000B  SB - SYSTEM BINARY
01110  M01S01090.qfsp    +++|          TABLE  P8,P8FR+4000B  80 COL - 80 COLUMN BINARY
01111  M01S01091.qfsp    +++|          TABLE  PH,PHFR+4000B  O26 - O26 PUNCH
01112  M01S01092.qfsp    +++|          TABLE  P9,P9FR+4000B  O29 - O29 PUNCH
01113  M01S01093.qfsp    +++|          TABLE  AS,ASFR+4000B  ASCII - ASCII PUNCH
01114  M01S01094.qfsp    +++|          CON    0           END 0F TABLE
01115  M01S01095.qfsp    +++|          SPACE  4,10
01116  M01S01096.qfsp    +++|**        FET DEFINITIONS.
01117  M01S01097.qfsp    +++|
01118  M01S01098.qfsp    +++|
01119  M01S01099.qfsp    +++| I        BSS    0
01120  M01S01100.qfsp    +++| INPUT    FILEC  IBUF,IBUFL
01121  M01S01101.qfsp    +++|
01122  M01S01102.qfsp    +++| IBUFL    EQU    201B        LENGTH OF INPUT BUFFER
01123  M01S01103.qfsp    +++|          SPACE  4,10
01124  M01S01104.qfsp    +++|**        *SFM* PARAMETER BLOCK.
01125  M01S01105.qfsp    +++|
01126  M01S01106.qfsp    +++|
01127  M01S01107.qfsp    +++| FOTB     VFD    12/RFDF,12/0,12/FOTL,6/0,18/FOTT
01128  M01S01108.qfsp    +++|          CON    0
01129  M01S01109.qfsp    +++| LUP      SPACE  4,8
01130  M01S01110.qfsp    +++|**        LUP - LOAD UTILITY PROCESSOR.
01131  M01S01111.qfsp    +++|*
01132  M01S01112.qfsp    +++|*         ENTRY  (X1) = OVERLAY NAME.
01133  M01S01113.qfsp    +++|*
01134  M01S01114.qfsp    +++|*         EXIT   TO *DIP*.
01135  M01S01115.qfsp    +++|*                (ENUT) = ENTRY ADDRESS TO UTILITY OVERLAY.
01136  M01S01116.qfsp    +++|*
01137  M01S01117.qfsp    +++|*         USES   X - 6.
01138  M01S01118.qfsp    +++|*                A - 6.
01139  M01S01119.qfsp    +++|*
01140  M01S01120.qfsp    +++|*         MACROS OVERLAY.
01141  M01S01121.qfsp    +++|
01142  M01S01122.qfsp    +++|
01143  M01S01123.qfsp    +++| LUP      OVERLAY X1,100B,S
01144  M01S01124.qfsp    +++|          BX6    X1
01145  M01S01125.qfsp    +++|          SA6    ENUT
01146  M01S01126.qfsp    +++|          JP     DIP
01147  M01S01127.qfsp    +++| DIP      TITLE   DIRECTIVE INPUT PROCESSOR.
01148  M01S01128.qfsp    +++|**        DIP - DIRECTIVE INPUT PROCESSOR.
01149  M01S01129.qfsp    +++|*
01150  M01S01130.qfsp    +++|*         ENTRY  K - DISPLAYS SET IN BUFFERS.
01151  M01S01131.qfsp    +++|*                UTILITY OVERLAY LOADED.
01152  M01S01132.qfsp    +++|*                DEFAULT PARAMETERS SET.
01153  M01S01133.qfsp    +++|
01154  M01S01134.qfsp    +++|
01155  M01S01135.qfsp    +++| DIP4     RJ     IDE         PROCESS ERROR
01156  M01S01136.qfsp    +++|
01157  M01S01137.qfsp    +++| DIP      RJ     ISB         INPUT STRING BUFFER
01158  M01S01138.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01159  M01S01139.qfsp    +++|          SA1    CA          ALLOW PAGING CHARACTERS
01160  M01S01140.qfsp    +++|          BX6    X2
01161  M01S01141.qfsp    +++|          RJ     ASC         ASSEMBLE KEYWORD
01162  M01S01142.qfsp    +++|          SB3    ERID        **** ERROR IN IDENTIFIER.
01163  M01S01143.qfsp    +++|          ZR     X4,DIP      IF NO DATA ASSEMBLED
01164  M01S01144.qfsp    +++|          SB5    B5-1R=
01165  M01S01145.qfsp    +++|          SA5    TINE+TIII
01166  M01S01146.qfsp    +++|          EQ     B5,DIP2     IF IDENTIFIER SEPARATOR
01167  M01S01147.qfsp    +++|          NZ     X5,DIP2     IF COMMAND PARAMETER
01168  M01S01148.qfsp    +++|          SA6    KCMD        SAVE COMMAND FOR PAGING PROCESSORS
01169  M01S01149.qfsp    +++|
01170  M01S01150.qfsp    +++|*         SEARCH COMMAND ENTRY TABLE.
01171  M01S01151.qfsp    +++|
01172  M01S01152.qfsp    +++| DIP1     SA3    TOCE-1      SEARCH COMMAND ENTRY TABLE
01173  M01S01153.qfsp    +++|          MX0    42
01174  M01S01154.qfsp    +++|          NZ     X5,DIP4     IF COMMAND PARAMETER
01175  M01S01155.qfsp    +++|          RJ     SET
01176  M01S01156.qfsp    +++|          NZ     X4,DIP4     IF ENTRY NOT FOUND
01177  M01S01157.qfsp    +++|          MX0    -6          SET PROCESSOR INDEX
01178  M01S01158.qfsp    +++|          BX1    -X0*X3
01179  M01S01159.qfsp    +++|          AX3    6           SET COMMAND NUMBER
01180  M01S01160.qfsp    +++|          BX6    -X0*X3
01181  M01S01161.qfsp    +++|          EQ     DIP3
01182  M01S01162.qfsp    +++|
01183  M01S01163.qfsp    +++|*         SEARCH DIRECTIVE INPUT TABLE.
01184  M01S01164.qfsp    +++|
01185  M01S01165.qfsp    +++| DIP2     SA3    TINE-1      SEARCH DIRECTIVE TABLE
01186  M01S01166.qfsp    +++|          MX0    18
01187  M01S01167.qfsp    +++|          MX2    42
01188  M01S01168.qfsp    +++|          BX2    X2*X6
01189  M01S01169.qfsp    +++|          BX1    -X0*X2
01190  M01S01170.qfsp    +++|          NZ     X1,DIP1     IF TOO MANY CHARACTERS
01191  M01S01171.qfsp    +++|          RJ     SET
01192  M01S01172.qfsp    +++|          NZ     X4,DIP1     IF ENTRY NOT FOUND
01193  M01S01173.qfsp    +++|          BX6    -X0*X3      SAVE PROCESSOR INFORMATION
01194  M01S01174.qfsp    +++|          AX6    24
01195  M01S01175.qfsp    +++|          SA6    PI
01196  M01S01176.qfsp    +++|          MX0    -6          SET PROCESSOR INDEX
01197  M01S01177.qfsp    +++|          BX1    -X0*X3
01198  M01S01178.qfsp    +++|          SX7    X1-PIF
01199  M01S01179.qfsp    +++|          ZR     X7,DIP3     IF *I* DIRECTIVE
01200  M01S01180.qfsp    +++|          SX7    X1-CPO
01201  M01S01181.qfsp    +++|          ZR     X7,DIP3     IF *P0* PROCESSOR
01202  M01S01182.qfsp    +++|          AX3    6           SET ARGUMENT TABLE INDEX
01203  M01S01183.qfsp    +++|          BX6    -X0*X3
01204  M01S01184.qfsp    +++|          SA4    DIPA        CHECK IF DIRECTIVE LEGAL FOR UTILITY
01205  M01S01185.qfsp    +++|          SB6    X6
01206  M01S01186.qfsp    +++|          LX4    B6,X4
01207  M01S01187.qfsp    +++|          PL     X4,DIP4     IF INCORRECT ENTRY
01208  M01S01188.qfsp    +++|
01209  M01S01189.qfsp    +++|*         JUMP TO PROCESSOR.
01210  M01S01190.qfsp    +++|
01211  M01S01191.qfsp    +++| DIP3     SA2    X1+TOIP     SET PROCESSOR ADDRESS
01212  M01S01192.qfsp    +++|          SB7    X2
01213  M01S01193.qfsp    +++|          BX7    X7-X7       CLEAR *PNB* BLOCK
01214  M01S01194.qfsp    +++|          SA6    PINB
01215  M01S01195.qfsp    +++|          SA7    A6+B1
01216  M01S01196.qfsp    +++|          SA7    A7+B1
01217  M01S01197.qfsp    +++|          SA7    A7+B1
01218  M01S01198.qfsp    +++|          SA7    A7+B1
01219  M01S01199.qfsp    +++|          SA7    A7+B1
01220  M01S01200.qfsp    +++|          SA7    A7+B1
01221  M01S01201.qfsp    +++|          RJ     ICE         JUMP TO PROCESSOR
01222  M01S01202.qfsp    +++|          NZ     X1,DIP4     IF ERROR
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  M01S01203.qfsp    +++|          SA1    PINB+1
01227  M01S01204.qfsp    +++|          ZR     X1,DIP      IF NO K-DISPLAY UPDATE
01228  M01S01205.qfsp    +++|          RJ     SPD         UPDATE K-DISPLAY AND ARGUMENT TABLE
01229  M01S01206.qfsp    +++|          EQ     DIP
01230  M01S01207.qfsp    +++|
01231  M01S01208.qfsp    +++| DIPA     CON    0           DIRECTIVE MASK
01232  M01S01209.qfsp    +++|
01233  M01S01210.qfsp    +++|
01234  M01S01211.qfsp    +++|**        PINB - PROCESSED INPUT DATA BUFFER.
01235  M01S01212.qfsp    +++|*
01236  M01S01213.qfsp    +++|*T PINB   6/ , 18/ AI3, 18/ AI2, 18/ AI1
Figure PINB

0171829 AI1 AI2303536535459 AI2 AI3

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

029 PRIMARY K-DISPLAY VALUE3059 PRIMARY K-DISPLAY VALUE

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

029 PRIMARY ARGUMENT TABLE VALUE3059 PRIMARY ARGUMENT TABLE VALUE

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

029 SECONDARY K-DISPLAY VALUE3059 SECONDARY K-DISPLAY VALUE

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

029 SECONDARY ARGUMENT TABLE VALUE3059 SECONDARY ARGUMENT TABLE VALUE

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

029 TERTIARY K-DISPLAY VALUE3059 TERTIARY K-DISPLAY VALUE

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

029 TERTIARY ARGUMENT TABLE VALUE3059 TERTIARY ARGUMENT TABLE VALUE

01243  M01S01220.qfsp    +++|*
01244  M01S01221.qfsp    +++|*
01245  M01S01222.qfsp    +++|*                AI1 = ARGUMENT TABLE INDEX FOR PRIMARY VALUE.
01246  M01S01223.qfsp    +++|*                AI2 = ARGUMENT TABLE INDEX FOR SECONDARY VALUE.
01247  M01S01224.qfsp    +++|*                AI3 = ARGUMENT TABLE INDEX FOR TERTIARY VALUE.
01248  M01S01225.qfsp    +++|
01249  M01S01226.qfsp    +++|
01250  M01S01227.qfsp    +++| PINB     BSSZ   7
01251  M01S01228.qfsp    +++|          SPACE  4
01252  M01S01229.qfsp    +++|**        TOIP - TABLE OF INPUT PROCESSORS.
01253  M01S01230.qfsp    +++|
01254  M01S01231.qfsp    +++|
01255  M01S01232.qfsp    +++| TOIP     BSS    0
01256  M01S01233.qfsp    +++|          LOC    0
01257  M01S01234.qfsp    +++| PAN      CON    ANP         ALPHA-NUMERIC PROCESSOR
01258  M01S01235.qfsp    +++| PDN      CON    DNP         DEVICE NUMBER PROCESSOR
01259  M01S01236.qfsp    +++| PEC      CON    ECP         EXTERNAL CHARACTERISTIC PROCESSOR
01260  M01S01237.qfsp    +++| PFC      CON    FCP         FORMS CODE PROCESSOR (QFTLIST/QALTER ONLY)
01261  M01S01238.qfsp    +++| PFM      CON    FMP         FAMILY NAME PROCESSOR
01262  M01S01239.qfsp    +++| PIF      CON    IFP         INPUT FILE PROCESSOR
01263  M01S01240.qfsp    +++| PJN      CON    JNP         JOB SEQUENCE NUMBER PROCESSOR
01264  M01S01241.qfsp    +++| PLD      CON    LDP         LID PROCESSOR
01265  M01S01242.qfsp    +++| PLT      CON    LTP         LID TABLE PROCESSOR
01266  M01S01243.qfsp    +++| PAL      CON    ALP         ACCESS LEVEL PROCESSOR
01267  M01S01244.qfsp    +++| PMI      CON    MIP         MACHINE INDEX PROCESSOR
01268  M01S01245.qfsp    +++| PNK      CON    NKP         INHIBIT K-DISPLAY PROCESSOR
01269  M01S01246.qfsp    +++| PNM      CON    NMP         NUMERIC DATA PROCESSOR
01270  M01S01247.qfsp    +++| PNR      CON    NRP         NUMERIC RANGE PROCESSOR
01271  M01S01248.qfsp    +++| POT      CON    OTP         FILE DESTINATION - QUEUE TYPE PROCESSOR
01272  M01S01249.qfsp    +++| CCR      CON    CLR         CLEAR COMMAND PROCESSOR
01273  M01S01250.qfsp    +++| CER      CON    ERF         ERROR COMMAND PROCESSOR
01274  M01S01251.qfsp    +++| CLT      CON    LST         LIST COMMAND PROCESSOR
01275  M01S01252.qfsp    +++| CPL      CON    PGL         PAGE LEFT SCREEN COMMAND PROCESSOR
01276  M01S01253.qfsp    +++| CPR      CON    PGR         PAGE RIGHT SCREEN COMMAND PROCESSOR
01277  M01S01254.qfsp    +++| CPO      CON    POP         *PO* PARAMETER PROCESSOR
01278  M01S01255.qfsp    +++| PFO      CON    FOP         FAMILY ORDINAL PROCESSOR
01279  M01S01256.qfsp    +++| CRD      CON    RWD         REWIND COMMAND PROCESSOR
01280  M01S01257.qfsp    +++| CRS      CON    RST         RESET COMMAND PROCESSOR
01281  M01S01258.qfsp    +++| CTR      CON    TER         STOP COMMAND PROCESSOR
01282  M01S01259.qfsp    +++| CUP      CON    UCP         UTILITY COMMAND PROCESSOR
01283  M01S01260.qfsp    +++|          LOC    *O
01284  M01S01261.qfsp    +++| ALP      SPACE  4,20
01285  M01S01262.qfsp    +++|**        ALP - SECURITY ACCESS LEVEL PROCESSOR.
01286  M01S01263.qfsp    +++|*
01287  M01S01264.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01288  M01S01265.qfsp    +++|*
01289  M01S01266.qfsp    +++|*         EXIT   *PINB* BLOCK SET.
01290  M01S01267.qfsp    +++|*                (X1) = 0, IF NO ERROR.
01291  M01S01268.qfsp    +++|*                (B3) = ADDRESS OF ERROR MESSAGE.
01292  M01S01269.qfsp    +++|*
01293  M01S01270.qfsp    +++|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
01294  M01S01271.qfsp    +++|*                A - 2, 6, 7.
01295  M01S01272.qfsp    +++|*                B - 2, 3, 5, 6.
01296  M01S01273.qfsp    +++|*
01297  M01S01274.qfsp    +++|*         CALLS  ASC, SFN, VLC.
01298  M01S01275.qfsp    +++|
01299  M01S01276.qfsp    +++|
01300  M01S01277.qfsp    +++| ALP4     SX1    B1+         SET ERROR EXIT
01301  M01S01278.qfsp    +++|
01302  M01S01279.qfsp    +++| ALP      SUBR               ENTRY/EXIT
01303  M01S01280.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01304  M01S01281.qfsp    +++|          BX1    X1-X1       ALLOW NO SPECIAL CHARACTERS
01305  M01S01282.qfsp    +++|          BX6    X2
01306  M01S01283.qfsp    +++|          RJ     ASC         ASSEMBLE CHARACTERS
01307  M01S01284.qfsp    +++|          SB3    ERAC        **** ERROR IN ACCESS LEVEL.
01308  M01S01285.qfsp    +++|          ZR     X4,ALP4     IF NO PARAMETER
01309  M01S01286.qfsp    +++|          SB6    B5-1R=
01310  M01S01287.qfsp    +++|          SB5    B5-1R-
01311  M01S01288.qfsp    +++|          ZR     B6,ALP4     IF INCORRECT SEPARATOR
01312  M01S01289.qfsp    +++|          LE     B5,ALP4     IF INCORRECT SEPARATOR
01313  M01S01290.qfsp    +++|          SB2    X4-7
01314  M01S01291.qfsp    +++|          GT     B2,ALP4     IF MORE THAN SEVEN CHARACTERS
01315  M01S01292.qfsp    +++|          SB2    B0          CHECK ACCESS LEVEL
01316  M01S01293.qfsp    +++|          BX1    X6
01317  M01S01294.qfsp    +++|          RJ     VLC         VALIDATE ACCESS LEVEL
01318  M01S01295.qfsp    +++|          NG     X2,ALP2     IF INCORRECT ACCESS LEVEL
01319  M01S01296.qfsp    +++|          RJ     SFN         SPACE FILL NAME
01320  M01S01297.qfsp    +++|          BX1    X2          SET ARGUMENT TABLE VALUE
01321  M01S01298.qfsp    +++|          BX7    X2
01322  M01S01299.qfsp    +++|          SA2    SECR        GET SYSTEM ACCESS LEVEL LIMITS
01323  M01S01300.qfsp    +++|          LX2    12
01324  M01S01301.qfsp    +++|          MX0    -3
01325  M01S01302.qfsp    +++|          BX3    -X0*X2
01326  M01S01303.qfsp    +++|          ZR     X3,ALP1     IF UNSECURE SYSTEM
01327  M01S01304.qfsp    +++|          LX2    -48
01328  M01S01305.qfsp    +++|          BX3    -X0*X2      GET UPPER LIMIT
01329  M01S01306.qfsp    +++|          LX2    -6
01330  M01S01307.qfsp    +++|          IX4    X3-X1
01331  M01S01308.qfsp    +++|          NG     X4,ALP3     IF ABOVE UPPER LIMIT
01332  M01S01309.qfsp    +++|          BX3    -X0*X2      GET LOWER LIMIT
01333  M01S01310.qfsp    +++|          IX4    X1-X3
01334  M01S01311.qfsp    +++|          NG     X4,ALP3     IF BELOW LOWER LIMIT
01335  M01S01312.qfsp    +++| ALP1     BX1    X1-X1       CLEAR ERROR RETURN
01336  M01S01313.qfsp    +++|          SA6    PINB+1      SET K-DISPLAY
01337  M01S01314.qfsp    +++|          SA7    A6+B1       SET ARGUMENT TABLE VALUE
01338  M01S01315.qfsp    +++|          EQ     ALPX        RETURN
01339  M01S01316.qfsp    +++|
01340  M01S01317.qfsp    +++| ALP2     SB3    ERUA        **** UNKNOWN ACCESS LEVEL NAME.
01341  M01S01318.qfsp    +++|          EQ     ALP4        SET ERROR EXIT
01342  M01S01319.qfsp    +++|
01343  M01S01320.qfsp    +++| ALP3     SB3    ERAL        **** ACCESS LEVEL OUT OF RANGE.
01344  M01S01321.qfsp    +++|          EQ     ALP4        SET ERROR EXIT
01345  M01S01322.qfsp    +++|          TITLE  DIRECTIVE PROCESSOR ROUTINES.
01346  M01S01323.qfsp    +++| ANP      SPACE  4
01347  M01S01324.qfsp    +++|**        ANP - ALPHA-NUMERIC DATA PROCESSOR.
01348  M01S01325.qfsp    +++|*
01349  M01S01326.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01350  M01S01327.qfsp    +++|*                (PI) = FWA OF SEARCH TABLE.
01351  M01S01328.qfsp    +++|*
01352  M01S01329.qfsp    +++|*         EXIT   *PINB* BLOCK SET.
01353  M01S01330.qfsp    +++|*                (X1) = 0, NO ERROR ENCOUNTERED.
01354  M01S01331.qfsp    +++|*                (B3) = ADDRESS OF ERROR MESSAGE.
01355  M01S01332.qfsp    +++|*
01356  M01S01333.qfsp    +++|*         USES   X - 0, 1, 2, 3, 5, 6.
01357  M01S01334.qfsp    +++|*                A - 1, 2, 3, 4, 6.
01358  M01S01335.qfsp    +++|*                B - 2, 3, 5, 6.
01359  M01S01336.qfsp    +++|*
01360  M01S01337.qfsp    +++|*         CALLS  ASC, DDR, SET, SFN, SPD.
01361  M01S01338.qfsp    +++|
01362  M01S01339.qfsp    +++|
01363  M01S01340.qfsp    +++| ANP8     SX1    B1+         SET ERROR RETURN
01364  M01S01341.qfsp    +++|          SB3    ERAD        **** ERROR IN ALPHANUMERIC DATA.
01365  M01S01342.qfsp    +++|
01366  M01S01343.qfsp    +++| ANP      SUBR               ENTRY/EXIT
01367  M01S01344.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01368  M01S01345.qfsp    +++|          MX1    0           ALLOW NO SPECIAL CHARACTERS
01369  M01S01346.qfsp    +++|          BX6    X2
01370  M01S01347.qfsp    +++|          RJ     ASC         ASSEMBLE CHARACTERS
01371  M01S01348.qfsp    +++|          ZR     X4,ANP8     IF NO PARAMETER
01372  M01S01349.qfsp    +++|          SB6    B5-1R=
01373  M01S01350.qfsp    +++|          SB5    B5-1R-
01374  M01S01351.qfsp    +++|          ZR     B6,ANP8     IF INCORRECT SEPARATOR
01375  M01S01352.qfsp    +++|          LE     B5,ANP8     IF INCORRECT SEPARATOR
01376  M01S01353.qfsp    +++|          SA5    PINB        GET ARGUMENT TABLE INDEX
01377  M01S01354.qfsp    +++|          SB2    X4-7
01378  M01S01355.qfsp    +++|          GT     B2,ANP8     IF MORE THAN SEVEN CHARACTERS
01379  M01S01356.qfsp    +++|          SX1    X5-ARNM
01380  M01S01357.qfsp    +++|          NZ     X1,ANP2     IF NOT DAYFILE NAME DIRECTIVE
01381  M01S01358.qfsp    +++|          SB6    X4-5
01382  M01S01359.qfsp    +++|          GT     B6,ANP8     IF MORE THAN FIVE CHARACTERS
01383  M01S01360.qfsp    +++| ANP2     SA4    PI          GET FWA OF SEARCH TABLE
01384  M01S01361.qfsp    +++|          BX1    X6
01385  M01S01362.qfsp    +++|          MX0    42
01386  M01S01363.qfsp    +++|          ZR     X4,ANP3     IF NO VALIDATION NEEDED
01387  M01S01364.qfsp    +++|          SA3    X4-1        SEARCH TABLE FOR ENTRY
01388  M01S01365.qfsp    +++|          RJ     SET
01389  M01S01366.qfsp    +++|          BX6    -X0*X3
01390  M01S01367.qfsp    +++|          NZ     X4,ANP8     IF NOT VALID ENTRY
01391  M01S01368.qfsp    +++| ANP3     SA6    PINB+2      SET ARGUMENT TABLE VALUE
01392  M01S01369.qfsp    +++|          RJ     SFN
01393  M01S01370.qfsp    +++|          SX2    X5-ARFT
01394  M01S01371.qfsp    +++|          SA6    A5+B1       SET K-DISPLAY VALUE
01395  M01S01372.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01396  M01S01373.qfsp    +++|          NZ     X2,ANP4     IF DAYFILE TYPE NOT ENTERED
01397  M01S01374.qfsp    +++|
01398  M01S01375.qfsp    +++|*         PROCESS DAYFILE TYPE.
01399  M01S01376.qfsp    +++|
01400  M01S01377.qfsp    +++|          SA1    TARG+AROP
01401  M01S01378.qfsp    +++|          ZR     X1,ANPX     IF INACTIVE DAYFILE TO BE TERMINATED
01402  M01S01379.qfsp    +++|          RJ     SPD         SET PROCESSED DATA
01403  M01S01380.qfsp    +++|          SA1    PINB+2      DETERMINE DAYFILE RESIDENCE
01404  M01S01381.qfsp    +++|          RJ     DDR
01405  M01S01382.qfsp    +++|          BX1    X1-X1
01406  M01S01383.qfsp    +++|          JP     ANPX
01407  M01S01384.qfsp    +++|
01408  M01S01385.qfsp    +++|*         SET DIRECTIVES THAT ARE NOT APPLICABLE TO QALTER OPTION.
01409  M01S01386.qfsp    +++|
01410  M01S01387.qfsp    +++| ANP4     SA2    FPNM
01411  M01S01388.qfsp    +++|          SA4    PINB
01412  M01S01389.qfsp    +++|          SX2    X2-FNFN
01413  M01S01390.qfsp    +++|          SX4    X4-AROP
01414  M01S01391.qfsp    +++|          NZ     X2,ANPX     IF NOT QALTER
01415  M01S01392.qfsp    +++|          NZ     X4,ANPX     IF NO *OP* DIRECTIVE
01416  M01S01393.qfsp    +++|          SA3    TARG+ARFC
01417  M01S01394.qfsp    +++|          NG     X3,ANPX     IF COMMAND CALL
01418  M01S01395.qfsp    +++|          RJ     SPD         SET PROCESSED DATA
01419  M01S01396.qfsp    +++|          BX6    X6-X6       CLEAR ARGUMENT TABLE ENTRY
01420  M01S01397.qfsp    +++|          SA6    PINB+2
01421  M01S01398.qfsp    +++|          SB6    -B1
01422  M01S01399.qfsp    +++| ANP5     SB6    B6+B1       ADVANCE TABLE INDEX
01423  M01S01400.qfsp    +++|          BX6    X6-X6
01424  M01S01401.qfsp    +++|          SA1    TODD+B6
01425  M01S01402.qfsp    +++|          NZ     X1,ANP6     IF NOT END OF TABLE
01426  M01S01403.qfsp    +++|          SA6    PINB+1
01427  M01S01404.qfsp    +++|          EQ     ANPX        RETURN
01428  M01S01405.qfsp    +++|
01429  M01S01406.qfsp    +++| ANP6     SA2    TARG+AROP
01430  M01S01407.qfsp    +++|          BX6    X1
01431  M01S01408.qfsp    +++|          SA6    PINB
01432  M01S01409.qfsp    +++|          SB3    X2
01433  M01S01410.qfsp    +++|          LX1    B3
01434  M01S01411.qfsp    +++|          SA2    BLKS
01435  M01S01412.qfsp    +++|          PL     X1,ANP7     IF ENTRY TO BE CLEARED
01436  M01S01413.qfsp    +++|          SA2    ANPA
01437  M01S01414.qfsp    +++|
01438  M01S01415.qfsp    +++| ANP7     BX6    X2
01439  M01S01416.qfsp    +++|          SA6    PINB+1
01440  M01S01417.qfsp    +++|          RJ     SPD         SET PROCESSED DATA
01441  M01S01418.qfsp    +++|          EQ     ANP5        CHECK NEXT TABLE ENTRY
01442  M01S01419.qfsp    +++|
01443  M01S01420.qfsp    +++| ANPA     VFD    60/10H  -N/A-
01444  M01S01421.qfsp    +++| TODD     SPACE  4,15
01445  M01S01422.qfsp    +++|**        TODD - TABLE OF DEPENDENT DIRECTIVES.
01446  M01S01423.qfsp    +++|*
01447  M01S01424.qfsp    +++|*         1/E,1/B,1/N,1/,1/P,19/0,18/0,18/ARIN
01448  M01S01425.qfsp    +++|*
01449  M01S01426.qfsp    +++|*         IF THE FOLLOWING BITS ARE SET, AN -N/A- WILL BE DISPLAYED
01450  M01S01427.qfsp    +++|*         FOR THE DIRECTIVE. OTHERWISE, THAT DIRECTIVE WILL BE
01451  M01S01428.qfsp    +++|*         CLEARED.
01452  M01S01429.qfsp    +++|*                E - ALTER TO REMOTE BATCH OPTION.
01453  M01S01430.qfsp    +++|*                B - ALTER TO LOCAL BATCH OPTION
01454  M01S01431.qfsp    +++|*                N - DO NOT ALTER FILE DESTINATION OPTION.
01455  M01S01432.qfsp    +++|*                P - PURGE OPTION.
01456  M01S01433.qfsp    +++|*         ARIN = ARGUMENT TABLE INDEX.
01457  M01S01434.qfsp    +++|
01458  M01S01435.qfsp    +++|
01459  M01S01436.qfsp    +++| TODD     BSS    0
01460  M01S01437.qfsp    +++|          LOC    0
01461  M01S01438.qfsp    +++|          VFD    1/0,1/1,1/0,1/0,1/1,37/0,18/ARND  *NDF*
01462  M01S01439.qfsp    +++|          VFD    1/0,1/1,1/0,1/0,1/1,37/0,18/ARNU  *NUN*
01463  M01S01440.qfsp    +++|          VFD    1/1,1/0,1/0,1/0,1/1,37/0,18/ARNI  *NID*
01464  M01S01441.qfsp    +++|          VFD    1/0,1/0,1/0,1/0,1/1,37/0,18/ARNP  *NPR*
01465  M01S01442.qfsp    +++|          VFD    1/0,1/0,1/0,1/0,1/1,37/0,18/ARNC  *NFC*
01466  M01S01443.qfsp    +++|          CON    0
01467  M01S01444.qfsp    +++|          LOC    *O
01468  M01S01445.qfsp    +++| DNP      SPACE  4,14
01469  M01S01446.qfsp    +++|**        DNP - DEVICE NUMBER PROCESSOR.
01470  M01S01447.qfsp    +++|*
01471  M01S01448.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01472  M01S01449.qfsp    +++|*                (PI) = FWA OF TABLE TO SEARCH.
01473  M01S01450.qfsp    +++|*
01474  M01S01451.qfsp    +++|*         EXIT   *PINB* BLOCK SET.
01475  M01S01452.qfsp    +++|*                (X1) = 0, NO ERROR ENCOUNTERED.
01476  M01S01453.qfsp    +++|*                (B3) = ADDRESS OF ERROR MESSAGE.
01477  M01S01454.qfsp    +++|*
01478  M01S01455.qfsp    +++|*         USES   X - ALL.
01479  M01S01456.qfsp    +++|*                A - 1, 2, 3, 4, 5, 6, 7.
01480  M01S01457.qfsp    +++|*                B - 2, 3, 5, 6, 7.
01481  M01S01458.qfsp    +++|*
01482  M01S01459.qfsp    +++|*         CALLS  ASC, DXB, COD, SET.
01483  M01S01460.qfsp    +++|
01484  M01S01461.qfsp    +++|
01485  M01S01462.qfsp    +++| DNP8     SX1    B1+         SET ERROR RETURN
01486  M01S01463.qfsp    +++|          SB3    ERDN        **** ERROR IN DEVICE NUMBER.
01487  M01S01464.qfsp    +++|
01488  M01S01465.qfsp    +++| DNP      SUBR               ENTRY/EXIT
01489  M01S01466.qfsp    +++|
01490  M01S01467.qfsp    +++|*         CHECK IF FAMILY NAME ENTERED.
01491  M01S01468.qfsp    +++|
01492  M01S01469.qfsp    +++|          SB3    ERFN        **** FAMILY NAME MUST BE ENTERED.
01493  M01S01470.qfsp    +++|          SA3    TARG+ARFM   GET FAMILY NAME
01494  M01S01471.qfsp    +++|          SA1    FPNM
01495  M01S01472.qfsp    +++|          SX2    X1-FNQL
01496  M01S01473.qfsp    +++|          ZR     X2,DNP1     IF QLOAD UTILITY
01497  M01S01474.qfsp    +++|          SX2    X1-FNQM
01498  M01S01475.qfsp    +++|          NZ     X2,DNP2     IF NOT QMOVE UTILITY
01499  M01S01476.qfsp    +++| DNP1     SA5    PINB
01500  M01S01477.qfsp    +++|          SX5    X5-ARDN
01501  M01S01478.qfsp    +++|          ZR     X5,DNP2     IF *DN* SPECIFIED
01502  M01S01479.qfsp    +++|          SA3    TARG+ARDF
01503  M01S01480.qfsp    +++|          JP     DNP3
01504  M01S01481.qfsp    +++|
01505  M01S01482.qfsp    +++| DNP2     ZR     X3,DNPX     IF ALL FAMILIES SPECIFIED
01506  M01S01483.qfsp    +++| DNP3     SX1    B1
01507  M01S01484.qfsp    +++|          IX3    X3+X1
01508  M01S01485.qfsp    +++|          ZR     X3,DNPX     IF FAMILY NAME NOT ENTERED
01509  M01S01486.qfsp    +++|
01510  M01S01487.qfsp    +++|*         ASSEMBLE DEVICE NUMBER.
01511  M01S01488.qfsp    +++|
01512  M01S01489.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01513  M01S01490.qfsp    +++|          MX1    0           ALLOW NO SPECIAL CHARACTERS
01514  M01S01491.qfsp    +++|          BX6    X2
01515  M01S01492.qfsp    +++|          RJ     ASC         ASSEMBLE DEVICE NUMBER
01516  M01S01493.qfsp    +++|          ZR     X4,DNP8     IF NO PARAMETER
01517  M01S01494.qfsp    +++|          SB6    B5-1R=
01518  M01S01495.qfsp    +++|          SB5    B5-1R-
01519  M01S01496.qfsp    +++|          LE     B5,B0,DNP8  IF INCORRECT SEPARATOR
01520  M01S01497.qfsp    +++|          ZR     B6,DNP8     IF INCORRECT SEPARATOR
01521  M01S01498.qfsp    +++|
01522  M01S01499.qfsp    +++|*         CHECK IF ALL DEVICES LEGAL.
01523  M01S01500.qfsp    +++|
01524  M01S01501.qfsp    +++|          SA1    PINB        GET ARGUMENT TABLE INDEX
01525  M01S01502.qfsp    +++|          SB6    X1-ARDD
01526  M01S01503.qfsp    +++|          MX0    18
01527  M01S01504.qfsp    +++|          ZR     B6,DNP5     IF *DD* DIRECTIVE
01528  M01S01505.qfsp    +++|          SA2    DNPA
01529  M01S01506.qfsp    +++|          PL     X2,DNP6     IF *DN=ALL* NOT ALLOWED
01530  M01S01507.qfsp    +++| DNP4     SA2    FMPA
01531  M01S01508.qfsp    +++|          BX2    X6-X2
01532  M01S01509.qfsp    +++|          BX2    X0*X2
01533  M01S01510.qfsp    +++|          NZ     X2,DNP6     IF *ALL* NOT SPECIFIED
01534  M01S01511.qfsp    +++|          SA5    FMPA        SET *PINB* BLOCK
01535  M01S01512.qfsp    +++|          BX6    X6-X6
01536  M01S01513.qfsp    +++|          BX7    X5
01537  M01S01514.qfsp    +++|          SA7    PINB+1
01538  M01S01515.qfsp    +++|          SA6    A7+B1
01539  M01S01516.qfsp    +++|          MX1    0           CLEAR ERROR RETURN
01540  M01S01517.qfsp    +++|          JP     DNPX
01541  M01S01518.qfsp    +++|
01542  M01S01519.qfsp    +++|*         PROCESS QLOAD *DD* DIRECTIVE.
01543  M01S01520.qfsp    +++|
01544  M01S01521.qfsp    +++| DNP5     SA2    FPNM
01545  M01S01522.qfsp    +++|          SX3    X2-FNQL
01546  M01S01523.qfsp    +++|          NZ     X3,DNP6     IF NOT QLOAD UTILITY
01547  M01S01524.qfsp    +++|          SA2    TARG+ARDF
01548  M01S01525.qfsp    +++|          ZR     X2,DNP4     IF ALL FAMILIES SPECIFIED
01549  M01S01526.qfsp    +++|
01550  M01S01527.qfsp    +++|*         PROCESS SPECIFIC DEVICE NUMBER.
01551  M01S01528.qfsp    +++|
01552  M01S01529.qfsp    +++| DNP6     SB7    B0          SET OCTAL CONVERSION
01553  M01S01530.qfsp    +++|          BX5    X6
01554  M01S01531.qfsp    +++|          RJ     DXB
01555  M01S01532.qfsp    +++|          NZ     X4,DNP8     IF ERROR
01556  M01S01533.qfsp    +++|          SX4    X6-100B
01557  M01S01534.qfsp    +++|          PL     X4,DNP8     IF INCORRECT DEVICE NUMBER
01558  M01S01535.qfsp    +++|          BX5    X6          SAVE ARGUMENT VALUE
01559  M01S01536.qfsp    +++|          BX1    X6          SET K-DISPLAY VALUE
01560  M01S01537.qfsp    +++|          RJ     COD
01561  M01S01538.qfsp    +++|          LX6    6           INSERT B
01562  M01S01539.qfsp    +++|          SX1    1RB-1R
01563  M01S01540.qfsp    +++|          IX6    X6+X1
01564  M01S01541.qfsp    +++|          SB3    54
01565  M01S01542.qfsp    +++|          SB2    B3-B2
01566  M01S01543.qfsp    +++|          LX6    B2,X6
01567  M01S01544.qfsp    +++|          SA6    PINB+1
01568  M01S01545.qfsp    +++|
01569  M01S01546.qfsp    +++|*         VALIDATE FAMILY NAME AND DEVICE NUMBER.
01570  M01S01547.qfsp    +++|
01571  M01S01548.qfsp    +++|          LX5    12          VALIDATE DEVICE NUMBER
01572  M01S01549.qfsp    +++|          SA1    ARDF+TARG
01573  M01S01550.qfsp    +++|          ZR     B6,DNP7     IF *DD* DIRECTIVE
01574  M01S01551.qfsp    +++|          SA1    ARFM+TARG
01575  M01S01552.qfsp    +++| DNP7     BX6    X5+X1
01576  M01S01553.qfsp    +++|          MX0    48
01577  M01S01554.qfsp    +++|          SA3    TEQP+NOPE-1 INITIALIZE *TEQP* SEARCH
01578  M01S01555.qfsp    +++|          RJ     SET
01579  M01S01556.qfsp    +++|          NZ     X4,DNP8     IF NOT FOUND
01580  M01S01557.qfsp    +++|          LX5    36
01581  M01S01558.qfsp    +++|          SX3    A3          GET EST ORDINAL
01582  M01S01559.qfsp    +++|          SX3    X3-TEQP
01583  M01S01560.qfsp    +++|          BX7    X5+X3
01584  M01S01561.qfsp    +++|          SA7    A6+B1       SET ARGUMENT TABLE VALUE IN *PINB*
01585  M01S01562.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01586  M01S01563.qfsp    +++|          JP     DNPX        RETURN
01587  M01S01564.qfsp    +++|
01588  M01S01565.qfsp    +++| DNPA     CON    0
01589  M01S01566.qfsp    +++| ECP      SPACE  4,15
01590  M01S01567.qfsp    +++|**        ECP - EXTERNAL CHARACTERISTIC PROCESSOR.
01591  M01S01568.qfsp    +++|*
01592  M01S01569.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01593  M01S01570.qfsp    +++|*
01594  M01S01571.qfsp    +++|*         EXIT   EXTERNAL CHARACTERISTIC PROCESSOR SET IN
01595  M01S01572.qfsp    +++|*                K-DISPLAY AND ARGUMENT TABLE.
01596  M01S01573.qfsp    +++|*                (X1) = 0, NO ERROR ENCOUNTERED.
01597  M01S01574.qfsp    +++|*                (B3) = FWA OF ERROR MESSAGE.
01598  M01S01575.qfsp    +++|*
01599  M01S01576.qfsp    +++|*         USES   X - 0, 1, 2, 3, 4, 5, 6.
01600  M01S01577.qfsp    +++|*                A - 2, 3, 5, 6.
01601  M01S01578.qfsp    +++|*                B - 1, 3, 5, 6, 7.
01602  M01S01579.qfsp    +++|*
01603  M01S01580.qfsp    +++|*         CALLS  ASC, SET, SFN.
01604  M01S01581.qfsp    +++|
01605  M01S01582.qfsp    +++|
01606  M01S01583.qfsp    +++| ECP2     SX1    B1+         SET ERROR RETURN
01607  M01S01584.qfsp    +++|          SB3    ERAD        **** ERROR IN ALPHANUMERIC DATA
01608  M01S01585.qfsp    +++|
01609  M01S01586.qfsp    +++| ECP      SUBR               ENTRY EXIT
01610  M01S01587.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01611  M01S01588.qfsp    +++|          MX1    0           ALLOW NO SPECIAL CHARACTERS
01612  M01S01589.qfsp    +++|          BX6    X2
01613  M01S01590.qfsp    +++|          RJ     ASC         ASSEMBLE CHARACTERS
01614  M01S01591.qfsp    +++|          ZR     X4,ECP2     IF NO DATA
01615  M01S01592.qfsp    +++|          SB6    B5-1R=
01616  M01S01593.qfsp    +++|          SB5    B5-1R-
01617  M01S01594.qfsp    +++|          ZR     B6,ECP2     IF INCORRECT CHARACTER
01618  M01S01595.qfsp    +++|          LE     B5,ECP2     IF INCORRECT SEPARATOR
01619  M01S01596.qfsp    +++|          BX1    X6
01620  M01S01597.qfsp    +++|          MX0    42          SEARCH FOR TABLE ENTRY
01621  M01S01598.qfsp    +++|          SB7    B0
01622  M01S01599.qfsp    +++| ECP1     SA5    TECA+B7
01623  M01S01600.qfsp    +++|          ZR     X5,ECP2     IF NOT VALID
01624  M01S01601.qfsp    +++|          SB7    B7+B1
01625  M01S01602.qfsp    +++|          SA3    X5          GET FWA-1 OF SEARCH TABLE
01626  M01S01603.qfsp    +++|          RJ     SET
01627  M01S01604.qfsp    +++|          ZR     X3,ECP1     IF NOT VALID ENTRY
01628  M01S01605.qfsp    +++|          BX6    -X0*X3
01629  M01S01606.qfsp    +++|          AX5    18
01630  M01S01607.qfsp    +++|          SB7    X5
01631  M01S01608.qfsp    +++|          LX6    B7,X6
01632  M01S01609.qfsp    +++|          SA2    PINB        GET ARGUMENT TABLE VALUES
01633  M01S01610.qfsp    +++|          SA2    X2+TARG
01634  M01S01611.qfsp    +++|          MX0    -12
01635  M01S01612.qfsp    +++|          LX0    B7,X0
01636  M01S01613.qfsp    +++|          BX2    X0*X2
01637  M01S01614.qfsp    +++|          BX6    X6+X2
01638  M01S01615.qfsp    +++|          SA6    PINB+2      SET ARGUMENT TABLE VALUE
01639  M01S01616.qfsp    +++|          RJ     SFN
01640  M01S01617.qfsp    +++|          SA6    PINB+1      SET K-DISPLAY VALUE
01641  M01S01618.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01642  M01S01619.qfsp    +++|          EQ     ECPX        RETURN
01643  M01S01620.qfsp    +++|
01644  M01S01621.qfsp    +++|
01645  M01S01622.qfsp    +++|**        TABLE OF EXTERNAL CHARACTERISTIC ADDRESSES.
01646  M01S01623.qfsp    +++|*
01647  M01S01624.qfsp    +++|*T         24/ 0, 18/ SHIFT COUNT, 18/ ADDRESS OF SEARCH TABLE
Figure

0171829 ADDRESS OF SEARCH TABLE SHIFT COUNT30353659 SHIFT COUNT 0

01648  M01S01625.qfsp    +++|
01649  M01S01626.qfsp    +++|
01650  M01S01627.qfsp    +++| TECA     BSS    0
01651  M01S01628.qfsp    +++|          VFD    24/0,18/48,18/TPLC-1  PLOT QUEUE
01652  M01S01629.qfsp    +++|          VFD    24/0,18/36,18/TPRC-1  PRINT QUEUE
01653  M01S01630.qfsp    +++|          VFD    24/0,18/24,18/TPUC-1  PUNCH QUEUE
01654  M01S01631.qfsp    +++|          VFD    60/0
01655  M01S01632.qfsp    +++| FCP      SPACE  4,20
01656  M01S01633.qfsp    +++|**        FCP - FORMS CODE PROCESSOR.
01657  M01S01634.qfsp    +++|*
01658  M01S01635.qfsp    +++|*         ENTRY  (PINB) = ARGUMENT TABLE INDEX.
01659  M01S01636.qfsp    +++|*
01660  M01S01637.qfsp    +++|*         EXIT   *PINB* BLOCK SET.
01661  M01S01638.qfsp    +++|*                (X1) = 0, IF NO ERROR ENCOUNTERED.
01662  M01S01639.qfsp    +++|*                (B3) = FWA OF ERROR MESSAGE.
01663  M01S01640.qfsp    +++|*
01664  M01S01641.qfsp    +++|*         USES   X - ALL.
01665  M01S01642.qfsp    +++|*                A - 1, 2, 6, 7.
01666  M01S01643.qfsp    +++|*                B - 3, 5, 6, 7.
01667  M01S01644.qfsp    +++|*
01668  M01S01645.qfsp    +++|*         CALLS  ASC, SFN.
01669  M01S01646.qfsp    +++|
01670  M01S01647.qfsp    +++|
01671  M01S01648.qfsp    +++| FCP5     SB3    ERAD        **** ERROR IN ALPHANUMERIC DATA.
01672  M01S01649.qfsp    +++|          SX1    B1+
01673  M01S01650.qfsp    +++|
01674  M01S01651.qfsp    +++| FCP      SUBR               ENTRY/EXIT
01675  M01S01652.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01676  M01S01653.qfsp    +++|          SA1    FCPA        ALLOW *-*, * AND */*
01677  M01S01654.qfsp    +++|          BX6    X2
01678  M01S01655.qfsp    +++|          RJ     ASC         ASSEMBLE CHARACTERS
01679  M01S01656.qfsp    +++|          ZR     X4,FCP5     IF NO DATA
01680  M01S01657.qfsp    +++|          SB7    B5-1R+
01681  M01S01658.qfsp    +++|          SB6    B5-1R=
01682  M01S01659.qfsp    +++|          ZR     B7,FCP5     IF INCORRECT SEPARATOR
01683  M01S01660.qfsp    +++|          ZR     B6,FCP5     IF INCORRECT SEPARATOR
01684  M01S01661.qfsp    +++|
01685  M01S01662.qfsp    +++|*         SET K-DISPLAY ENTRY.
01686  M01S01663.qfsp    +++|
01687  M01S01664.qfsp    +++|          BX1    X6
01688  M01S01665.qfsp    +++|          BX5    X6
01689  M01S01666.qfsp    +++|          RJ     SFN         SPACE FILL K-DISPLAY INPUT
01690  M01S01667.qfsp    +++|          SA6    PINB+1
01691  M01S01668.qfsp    +++|
01692  M01S01669.qfsp    +++|*         SET ARGUMENT TABLE ENTRY.
01693  M01S01670.qfsp    +++|
01694  M01S01671.qfsp    +++|          MX0    -12         FORMS CODE MASK
01695  M01S01672.qfsp    +++|          MX1    -6          SEPARATOR MASK
01696  M01S01673.qfsp    +++|          SB5    B0+         RANGE FLAG
01697  M01S01674.qfsp    +++|          SB6    3           NUMBER OF FORMS CODES ALLOWED
01698  M01S01675.qfsp    +++|          SB7    48          SHIFT COUNT
01699  M01S01676.qfsp    +++|          SX7    B0+         CLEAR ASSEMBLY BUFFER
01700  M01S01677.qfsp    +++|
01701  M01S01678.qfsp    +++| FCP1     LX5    12          EXTRACT FORMS CODE
01702  M01S01679.qfsp    +++|          BX2    -X0*X5
01703  M01S01680.qfsp    +++|          ZR     X2,FCP5     IF NO FORMS CODE
01704  M01S01681.qfsp    +++|          SX3    X2-2R**
01705  M01S01682.qfsp    +++|          SX4    7777B       PRESET NULL FORMS CODE
01706  M01S01683.qfsp    +++|          ZR     X3,FCP2     IF NULL FORMS CODE
01707  M01S01684.qfsp    +++|          BX4    -X1*X2      VALIDATE FORMS CODE
01708  M01S01685.qfsp    +++|          BX3    X2-X4
01709  M01S01686.qfsp    +++|          ZR     X4,FCP5     IF NO CHARACTER
01710  M01S01687.qfsp    +++|          SX4    X4-1R9-1
01711  M01S01688.qfsp    +++|          SX3    X3-1R9*100B-100B
01712  M01S01689.qfsp    +++|          PL     X4,FCP5     IF INCORRECT CHARACTER
01713  M01S01690.qfsp    +++|          PL     X3,FCP5     IF INCORRECT CHARACTER
01714  M01S01691.qfsp    +++|          BX4    X2
01715  M01S01692.qfsp    +++| FCP2     LX3    B7,X4       ENTER FORMS CODE IN ASSEMBLY REGISTER
01716  M01S01693.qfsp    +++|          BX7    X3+X7
01717  M01S01694.qfsp    +++|          SB6    B6-B1       DECREMENT NUMBER OF FORMS CODES LEFT
01718  M01S01695.qfsp    +++|          SB7    B7-12
01719  M01S01696.qfsp    +++|          LT     B6,FCP5     IF TOO MANY FORMS CODES SPECIFIED
01720  M01S01697.qfsp    +++|          LX5    6           CHECK SEPARATOR
01721  M01S01698.qfsp    +++|          BX2    -X1*X5
01722  M01S01699.qfsp    +++|          ZR     X2,FCP3     IF END OF STRING
01723  M01S01700.qfsp    +++|          SX3    X2-1R/
01724  M01S01701.qfsp    +++|          SX4    X2-1R-
01725  M01S01702.qfsp    +++|          ZR     X3,FCP1     IF PROCESSING LIST
01726  M01S01703.qfsp    +++|          NZ     X4,FCP5     IF INCORRECT SEPARATOR
01727  M01S01704.qfsp    +++|          SB6    B6-2
01728  M01S01705.qfsp    +++|          NZ     B6,FCP5     IF NOT FIRST FORMS CODE, RANGE NOT ALLOWED
01729  M01S01706.qfsp    +++|          SB5    B1          SET RANGE FLAG
01730  M01S01707.qfsp    +++|          SB6    B1          ALLOW ONE MORE FORMS CODE
01731  M01S01708.qfsp    +++|          SX4    B1          SET RANGE FLAG
01732  M01S01709.qfsp    +++|          BX7    X4+X7
01733  M01S01710.qfsp    +++|          EQ     FCP1        CHECK NEXT FORMS CODE
01734  M01S01711.qfsp    +++|
01735  M01S01712.qfsp    +++|*         CHECK IF FORMS CODE TO BE CLEARED.
01736  M01S01713.qfsp    +++|
01737  M01S01714.qfsp    +++| FCP3     BX1    X1-X1       CLEAR ERROR RETURN
01738  M01S01715.qfsp    +++|          SA2    TARG+ARFR
01739  M01S01716.qfsp    +++|          BX2    X2-X7
01740  M01S01717.qfsp    +++|          NZ     X2,FCP4     IF NO MATCH
01741  M01S01718.qfsp    +++|          RJ     SFN         SET K-DISPLAY VALUE
01742  M01S01719.qfsp    +++|          SA6    PINB+1
01743  M01S01720.qfsp    +++|          SX7    B0+         SET ARGUMENT TABLE VALUE
01744  M01S01721.qfsp    +++| FCP4     SA7    PINB+2      SET ARGUMENT TABLE VALUE
01745  M01S01722.qfsp    +++|          ZR     B5,FCPX     IF LIST SPECIFIED
01746  M01S01723.qfsp    +++|          LX7    12          EXTRACT LOWER BOUND
01747  M01S01724.qfsp    +++|          BX2    -X0*X7
01748  M01S01725.qfsp    +++|          LX7    12          EXTRACT UPPER BOUND
01749  M01S01726.qfsp    +++|          BX3    -X0*X7
01750  M01S01727.qfsp    +++|          BX4    X2+X0
01751  M01S01728.qfsp    +++|          ZR     X4,FCPX     IF NULL FORMS
01752  M01S01729.qfsp    +++|          BX4    X3+X0
01753  M01S01730.qfsp    +++|          ZR     X4,FCP5     IF NULL FORMS
01754  M01S01731.qfsp    +++|          IX3    X3-X2
01755  M01S01732.qfsp    +++|          PL     X3,FCPX     IF LOWER BOUND .LE. UPPER BOUND
01756  M01S01733.qfsp    +++|          EQ     FCP5        ERROR EXIT
01757  M01S01734.qfsp    +++|
01758  M01S01735.qfsp    +++|
01759  M01S01736.qfsp    +++| FCPA     BITCON (-,/,*)     ALLOW SPECIAL CHARACTERS
01760  M01S01737.qfsp    +++| FMP      SPACE  4,12
01761  M01S01738.qfsp    +++|**        FMP - FAMILY NAME PROCESSOR.
01762  M01S01739.qfsp    +++|*
01763  M01S01740.qfsp    +++|*         ENTRY  (PINB) = ARGUEMENT TABLE INDEX.
01764  M01S01741.qfsp    +++|*                (PI) = FWA OF SEARCH TABLE.
01765  M01S01742.qfsp    +++|*
01766  M01S01743.qfsp    +++|*         EXIT   FAMILY NAME PROCESSED AND SET IN K-DISPLAY.
01767  M01S01744.qfsp    +++|*                DEVICE NUMBER LIST DISPLAYED.
01768  M01S01745.qfsp    +++|*                (X1) = 0, NO ERROR ENCOUNTERED.
01769  M01S01746.qfsp    +++|*                (B3) = ADDRESS OF ERROR MESSAGE.
01770  M01S01747.qfsp    +++|*
01771  M01S01748.qfsp    +++|*         USES   X - ALL.
01772  M01S01749.qfsp    +++|*                A - 1, 2, 3, 4, 5, 6, 7.
01773  M01S01750.qfsp    +++|*                B - 2, 3, 4, 5, 6, 7.
01774  M01S01751.qfsp    +++|*
01775  M01S01752.qfsp    +++|*         CALLS  ASC, SET, SFN, SPD, COD, DDN.
01776  M01S01753.qfsp    +++|
01777  M01S01754.qfsp    +++|
01778  M01S01755.qfsp    +++| FMP11    SX1    B1+         SET ERROR RETURN
01779  M01S01756.qfsp    +++|          SB3    ERFM        **** ERROR IN FAMILY NAME.
01780  M01S01757.qfsp    +++|
01781  M01S01758.qfsp    +++| FMP      SUBR               ENTRY/EXIT
01782  M01S01759.qfsp    +++|          SA2    CS          SUPPRESS BLANKS
01783  M01S01760.qfsp    +++|          MX1    0           ALLOW NO SPECIAL CHARACTERS
01784  M01S01761.qfsp    +++|          BX6    X2
01785  M01S01762.qfsp    +++|          RJ     ASC         ASSEMBLE FAMILY NAME
01786  M01S01763.qfsp    +++|          ZR     X4,FMP11    IF NO PARAMETER
01787  M01S01764.qfsp    +++|          SB6    B5-1R=
01788  M01S01765.qfsp    +++|          SB5    B5-1R-
01789  M01S01766.qfsp    +++|          LE     B5,B0,FMP11 IF INCORRECT SEPARATOR
01790  M01S01767.qfsp    +++|          ZR     B6,FMP11    IF INCORRECT SEPARATOR
01791  M01S01768.qfsp    +++|          SX4    X4-8
01792  M01S01769.qfsp    +++|          PL     X4,FMP11    IF TOO MANY CHARACTERS
01793  M01S01770.qfsp    +++|
01794  M01S01771.qfsp    +++|*         PROCESS FAMILY NAME.
01795  M01S01772.qfsp    +++|
01796  M01S01773.qfsp    +++|          SA6    DDNA+2      SET FAMILY NAME IN K-DISPLAY
01797  M01S01774.qfsp    +++|          BX1    X6          SET K-DISPLAY ENTRY IN *PINB*
01798  M01S01775.qfsp    +++|          RJ     SFN
01799  M01S01776.qfsp    +++|          SA6    PINB+1
01800  M01S01777.qfsp    +++|          SA4    PINB
01801  M01S01778.qfsp    +++|          SX2    X4-ARFU
01802  M01S01779.qfsp    +++|          SX3    X4-ARDF
01803  M01S01780.qfsp    +++|          ZR     X2,FMP2     IF *FU* DIRECTIVE ENTERED
01804  M01S01781.qfsp    +++|          SX2    X4-ARTF
01805  M01S01782.qfsp    +++|          ZR     X2,FMP2     IF *TF* DIRECTIVE ENTERED
01806  M01S01783.qfsp    +++|          SA4    FPNM        SET CHECK FOR QMOVE UTILITY
01807  M01S01784.qfsp    +++|          SX7    X4-FNQM
01808  M01S01785.qfsp    +++|          ZR     X3,FMP1     IF *DF* DIRECTIVE ENTERED
01809  M01S01786.qfsp    +++|          SX2    55B         CHECK *FM=ALL* LEGAL
01810  M01S01787.qfsp    +++|          SB2    59
01811  M01S01788.qfsp    +++|          SB5    X4
01812  M01S01789.qfsp    +++|          SB5    B2-B5
01813  M01S01790.qfsp    +++|          LX7    B5,X2
01814  M01S01791.qfsp    +++|          SA7    DNPA        SAVE RESULT FOR *DN=ALL* CHECK
01815  M01S01792.qfsp    +++|          PL     X7,FMP3     IF *FM=ALL* NOT LEGAL
01816  M01S01793.qfsp    +++|
01817  M01S01794.qfsp    +++| FMP1     ZR     X7,FMP3     IF QMOVE UTILITY *DF* DIRECTIVE
01818  M01S01795.qfsp    +++| FMP2     SA4    FMPB
01819  M01S01796.qfsp    +++|          BX2    X1-X4
01820  M01S01797.qfsp    +++|          NZ     X2,FMP3     IF *ALL* NOT SPECIFIED
01821  M01S01798.qfsp    +++|          SX1    B0+
01822  M01S01799.qfsp    +++| FMP3     BX6    X1
01823  M01S01800.qfsp    +++|          SA6    PINB+2
01824  M01S01801.qfsp    +++|          MX0    42
01825  M01S01802.qfsp    +++|          SA3    PI
01826  M01S01803.qfsp    +++|          ZR     X3,FMP5     IF VALIDATION NOT REQUIRED
01827  M01S01804.qfsp    +++|          ZR     X1,FMP5     IF *ALL* SPECIFIED
01828  M01S01805.qfsp    +++|          SA3    X3-1
01829  M01S01806.qfsp    +++|          RJ     SET
01830  M01S01807.qfsp    +++|          NZ     X4,FMP11    IF INCORRECT FAMILY NAME
Line S01808 Modification History
M01 (Added by) qfsp
M02 (Updated by) ns2533
Seq #  *Modification Id* Act 
----------------------------+
01831  M02S01808.ns2533  ---|          SX6    A3+         SAVE TABLE ENTRY ADDRESS
Line S01809 Modification History
M01 (Added by) qfsp
M02 (Updated by) ns2533
Seq #  *Modification Id* Act 
----------------------------+
01832  M02S01809.ns2533  ---|          SA6    FMPC
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  M01S01810.qfsp    +++| FMP5     RJ     SPD         SET PROCESSED DATA IN DISPLAY
01847  M01S01811.qfsp    +++|
01848  M01S01812.qfsp    +++|*         SET DEVICE NUMBER TO DEFAULT VALUES.
01849  M01S01813.qfsp    +++|
01850  M01S01814.qfsp    +++|          SA5    PINB        DETERMINE TYPE OF DIRECTIVE
01851  M01S01815.qfsp    +++|          SB6    X5-ARDF
01852  M01S01816.qfsp    +++|          SB7    X5-ARFM
01853  M01S01817.qfsp    +++|          SB5    ARDD        ASSUME *DD* DIRECTIVE TO BE SET
01854  M01S01818.qfsp    +++|          ZR     B6,FMP6     IF *DF* DIRECTIVE
01855  M01S01819.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01856  M01S01820.qfsp    +++|          NZ     B7,FMPX     IF NOT *FM* DIRECTIVE
01857  M01S01821.qfsp    +++|          SA5    FPNM        FM DIRECTIVE ENTERED - DETERMINE UTILITY
01858  M01S01822.qfsp    +++|          SX1    X5-FNQR
01859  M01S01823.qfsp    +++|          SX2    X5-FNQD
01860  M01S01824.qfsp    +++|          SX7    X5-FNQM
01861  M01S01825.qfsp    +++|          SB5    ARDN        SET *DN* DIRECTIVE
01862  M01S01826.qfsp    +++|          ZR     X1,FMP8     IF QREC UTILITY
01863  M01S01827.qfsp    +++|          ZR     X2,FMP8     IF QDUMP UTILITY
01864  M01S01828.qfsp    +++|          ZR     X7,FMP8     IF QMOVE UTILITY
01865  M01S01829.qfsp    +++|          SX4    X5-FNFN
01866  M01S01830.qfsp    +++|          SX1    X5-FNDT
01867  M01S01831.qfsp    +++|          ZR     X4,FMP8     IF QFTLIST OR QALTER
01868  M01S01832.qfsp    +++|          ZR     X1,FMP10.1  IF DFTERM
01869  M01S01833.qfsp    +++|
01870  M01S01834.qfsp    +++|*         SET SPECIFIC DEVICE NUMBER.
01871  M01S01835.qfsp    +++|
01872  M01S01836.qfsp    +++| FMP6     SA5    FPNM        CHECK IF ALL DEVICES NECESSARY
01873  M01S01837.qfsp    +++|          SX7    X5-FNQL
01874  M01S01838.qfsp    +++|          NZ     X7,FMP7     IF NOT QLOAD UTILITY
01875  M01S01839.qfsp    +++|          SA1    PINB+2
01876  M01S01840.qfsp    +++|          ZR     X1,FMP8     IF *DF=ALL* SPECIFIED
01877  M01S01841.qfsp    +++| FMP7     MX0    -18         PROCESS *DD* DIRECTIVE
01878  M01S01842.qfsp    +++|          SA4    FMPC        GET TABLE ENTRY ADDRESS
01879  M01S01843.qfsp    +++|          SA5    X4
01880  M01S01844.qfsp    +++|          BX1    -X0*X5
01881  M01S01845.qfsp    +++|          AX1    12
01882  M01S01846.qfsp    +++|          BX5    X1
01883  M01S01847.qfsp    +++|          LX5    48          SET EST ORDINAL
01884  M01S01848.qfsp    +++|          SX2    X4-TEQP
01885  M01S01849.qfsp    +++|          BX5    X2+X5
01886  M01S01850.qfsp    +++|          RJ     COD
01887  M01S01851.qfsp    +++|          SB3    54
01888  M01S01852.qfsp    +++|          SB2    B3-B2
01889  M01S01853.qfsp    +++|          LX6    6           INSERT B
01890  M01S01854.qfsp    +++|          SX1    1RB-1R
01891  M01S01855.qfsp    +++|          IX6    X1+X6
01892  M01S01856.qfsp    +++|          LX6    B2,X6
01893  M01S01857.qfsp    +++|          SX7    B5          SET ARGUMENT TABLE INDEX
01894  M01S01858.qfsp    +++|          JP     FMP10
01895  M01S01859.qfsp    +++|
01896  M01S01860.qfsp    +++|*         SET DEVICE NUMBER TO ALL.
01897  M01S01861.qfsp    +++|
01898  M01S01862.qfsp    +++| FMP8     SA4    FMPA        SET DEFAULT TO ALL
01899  M01S01863.qfsp    +++|          BX6    X4
01900  M01S01864.qfsp    +++|          SX5    B0
01901  M01S01865.qfsp    +++|          SX7    B5          SET ARGUMENT TABLE INDEX
01902  M01S01866.qfsp    +++|
01903  M01S01867.qfsp    +++|*         SET DEFAULT VALUES IN *PINB* BLOCK.
01904  M01S01868.qfsp    +++|
01905  M01S01869.qfsp    +++| FMP10    SA7    PINB        SET ARGUMENT TABLE INDICES
01906  M01S01870.qfsp    +++|          SB6    X7-ARDN
01907  M01S01871.qfsp    +++|          SA6    A7+B1       SET PRIMARY ENTRY IN *PINB*
01908  M01S01872.qfsp    +++|          BX7    X5
01909  M01S01873.qfsp    +++|          SA7    A6+B1
01910  M01S01874.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01911  M01S01875.qfsp    +++|          NE     B6,FMPX     IF NOT *FM* DIRECTIVE
01912  M01S01876.qfsp    +++|          RJ     DDN         DISPLAY DEVICE NUMBER LIST
01913  M01S01877.qfsp    +++|          BX1    X1-X1       CLEAR ERROR RETURN
01914  M01S01878.qfsp    +++|          JP     FMPX
01915  M01S01879.qfsp    +++|
01916  M01S01880.qfsp    +++|*         SET DEFAULT TO ZERO.
01917  M01S01881.qfsp    +++|
Line S01882 Modification History
M01 (Added by) qfsp
M02 (Updated by) qfsp10
Seq #  *Modification Id* Act 
----------------------------+
01918  M02S01882.qfsp10  ---| FMP10.1  SA4    FMPD        SET DEFAULT TO ZERO
01919  M01S00001.qfsp10  +++| FMP10.1  SA4    FMPC        GET *TEQP* TABLE ENTRY ADDRESS
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/qfsp.txt ยท Last modified: by 127.0.0.1