*HELP COMMAND                                           HEADER  FUPHLP  0001.000
         M.PGM     FUP.HELP,MPX-32,3.6.1,00                             0002.000
         SPACE                                                          0003.000
*                                                                       0004.000
************************************************************************0005.000
*                                                                      *0006.000
*                    PROPRIETARY INFORMATION                           *0007.000
*                    -----------------------                           *0008.000
*   THE INFORMATION CONTAINED HEREIN IS PROPRIETARY TO ENCORE          *0009.000
*   COMPUTER CORPORATION AND/OR ITS VENDORS, AND ITS USE, DISCLOSURE,  *0010.000
*   OR DUPLICATION IS SUBJECT TO THE RESTRICTIONS STATED IN THE        *0011.000
*   STANDARD ENCORE COMPUTER CORPORATION LICENSE TERMS AND CONDITIONS  *0012.000
*   OR THE APPROPRIATE THIRD-PARTY SUBLICENSE AGREEMENT.               *0013.000
*                                                                      *0014.000
*                       RESTRICTED RIGHTS                              *0015.000
*                       -----------------                              *0016.000
*   USE, DUPLICATION, OR DISCLOSURE BY THE GOVERNMENT IS SUBJECT       *0017.000
*   TO RESTRICTIONS AS SET FOURTH IN SUBDIVISION (c) (1) (ii) OF       *0018.000
*   THE RIGHTS IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE AT       *0019.000
*   252.227.7013                                                       *0020.000
************************************************************************0021.000
* (C) COPYRIGHT 1989 ENCORE COMPUTER CORPORATION                       *0022.000
*     ALL RIGHTS RESERVED                                              *0023.000
************************************************************************0024.000
*-                                                                      0025.000
*+                                                                      0026.000
*        FUNCTIONAL DESCRIPTION                                         0027.000
*                                                                       0028.000
*    THIS MODULE CONTAINS ONE OF THE COMMAND PROCESSING ROUTINES        0029.000
*    FOR THE FILE UTILITY PROGRAM FOR THE NEW FILE SYSTEM. THIS         0030.000
*    MODULE HANDLES THE "HELP" COMMAND.                                 0031.000
*-                                                                      0032.000
*+                                                                      0033.000
*        ENVIRONMENT                                                    0034.000
*                                                                       0035.000
*-                                                                      0036.000
*                                                                       0037.000
         DEF       S.HELP                                               0038.000
         M.EQUS                   GENERAL SYSTEM EQUATES                0039.000
         STINIT                                                         0040.000
         BOUND     1W                                                   0041.000
S.STOP   STATE                     STOP PARSING                         0042.000
           TRAN    LAMBDA,,EXIT                                         0043.000
         STATE                                                          0044.000
S.HELP   STATE                                                          0045.000
           TRAN    NOBLNK                                               0046.000
         STATE                                                          0047.000
*                  NO PARAMETERS DO BASIC HELP                          0048.000
           TRAN    EOS,A.HELP,EXIT                                      0049.000
*                  COMMAND TYPE DO BASIC HELP                           0050.000
           TRAN    KEYWD,,,K.HELP,NOB.M                                 0051.000
         STATE                                                          0052.000
S.BACK   STATE                                                          0053.000
           TRAN    NOBLNK                                               0054.000
         STATE                                                          0055.000
           TRAN    KEYWD,,,K.BACK,NOB.M                                 0056.000
         STATE                                                          0057.000
S.CREA   STATE                                                          0058.000
           TRAN    NOBLNK                                               0059.000
         STATE                                                          0060.000
           TRAN    KEYWD,,,K.CREA,NOB.M                                 0061.000
         STATE                                                          0062.000
S.DELE   STATE                                                          0063.000
           TRAN    NOBLNK                                               0064.000
         STATE                                                          0065.000
           TRAN    KEYWD,,,K.DELE,NOB.M                                 0066.000
         STATE                                                          0067.000
S.LOGG   STATE                                                          0068.000
           TRAN    NOBLNK                                               0069.000
         STATE                                                          0070.000
           TRAN    KEYWD,,,K.LOGG,NOB.M                                 0071.000
         STATE                                                          0072.000
S.REST   STATE                                                          0073.000
           TRAN    NOBLNK                                               0074.000
         STATE                                                          0075.000
           TRAN    KEYWD,,,K.REST,NOB.M                                 0076.000
         STATE                                                          0077.000
S.SAVE   STATE                                                          0078.000
           TRAN    NOBLNK                                               0079.000
         STATE                                                          0080.000
           TRAN    EOS,A.QSAVE,EXIT                                     0081.000
           TRAN    KEYWD,,,K.SAVE,NOB.M                                 0082.000
         STATE                                                          0083.000
S.SKIP   STATE                                                          0084.000
           TRAN    NOBLNK                                               0085.000
         STATE                                                          0086.000
           TRAN    KEYWD,,,K.SKIP,NOB.M                                 0087.000
         STATE                                                          0088.000
S.SDTM   STATE                                                          0089.000
           TRAN    NOBLNK                                               0090.000
         STATE                                                          0091.000
           TRAN    EOS,A.QSDTC,EXIT                                     0092.000
           TRAN    KEYWD,,,K.SDTM,NOB.M                                 0093.000
         STATE                                                          0094.000
         TITLE     KEYWORD LIST                                         0095.000
         BOUND     1W                                                   0096.000
K.HELP   EQU       $                                                    0097.000
*                                 COPY COMMAND                          0098.000
         KEYWRD    COPY,A.QCOPY,EXIT,3                                  0099.000
*                                  BACKSPACE COMMAND                    0100.000
         KEYWRD    BACKSPACE,,S.BACK,3                                  0101.000
*                                  CLEAR COMMAND                        0102.000
         KEYWRD    CLEAR,A.QCLEA,EXIT,3                                 0103.000
*                                  CONVERT COMMAND                      0104.000
         KEYWRD    CONVERT,A.QCONV,EXIT,3                               0105.000
*                                  CREATE COMMAND                       0106.000
         KEYWRD    CREATE,,S.CREA,3                                     0107.000
*                                  DELETE COMMAND                       0108.000
         KEYWRD    DELETE,,S.DELE,3                                     0109.000
*                                  EXIT COMMAND                         0110.000
         KEYWRD    EXIT,A.QEXIT,EXIT,3                                  0111.000
*                                  EXTEND COMMAND                       0112.000
         KEYWRD    EXTEND,A.QEXTE,EXIT,3                                0113.000
*                                  LOG COMMAND                          0114.000
         KEYWRD    LOG,,S.LOGG,3                                        0115.000
*                                  RENAME COMMAND                       0116.000
         KEYWRD    RENAME,A.QRENA,EXIT,3                                0117.000
*                                  RESTORE COMMAND                      0118.000
         KEYWRD    RESTORE,,S.REST,3                                    0119.000
*                                  REWIND COMMAND              85-0352  0120.000
         KEYWRD    REWIND,A.QREWD,EXIT,3                       85-0352  0121.000
*                                  SAVE COMMAND                         0122.000
         KEYWRD    SAVE,,S.SAVE,3                                       0123.000
*                                  SDT COMMAND                          0124.000
         KEYWRD    SDT,,S.SDTM,3                                        0125.000
*                                  SET COMMAND                          0126.000
         KEYWRD    SET,A.QSETT,EXIT,3                                   0127.000
*                                  SKIP COMMAND                         0128.000
         KEYWRD    SKIP,,S.SKIP,3                                       0129.000
*                                  TRUNCATE COMMAND                     0130.000
         KEYWRD    TRUNCATE,A.QTRUN,EXIT,3                              0131.000
         DATAW     0                                                    0132.000
K.BACK   EQU       $                                                    0133.000
*                                  BACKSPACE FILE COMMAND               0134.000
         KEYWRD    FILE,A.QBACK,EXIT,1                                  0135.000
*                                  BACKSPACE IMAGE COMMAND              0136.000
         KEYWRD    IMAGE,A.QBACI,EXIT,1                                 0137.000
         DATAW     0                                                    0138.000
K.CREA   EQU       $                                                    0139.000
*                                  CREATE COMMON COMMAND                0140.000
         KEYWRD    COMMON,A.QCREC,EXIT,1                                0141.000
*                                  CREATE DIRECTORY COMMAND             0142.000
         KEYWRD    DIRECTORY,A.QCRED,EXIT,1                             0143.000
*                                  CREATE FILE COMMAND                  0144.000
         KEYWRD    FILE,A.QCREF,EXIT,1                                  0145.000
         DATAW     0                                                    0146.000
K.DELE   EQU       $                                                    0147.000
*                                  DELETE COMMON COMMAND                0148.000
         KEYWRD    COMMON,A.QDELC,EXIT,1                                0149.000
*                                  DELETE DIRECTORY COMMAND             0150.000
         KEYWRD    DIRECTORY,A.QDELD,EXIT,1                             0151.000
*                                  DELETE FILE COMMAND                  0152.000
         KEYWRD    FILE,A.QDELF,EXIT,1                                  0153.000
         DATAW     0                                                    0154.000
K.LOGG   EQU       $                                                    0155.000
*                                  LOG FILE COMMAND                     0156.000
         KEYWRD    FILE,A.QLOGF,EXIT,1                                  0157.000
*                                  LOG IMAGE COMMAND                    0158.000
         KEYWRD    IMAGE,A.QLOGI,EXIT,1                                 0159.000
*                                  LOG RSOURCE COMMAND                  0160.000
         KEYWRD    RESOURCE,A.QLOGR,EXIT,1                              0161.000
*                                  LOG SAVEFILE COMMAND                 0162.000
         KEYWRD    SAVEFILE,A.QLOGS,EXIT,1                              0163.000
         DATAW     0                                                    0164.000
K.REST   EQU       $                                                    0165.000
*                                  RESTORE DIRECTORY COMMAND            0166.000
         KEYWRD    DIRECTORY,A.QRESD,EXIT,1                             0167.000
*                                  RESTORE POSITION COMMAND             0168.000
         KEYWRD    POSITION,A.QRESP,EXIT,1                              0169.000
         DATAW     0                                                    0170.000
K.SAVE   EQU       $                                                    0171.000
*                                  SAVE INCREMENTAL COMMAND             0172.000
         KEYWRD    INCREMENTAL,A.QSAVI,EXIT,1                           0173.000
         DATAW     0                                                    0174.000
K.SKIP   EQU       $                                                    0175.000
*                                  SKIP END COMMAND                     0176.000
         KEYWRD    END,A.QSKIP,EXIT,1                                   0177.000
*                                  SKIP FILE COMMAND                    0178.000
         KEYWRD    FILE,A.QSKIF,EXIT,1                                  0179.000
*                                  SKIP IMAGE COMMAND                   0180.000
         KEYWRD    IMAGE,A.QSKII,EXIT,1                                 0181.000
         DATAW     0                                                    0182.000
K.SDTM   EQU       $                                                    0183.000
*                                  SDT MASTER COMMAND                   0184.000
         KEYWRD    MASTER,A.QSDTM,EXIT,1                                0185.000
         DATAW     0                                                    0186.000
         TITLE     HELP CODE                                            0187.000
A.HELP   EQU       $                                                    0188.000
         STF       R0,REGS0                                             0189.000
         LA        R2,HELP1TCW                                          0190.000
         LI        R4,HMAXTCW                                           0191.000
         LI        R5,X'20'        GET A BLANK                          0192.000
         LI        R7,X'40'        GET A @ SIGN FOR CRLF DELIMITING     0193.000
         TRN       R4,R4                                                0194.000
LOOPH    EQU       $                                                    0195.000
         LW        R6,0,X2                                              0196.000
         STW       R6,FCBOUT+1W                                         0197.000
         TRR       R6,R1           MOVE ADDR. TO R1                     0198.000
         ANMW      R1,=X'000FFFFF' STRIP OFF COUNT FROM TCW             0199.000
         SRL       R6,20           SHIFT COUNT DOWN                     0200.000
         ADR       R6,R1           POINT R1 TO LAST CHAR IN BUFFER      0201.000
         TRR       R1,R3           SAVE ADDR. IN R3                     0202.000
         LB        R6,0,X1         GET 1ST CHARACTER IN NEXT BUFFER     0203.000
         CI        R6,X'40'        IS IT AN @,IF SO THEN NO CRLF        0204.000
         BNE       DOCR            IF NOT DO CRLF                       0205.000
         SBR       R5,0            INDICATE CRLF NOT TO BE DONE         0206.000
         STB       R5,0,X1         REMOVE @ AND REPLACE WITH SPACE      0207.000
DOCR     M.WRIT    FCBOUT                                               0208.000
         TBR       R5,0            @ REMOVAL PERFORMED ?                0209.000
         BNS       NOCRFL          NO, THEN DONT PUT IT BACK            0210.000
         STB       R7,0,X3         OTHER WISE REPLACE @ SIGN            0211.000
NOCRFL   TBM       7,FCBOUT+3W                                          0212.000
         BS        ENDLOOPH        NON-CR                               0213.000
         ZBR       R5,0            DID WE WANT A CRLF ?                 0214.000
         BS        NOCR            IF IT WAS SET THEN NO CRLF           0215.000
         LW        R6,CRLFTCW      GET CR/LF TCW                        0216.000
         STW       R6,FCBOUT+1W    SAVE IT INTO FCB                     0217.000
         M.WRIT    FCBOUT          WRITE A CRLF                         0218.000
         TBM       7,FCBOUT+3W                                          0219.000
         BS        ENDLOOPH        NON-CR                               0220.000
NOCR     ADI       R2,4                                                 0221.000
         BIB       R4,LOOPH                                             0222.000
         LF        R0,REGS0        RESTORE REGISTER                     0223.000
         TRSW      R0              RETURN TO TPARSE                     0224.000
ENDLOOPH EQU       $               NON-CR                               0225.000
         LF        R0,REGS0                                             0226.000
         ADI       R0,4            ERROR RETURN ADDRESS                 0227.000
         LA        R3,S.STOP       STOP STATE TABLE ADDRESS             0228.000
         TRSW      R0                                                   0229.000
         TITLE     HELP COPY CODE                                       0230.000
A.QCOPY  EQU       $                                                    0231.000
         STF       R0,REGS0                                             0232.000
         LA        R2,COPY1TCW                                          0233.000
         LI        R4,CMAXTCW                                           0234.000
         TRN       R4,R4                                                0235.000
LOOPR    EQU       $                                                    0236.000
         LW        R6,0,X2                                              0237.000
         STW       R6,FCBOUT+1W                                         0238.000
         M.WRIT    FCBOUT                                               0239.000
         TBM       7,FCBOUT+3W                                          0240.000
         BS        ENDLOOPR        NON-CR                               0241.000
         ADI       R2,4                                                 0242.000
         BIB       R4,LOOPR                                             0243.000
         LF        R0,REGS0        RESTORE REGISTER                     0244.000
         TRSW      R0              RETURN STATUS                        0245.000
ENDLOOPR EQU       $               NON-CR                               0246.000
         LF        R0,REGS0                                             0247.000
         ADI       R0,4            ERROR RETURN ADDRESS                 0248.000
         LA        R3,S.STOP       STOP STATE TABLE ADDRESS             0249.000
         TRSW      R0                                                   0250.000
         TITLE     HELP BACKSPACE FILE CODE                             0251.000
A.QBACK  EQU       $                                                    0252.000
         STF       R0,REGS0                                             0253.000
         LA        R2,BACK1TCW                                          0254.000
         LI        R4,BMAXTCW                                           0255.000
         TRN       R4,R4                                                0256.000
         BU        LOOPR                                                0257.000
         TITLE     HELP BACKSPACE IMAGE CODE                            0258.000
A.QBACI  EQU       $                                                    0259.000
         STF       R0,REGS0                                             0260.000
         LA        R2,BACI1TCW                                          0261.000
         LI        R4,IMAXTCW                                           0262.000
         TRN       R4,R4                                                0263.000
         BU        LOOPR                                                0264.000
         TITLE     HELP CLEAR CODE                                      0265.000
A.QCLEA  EQU       $                                                    0266.000
         STF       R0,REGS0                                             0267.000
         LA        R2,CLEA1TCW                                          0268.000
         LI        R4,UMAXTCW                                           0269.000
         TRN       R4,R4                                                0270.000
         BU        LOOPR                                                0271.000
         TITLE     HELP CONVERT CODE                                    0272.000
A.QCONV  EQU       $                                                    0273.000
         STF       R0,REGS0                                             0274.000
         LA        R2,CONV1TCW                                          0275.000
         LI        R4,VMAXTCW                                           0276.000
         TRN       R4,R4                                                0277.000
         BU        LOOPR                                                0278.000
         TITLE     HELP CREATE COMMON CODE                              0279.000
A.QCREC  EQU       $                                                    0280.000
         STF       R0,REGS0                                             0281.000
         LA        R2,CREC1TCW                                          0282.000
         LI        R4,OMAXTCW                                           0283.000
         TRN       R4,R4                                                0284.000
         BU        LOOPR                                                0285.000
         TITLE     HELP CREATE DIRECTORY CODE                           0286.000
A.QCRED  EQU       $                                                    0287.000
         STF       R0,REGS0                                             0288.000
         LA        R2,CRED1TCW                                          0289.000
         LI        R4,DMAXTCW                                           0290.000
         TRN       R4,R4                                                0291.000
         BU        LOOPR                                                0292.000
         TITLE     HELP CREATE FILE CODE                                0293.000
A.QCREF  EQU       $                                                    0294.000
         STF       R0,REGS0                                             0295.000
         LA        R2,CREF1TCW                                          0296.000
         LI        R4,FMAXTCW                                           0297.000
         TRN       R4,R4                                                0298.000
         BU        LOOPR                                                0299.000
         TITLE     HELP DELETE COMMON CODE                              0300.000
A.QDELC  EQU       $                                                    0301.000
         STF       R0,REGS0                                             0302.000
         LA        R2,DELC1TCW                                          0303.000
         LI        R4,NMAXTCW                                           0304.000
         TRN       R4,R4                                                0305.000
         BU        LOOPR                                                0306.000
         TITLE     HELP DELETE DIRECTORY CODE                           0307.000
A.QDELD  EQU       $                                                    0308.000
         STF       R0,REGS0                                             0309.000
         LA        R2,DELD1TCW                                          0310.000
         LI        R4,TMAXTCW                                           0311.000
         TRN       R4,R4                                                0312.000
         BU        LOOPR                                                0313.000
         TITLE     HELP DELETE FILE CODE                                0314.000
A.QDELF  EQU       $                                                    0315.000
         STF       R0,REGS0                                             0316.000
         LA        R2,DELF1TCW                                          0317.000
         LI        R4,LMAXTCW                                           0318.000
         TRN       R4,R4                                                0319.000
         BU        LOOPR                                                0320.000
         TITLE     HELP EXIT CODE                                       0321.000
A.QEXIT  EQU       $                                                    0322.000
         STF       R0,REGS0                                             0323.000
         LA        R2,EXIT1TCW                                          0324.000
         LI        R4,XMAXTCW                                           0325.000
         TRN       R4,R4                                                0326.000
         BU        LOOPR                                                0327.000
         TITLE     HELP EXTEND CODE                                     0328.000
A.QEXTE  EQU       $                                                    0329.000
         STF       R0,REGS0                                             0330.000
         LA        R2,EXTE1TCW                                          0331.000
         LI        R4,EMAXTCW                                           0332.000
         TRN       R4,R4                                                0333.000
         BU        LOOPR                                                0334.000
         TITLE     HELP LOG FILE CODE                                   0335.000
A.QLOGF  EQU       $                                                    0336.000
         STF       R0,REGS0                                             0337.000
         LA        R2,LOGF1TCW                                          0338.000
         LI        R4,JMAXTCW                                           0339.000
         TRN       R4,R4                                                0340.000
         BU        LOOPR                                                0341.000
         TITLE     HELP LOG IMAGE CODE                                  0342.000
A.QLOGI  EQU       $                                                    0343.000
         STF       R0,REGS0                                             0344.000
         LA        R2,LOGI1TCW                                          0345.000
         LI        R4,GMAXTCW                                           0346.000
         TRN       R4,R4                                                0347.000
         BU        LOOPR                                                0348.000
         TITLE     HELP LOG RESOURCE CODE                               0349.000
A.QLOGR  EQU       $                                                    0350.000
         STF       R0,REGS0                                             0351.000
         LA        R2,LOGR1TCW                                          0352.000
         LI        R4,PMAXTCW                                           0353.000
         TRN       R4,R4                                                0354.000
         BU        LOOPR                                                0355.000
         TITLE     HELP LOG SAVEFILE CODE                               0356.000
A.QLOGS  EQU       $                                                    0357.000
         STF       R0,REGS0                                             0358.000
         LA        R2,LOGS1TCW                                          0359.000
         LI        R4,SMAXTCW                                           0360.000
         TRN       R4,R4                                                0361.000
         BU        LOOPR                                                0362.000
         TITLE     HELP RENAME CODE                                     0363.000
A.QRENA  EQU       $                                                    0364.000
         STF       R0,REGS0                                             0365.000
         LA        R2,RENA1TCW                                          0366.000
         LI        R4,APAXTCW                                           0367.000
         TRN       R4,R4                                                0368.000
         BU        LOOPR                                                0369.000
         TITLE     HELP RESTORE DIRECTORY CODE                          0370.000
A.QRESD  EQU       $                                                    0371.000
         STF       R0,REGS0                                             0372.000
         LA        R2,RESD1TCW                                          0373.000
         LI        R4,WMAXTCW                                           0374.000
         TRN       R4,R4                                                0375.000
         BU        LOOPR                                                0376.000
         TITLE     HELP RESTORE POSITION CODE                           0377.000
A.QRESP  EQU       $                                                    0378.000
         STF       R0,REGS0                                             0379.000
         LA        R2,RESP1TCW                                          0380.000
         LI        R4,BPAXTCW                                           0381.000
         TRN       R4,R4                                                0382.000
         BU        LOOPR                                                0383.000
         TITLE     HELP REWIND CODE                            85-0352  0384.000
A.QREWD  EQU       $                                           85-0352  0385.000
         STF       R0,REGS0                                    85-0352  0386.000
         LA        R2,REWD1TCW                                 85-0352  0387.000
         LI        R4,QMAXTCW                                  85-0352  0388.000
         TRN       R4,R4                                       85-0352  0389.000
         BU        LOOPR                                       85-0352  0390.000
         TITLE     HELP SAVE CODE                                       0391.000
A.QSAVE  EQU       $                                                    0392.000
         STF       R0,REGS0                                             0393.000
         LA        R2,SAVE1TCW                                          0394.000
         LI        R4,ZMAXTCW                                           0395.000
         TRN       R4,R4                                                0396.000
         BU        LOOPR                                                0397.000
         TITLE     HELP SAVE INCREMENTAL CODE                           0398.000
A.QSAVI  EQU       $                                                    0399.000
         STF       R0,REGS0                                             0400.000
         LA        R2,SAVI1TCW                                          0401.000
         LI        R4,CPAXTCW                                           0402.000
         TRN       R4,R4                                                0403.000
         BU        LOOPR                                                0404.000
         TITLE     HELP SDT CODE                                        0405.000
A.QSDTC  EQU       $                                                    0406.000
         STF       R0,REGS0                                             0407.000
         LA        R2,SDTC1TCW                                          0408.000
         LI        R4,DPAXTCW                                           0409.000
         TRN       R4,R4                                                0410.000
         BU        LOOPR                                                0411.000
         TITLE     HELP SDT MASTER CODE                                 0412.000
A.QSDTM  EQU       $                                                    0413.000
         STF       R0,REGS0                                             0414.000
         LA        R2,SDTM1TCW                                          0415.000
         LI        R4,EPAXTCW                                           0416.000
         TRN       R4,R4                                                0417.000
         BU        LOOPR                                                0418.000
         TITLE     HELP SET COMMAND CODE                                0419.000
A.QSETT  EQU       $                                                    0420.000
         STF       R0,REGS0                                             0421.000
         LA        R2,SETT1TCW                                          0422.000
         LI        R4,RMAXTCW                                           0423.000
         TRN       R4,R4                                                0424.000
         BU        LOOPR                                                0425.000
         TITLE     HELP SKIP END CODE                                   0426.000
A.QSKIP  EQU       $                                                    0427.000
         STF       R0,REGS0                                             0428.000
         LA        R2,SKIP1TCW                                          0429.000
         LI        R4,FPAXTCW                                           0430.000
         TRN       R4,R4                                                0431.000
         BU        LOOPR                                                0432.000
         TITLE     HELP SKIP FILE CODE                                  0433.000
A.QSKIF  EQU       $                                                    0434.000
         STF       R0,REGS0                                             0435.000
         LA        R2,SKIF1TCW                                          0436.000
         LI        R4,GPAXTCW                                           0437.000
         TRN       R4,R4                                                0438.000
         BU        LOOPR                                                0439.000
         TITLE     HELP SKIP IMAGE CODE                                 0440.000
A.QSKII  EQU       $                                                    0441.000
         STF       R0,REGS0                                             0442.000
         LA        R2,SKII1TCW                                          0443.000
         LI        R4,HPAXTCW                                           0444.000
         TRN       R4,R4                                                0445.000
         BU        LOOPR                                                0446.000
         TITLE     HELP TRUNCATE CODE                                   0447.000
A.QTRUN  EQU       $                                                    0448.000
         STF       R0,REGS0                                             0449.000
         LA        R2,TRUN1TCW                                          0450.000
         LI        R4,IPAXTCW                                           0451.000
         TRN       R4,R4                                                0452.000
         BU        LOOPR                                                0453.000
         TITLE     HELP MESSAGES                                        0454.000
HELP1    DATAB     C' HELP CAN BE INVOKED TO OBTAIN A SHORT'            0455.000
         DATAB     C' DESCRIPTION OF'                                   0456.000
HELP1LEN EQU       $-HELP1                                              0457.000
HELP2    DATAB     C'@VARIOUS SERVICES APPLICABLE TO THE MPX-32'        0458.000
         DATAB     C' VOLUME MANAGER'                                   0459.000
HELP2LEN EQU       $-HELP2                                              0460.000
*ELP3    DATAB     C'"J'                                                0461.000
*ELP3LEN EQU       $-HELP3                                              0462.000
HELP4    DATAB     C' THE SERVICE IS INVOKED BY ENTERING HELP'          0463.000
HELP4LEN EQU       $-HELP4                                              0464.000
HELP5    DATAB     C'@FOLLOWED BY THE COMMAND OF INTEREST.'             0465.000
HELP5LEN EQU       $-HELP5                                              0466.000
*ELP6    DATAB     C'"J'                                                0467.000
HELP6    DATAB     C'@     EG. HELP <COMMAND>'                          0468.000
HELP6LEN EQU       $-HELP6                                              0469.000
HELP7    DATAB     C' THE FOLLOWING COMMANDS ARE AVAILABLE:'            0470.000
HELP7LEN EQU       $-HELP7                                              0471.000
HELP3    DATAB     C'@--- --------- -------- --- ----------'            0472.000
HELP3LEN EQU       $-HELP3                                              0473.000
*        DATAB     C'"J'                                                0474.000
HELP8    DATAB     C' BACKSPACE FILE    :MOVES A MAGNETIC TAPE'         0475.000
         DATAB     C' BACKWARD A SPECIFIED NUMBER OF'                   0476.000
HELP8LEN EQU       $-HELP8                                              0477.000
HELP9    DATAB     C'@                   EOF MARKS.'                    0478.000
HELP9LEN EQU       $-HELP9                                              0479.000
HELPA    DATAB     C' BACKSPACE IMAGE   :MOVES A MAGNETIC TAPE'         0480.000
         DATAB     C' BACKWARD A SPECIFIED NUMBER OF'                   0481.000
HELPALEN EQU       $-HELPA                                              0482.000
HELPB    DATAB     C'@                   SAVE IMAGES.'                  0483.000
HELPBLEN EQU       $-HELPB                                              0484.000
HELPC    DATAB     C' CLEAR             :CLEARS DEFAULT OPTION'         0485.000
         DATAB     C' VALUES ESTABLISHED VIA THE SET'                   0486.000
HELPCLEN EQU       $-HELPC                                              0487.000
HELPD    DATAB     C'@                   COMMAND'                       0488.000
HELPDLEN EQU       $-HELPD                                              0489.000
HELPE    DATAB     C' CONVERT           :RESTORES POST RTM 6.0'         0490.000
         DATAB     C' AND ALL MPX-32 FILE MANAGER'                      0491.000
HELPELEN EQU       $-HELPE                                              0492.000
HELPF    DATAB     C'@                   SAVE TAPES TO MPX-32'          0493.000
         DATAB     C' RELEASE 2.0 VOLUME/DIRECTORY'                     0494.000
HELPFLEN EQU       $-HELPF                                              0495.000
HELPG    DATAB     C'@                   STRUCTURE FORMAT.'             0496.000
HELPGLEN EQU       $-HELPG                                              0497.000
HELPH    DATAB     C' COPY              :COPIES FILES TO A'             0498.000
         DATAB     C' SPECIFIED VOLUME OR DIRECTORY.'                   0499.000
HELPHLEN EQU       $-HELPH                                              0500.000
HELPI    DATAB     C' CREATE COMMON     :DEFINES A COMMON AREA'         0501.000
         DATAB     C' TO THE SYSTEM.'                                   0502.000
HELPILEN EQU       $-HELPI                                              0503.000
HELPJ    DATAB     C' CREATE DIRECTORY  :CREATES A DIRECTORY IN'        0504.000
         DATAB     C' THE ROOT DIRECTORY.'                              0505.000
HELPJLEN EQU       $-HELPJ                                              0506.000
HELPK    DATAB     C' CREATE FILE       :CREATES SPECIFIED'             0507.000
         DATAB     C' FILES ON DISC.'                                   0508.000
HELPKLEN EQU       $-HELPK                                              0509.000
HELPL    DATAB     C' DELETE COMMON     :DELETES A COMMON AREA'         0510.000
         DATAB     C' DEFINITION FROM THE SYSTEM.'                      0511.000
HELPLLEN EQU       $-HELPL                                              0512.000
HELPM    DATAB     C' DELETE DIRECTORY  :DELETES A DIRECTORY'           0513.000
         DATAB     C' THAT DOES NOT CONTAIN ANY ACTIVE'                 0514.000
HELPMLEN EQU       $-HELPM                                              0515.000
HELPN    DATAB     C'@                   ENTRIES.'                      0516.000
HELPNLEN EQU       $-HELPN                                              0517.000
HELPO    DATAB     C' DELETE FILE       :DELETES A FILE FROM A'         0518.000
         DATAB     C' DIRECTORY.'                                       0519.000
HELPOLEN EQU       $-HELPO                                              0520.000
HELPP    DATAB     C' EXIT              :TERMINATES THE'                0521.000
         DATAB     C' VOLUME MANAGER UTILITY.'                          0522.000
HELPPLEN EQU       $-HELPP                                              0523.000
HELPQ    DATAB     C' EXTEND            :INCREASES THE AMOUNT'          0524.000
         DATAB     C' OF SPACE ALLOCATED TO AN EXISTING'                0525.000
HELPQLEN EQU       $-HELPQ                                              0526.000
HELPR    DATAB     C'@                   FILE.'                         0527.000
HELPRLEN EQU       $-HELPR                                              0528.000
HELPS    DATAB     C' LOG FILE          :PRODUCES A LISTING OF'         0529.000
         DATAB     C' SPECIFIED DISC FILES.'                            0530.000
HELPSLEN EQU       $-HELPS                                              0531.000
HELPT    DATAB     C' LOG IMAGE         :PRODUCES A LISTING OF'         0532.000
         DATAB     C' ALL SAVED FILES IN THE CURRENT SAVE'              0533.000
HELPTLEN EQU       $-HELPT                                              0534.000
HELPU    DATAB     C'@                   TAPE IMAGE.'                   0535.000
HELPULEN EQU       $-HELPU                                              0536.000
HELPV    DATAB     C' LOG RESOURCE      :PRODUCES A LISTING'            0537.000
         DATAB     C' OF A RESOURCE.'                                   0538.000
HELPVLEN EQU       $-HELPV                                              0539.000
HELPW    DATAB     C' LOG SAVEFILE      :PRODUCES A RESOURCE'           0540.000
         DATAB     C' DESCRIPTOR TAPE RECORD (RDTR)'                    0541.000
HELPWLEN EQU       $-HELPW                                              0542.000
HELPX    DATAB     C'@                   FROM A SAVE TAPE.'             0543.000
HELPXLEN EQU       $-HELPX                                              0544.000
HELPY    DATAB     C' RENAME            :CHANGES THE NAME OF'           0545.000
         DATAB     C' AN EXISTING FILE.'                                0546.000
HELPYLEN EQU       $-HELPY                                              0547.000
HELPZ    DATAB     C' RESTORE DIRECTORY :RESTORES FILES FROM A'         0548.000
         DATAB     C' MAGNETIC TAPE TO DISC.'                           0549.000
HELPZLEN EQU       $-HELPZ                                              0550.000
HELL1    DATAB     C' RESTORE POSITION  :RESTORES ONE FILE FROM'        0551.000
         DATAB     C' A MAGNETIC TAPE TO DISC.'                         0552.000
HELL1LEN EQU       $-HELL1                                              0553.000
HELL2    DATAB     C' REWIND            :POSITIONS A MAGNETIC'          0554.000
         DATAB     C' TAPE TO BEGINNING OF TAPE.'                       0555.000
HELL2LEN EQU       $-HELL2                                              0556.000
HELL3    DATAB     C' SAVE              :SAVES SPECIFIED FILES'         0557.000
         DATAB     C' TO MAGNETIC TAPE.'                                0558.000
HELL3LEN EQU       $-HELL3                                              0559.000
HELL4    DATAB     C' SAVE INCREMENTAL  :SAVES FILES CREATED OR'        0560.000
         DATAB     C' MODIFIED SINCE THE LAST SAVE WAS'                 0561.000
HELL4LEN EQU       $-HELL4                                              0562.000
HELL5    DATAB     C'@                   PERFORMED.'                    0563.000
HELL5LEN EQU       $-HELL5                                              0564.000
HELL6    DATAB     C' SDT               :PRODUCES A SYSTEM'             0565.000
         DATAB     C' DISTRIBUTION TAPE.'                               0566.000
HELL6LEN EQU       $-HELL6                                              0567.000
HELL7    DATAB     C' SDT MASTER        :PRODUCES A MASTER'             0568.000
         DATAB     C' SYSTEM DISTRIBUTION TAPE.'                        0569.000
HELL7LEN EQU       $-HELL7                                              0570.000
HELL8    DATAB     C' SET               :ESTABLISHES GLOBAL'            0571.000
         DATAB     C' DEFAULT OPTION VALUES.'                           0572.000
HELL8LEN EQU       $-HELL8                                              0573.000
HELL9    DATAB     C' SKIP END          :POSITION A MAGNETIC'           0574.000
         DATAB     C' TAPE TO ITS LOGICAL END-OF-TAPE.'                 0575.000
HELL9LEN EQU       $-HELL9                                              0576.000
HELLA    DATAB     C' SKIP FILE         :MOVES A MAGNETIC TAPE'         0577.000
         DATAB     C' FORWARD A SPECIFIED NUMBER OF'                    0578.000
HELLALEN EQU       $-HELLA                                              0579.000
HELLB    DATAB     C'@                   EOF MARKS.'                    0580.000
HELLBLEN EQU       $-HELLB                                              0581.000
HELLC    DATAB     C' SKIP IMAGE        :MOVES A MAGNETIC TAPE'         0582.000
         DATAB     C' FORWARD A SPECIFIED NUMBER OF'                    0583.000
HELLCLEN EQU       $-HELLC                                              0584.000
HELLD    DATAB     C'@                   SAVE IMAGES.'                  0585.000
HELLDLEN EQU       $-HELLD                                              0586.000
HELLE    DATAB     C' TRUNCATE          :DECREASES THE AMOUNT'          0587.000
         DATAB     C' OF SPACE ALLOCATED TO AN EXISTING'                0588.000
HELLELEN EQU       $-HELLE                                              0589.000
HELLF    DATAB     C'@                   FILE.'                         0590.000
HELLFLEN EQU       $-HELLF                                              0591.000
CRLF     DATAB     C'"M'                                                0592.000
CRLFLEN  EQU       $-CRLF                                               0593.000
         TITLE     COPY MESSAGES                                        0594.000
COPY1    DATAB     C' COPY COMMAND'                                     0595.000
         DATAB     C'"M"J------------'                                  0596.000
COPY1LEN EQU       $-COPY1                                              0597.000
COPY2    DATAB     C' SYNTAX:'                                          0598.000
COPY2LEN EQU       $-COPY2                                              0599.000
COPY3    DATAB     C' COPY [FROM=] PATHNAME [TO=] PATHNAME'             0600.000
         DATAB     C' [SIZE=N]'                                         0601.000
COPY3LEN EQU       $-COPY3                                              0602.000
COPY4    DATAB     C'"M"J[OWNER=NAME] [PROJECTGROUP=NAME]'              0603.000
         DATAB     C' [START=N]'                                        0604.000
COPY4LEN EQU       $-COPY4                                              0605.000
COPY5    DATAB     C'"M"J[MAXINC=N] [MININC=N] [MAXSIZE=N]'             0606.000
         DATAB     C' [FAST=BOOL] [BRIEF=BOOL]'                         0607.000
COPY5LEN EQU       $-COPY5                                              0608.000
COPY6    DATAB     C'"M"J[REPLACE=BOOL] [SHARED=BOOL]'                  0609.000
         DATAB     C' [NOSAVE=BOOL] [ZERO=BOOL]'                        0610.000
COPY6LEN EQU       $-COPY6                                              0611.000
COPY7    DATAB     C'"M"J[EOFM=BOOL][AUTOEXT=BOOL][MANEXT=BOOL]'        0612.000
         DATAB     C' [CONTIGUOUS=BOOL]'                                0613.000
COPY7LEN EQU       $-COPY7                                              0614.000
COPY8    DATAB     C'"M"J[ACCESS= {OWNER       } ([READ][WRITE]'        0615.000
         DATAB     C' [UPDATE][MODIFY][APPEND][DELETE])]'               0616.000
COPY8LEN EQU       $-COPY8                                              0617.000
COPY9    DATAB     C'          {PROJECTGROUP}'                          0618.000
COPY9LEN EQU       $-COPY9                                              0619.000
COPYA    DATAB     C'          {OTHER       }'                          0620.000
COPYALEN EQU       $-COPYA                                              0621.000
         TITLE     BACKSPACE FILE MESSAGE                               0622.000
BACK1    DATAB     C' BACKSPACE FILE COMMAND'                           0623.000
         DATAB     C'"M"J----------------------'                        0624.000
BACK1LEN EQU       $-BACK1                                              0625.000
BACK2    DATAB     C' SYNTAX'                                           0626.000
BACK2LEN EQU       $-BACK2                                              0627.000
BACK3    DATAB     C' BACKSPACE FILE [[FILES=]N]'                       0628.000
BACK3LEN EQU       $-BACK3                                              0629.000
BACK4    DATAB     C'"M"JFILES=    SPECIFIES THE NUMBER OF EOF'         0630.000
         DATAB     C' MARKS TO BACKSPACE. IF NOT'                       0631.000
BACK4LEN EQU       $-BACK4                                              0632.000
BACK5    DATAB     C'            SPECIFIED,DEFAULT IS 1.'               0633.000
BACK5LEN EQU       $-BACK5                                              0634.000
         TITLE     BACKSPACE IMAGE MESSAGE                              0635.000
BACI1    DATAB     C' BACKSPACE IMAGE COMMAND'                          0636.000
         DATAB     C'"M"J-----------------------'                       0637.000
BACI1LEN EQU       $-BACI1                                              0638.000
BACI2    DATAB     C' SYNTAX:'                                          0639.000
BACI2LEN EQU       $-BACI2                                              0640.000
BACI3    DATAB     C' BACKSPACE [IMAGE] [[IMAGES=]N]'                   0641.000
BACI3LEN EQU       $-BACI3                                              0642.000
BACI4    DATAB     C'"M"JIMAGES=     SPECIFIES THE NUMBER OF SAVE'      0643.000
         DATAB     C' IMAGES TO BACKSPACE. IF NOT'                      0644.000
BACI4LEN EQU       $-BACI4                                              0645.000
BACI5    DATAB     C'             SPECIFIED, DEFAULT IS 1.'             0646.000
BACI5LEN EQU       $-BACI5                                              0647.000
         TITLE     CLEAR MESSAGE                                        0648.000
CLEA1    DATAB     C' CLEAR COMMAND'                                    0649.000
         DATAB     C'"M"J-------------'                                 0650.000
CLEA1LEN EQU       $-CLEA1                                              0651.000
CLEA2    DATAB     C' SYNTAX:'                                          0652.000
CLEA2LEN EQU       $-CLEA2                                              0653.000
CLEA3    DATAB     C' CLEAR'                                            0654.000
CLEA3LEN EQU       $-CLEA3                                              0655.000
         TITLE     CONVERT MESSAGE                                      0656.000
CONV1    DATAB     C' CONVERT COMMAND'                                  0657.000
         DATAB     C'"M"J---------------'                               0658.000
CONV1LEN EQU       $-CONV1                                              0659.000
CONV2    DATAB     C' SYNTAX:'                                          0660.000
CONV2LEN EQU       $-CONV2                                              0661.000
CONV3    DATAB     C' CONVERT [[VOLUME=]VOLNAME] [BRIEF=BOOL]'          0662.000
CONV3LEN EQU       $-CONV3                                              0663.000
         TITLE     CREATE COMMON MESSAGE                                0664.000
CREC1    DATAB     C' CREATE COMMON COMMAND'                            0665.000
         DATAB     C'"M"J----------------------'                        0666.000
CREC1LEN EQU       $-CREC1                                              0667.000
CREC2    DATAB     C' SYNTAX:'                                          0668.000
CREC2LEN EQU       $-CREC2                                              0669.000
CREC3    DATAB     C' CREATE COMMON [PATH=]PATHNAME'                    0670.000
         DATAB     C' [PROTGRAN=]N'                                     0671.000
CREC3LEN EQU       $-CREC3                                              0672.000
CREC4    DATAB     C'"M"J[FIRSTPAGE=]N [PROJECTGROUP=NAME]'             0673.000
         DATAB     C' [OWNER=NAME]'                                     0674.000
CREC4LEN EQU       $-CREC4                                              0675.000
CREC5    DATAB     C'"M"J                         {E}'                  0676.000
CREC5LEN EQU       $-CREC5                                              0677.000
CREC6    DATAB     C' [REPLACE=BOOL] [MEMCLASS={H}] [BRIEF=BOOL]'       0678.000
CREC6LEN EQU       $-CREC6                                              0679.000
CREC7    DATAB     C'                          {S}'                     0680.000
CREC7LEN EQU       $-CREC7                                              0681.000
CREC8    DATAB     C'"M"J[ACCESS= {OWNER       } ([READ] [WRITE]'       0682.000
         DATAB     C' [DELETE])]'                                       0683.000
CREC8LEN EQU       $-CREC8                                              0684.000
CREC9    DATAB     C'          {PROJECTGROUP}'                          0685.000
CREC9LEN EQU       $-CREC9                                              0686.000
CRECA    DATAB     C'          {OTHER       }'                          0687.000
CRECALEN EQU       $-CRECA                                              0688.000
         TITLE     CREATE DIRECTORY COMMAND                             0689.000
CRED1    DATAB     C' CREATE DIRECTORY COMMAND'                         0690.000
         DATAB     C'"M"J------------------------'                      0691.000
CRED1LEN EQU       $-CRED1                                              0692.000
CRED2    DATAB     C' CREATE DIRECTORY [PATH=]PATHNAME'                 0693.000
         DATAB     C' [ENTRIES=N][BRIEF=BOOL]'                          0694.000
CRED2LEN EQU       $-CRED2                                              0695.000
CRED3    DATAB     C'"M"J[OWNER=NAME] [PROJECTGROUP=NAME]'              0696.000
         DATAB     C' [SHARED=BOOL]'                                    0697.000
CRED3LEN EQU       $-CRED3                                              0698.000
CRED4    DATAB     C'"M"J[ACCESS= {OWNER       } ([READ][DELDIR]'       0699.000
         DATAB     C' [DELENT][ADD][TRAVERSE])]'                        0700.000
CRED4LEN EQU       $-CRED4                                              0701.000
CRED5    DATAB     C'          {PROJECTGROUP}'                          0702.000
CRED5LEN EQU       $-CRED5                                              0703.000
CRED6    DATAB     C'          {OTHER       }'                          0704.000
CRED6LEN EQU       $-CRED6                                              0705.000
         TITLE     CREATE FILE MESSAGE                                  0706.000
CREF1    DATAB     C' CREATE FILE COMMAND'                              0707.000
         DATAB     C'"M"J-------------------'                           0708.000
CREF1LEN EQU       $-CREF1                                              0709.000
CREF2    DATAB     C' SYNTAX'                                           0710.000
CREF2LEN EQU       $-CREF2                                              0711.000
CREF3    DATAB     C' CREATE [FILE] [PATH=]PATHNAME [SIZE=N]'           0712.000
*        DATAB     C' [BRIEF=BOOL]'                             EVOMC33 0713.000
         DATAB     C' [SEGNUM=N] [BRIEF=BOOL]'                  EVOMC33 0714.000
CREF3LEN EQU       $-CREF3                                              0715.000
CREF4    DATAB     C' [OWNER=NAME] [PROJECTGROUP=NAME] [START=N]'       0716.000
CREF4LEN EQU       $-CREF4                                              0717.000
CREF5    DATAB     C' [MAXINC=N] [MININC=N] [MAXSIZE=N]'                0718.000
         DATAB     C' [FAST=BOOL]'                                      0719.000
CREF5LEN EQU       $-CREF5                                              0720.000
CREF6    DATAB     C' [REPLACE=BOOL][SHARED=BOOL][NOSAVE=BOOL]'         0721.000
         DATAB     C' [ZERO=BOOL]'                                      0722.000
CREF6LEN EQU       $-CREF6                                              0723.000
CREF7    DATAB     C' [EOFM=BOOL][AUTOEXT=BOOL] [MANEXT=BOOL]'          0724.000
         DATAB     C' [CONTIGUOUS=BOOL]'                                0725.000
CREF7LEN EQU       $-CREF7                                              0726.000
CREF8    DATAB     C' [ACCESS={OWNER       }([READ][WRITE][UPDATE]'     0727.000
         DATAB     C' [MODIFY][APPEND][DELETE])]'                       0728.000
CREF8LEN EQU       $-CREF8                                              0729.000
CREF9    DATAB     C'         {PROJECTGROUP}'                           0730.000
CREF9LEN EQU       $-CREF9                                              0731.000
CREFA    DATAB     C'         {OTHER       }'                           0732.000
CREFALEN EQU       $-CREFA                                              0733.000
         TITLE     DELETE COMMON COMMAND                                0734.000
DELC1    DATAB     C' DELETE COMMON COMMAND'                            0735.000
         DATAB     C'"M"J---------------------'                         0736.000
DELC1LEN EQU       $-DELC1                                              0737.000
DELC2    DATAB     C' SYNTAX:'                                          0738.000
DELC2LEN EQU       $-DELC2                                              0739.000
DELC3    DATAB     C' DELETE COMMON [PATH=]PATHNAME [CONFIRM=BOOL]'     0740.000
         DATAB     C' [BRIEF=BOOL]'                                     0741.000
DELC3LEN EQU       $-DELC3                                              0742.000
DELC4    DATAB     C'           {SINCE MM/DD/YY,HH:NN:SS }]'            0743.000
DELC4LEN EQU       $-DELC4                                              0744.000
DELC5    DATAB     C' [CREATED= {BEFORE DD-MON-YY,HH:NNSS}]'            0745.000
DELC5LEN EQU       $-DELC5                                              0746.000
         TITLE     DELETE DIRECTORY MESSAGE                             0747.000
DELD1    DATAB     C' DELETE DIRECTORY COMMAND'                         0748.000
         DATAB     C'"M"J------------------------'                      0749.000
DELD1LEN EQU       $-DELD1                                              0750.000
DELD2    DATAB     C' SYNTAX:'                                          0751.000
DELD2LEN EQU       $-DELD2                                              0752.000
DELD3    DATAB     C' DELETE DIRECTORY [PATH=]PATHNAME'                 0753.000
         DATAB     C' [CONFIRM=BOOL] [BRIEF=BOOL]'                      0754.000
DELD3LEN EQU       $-DELD3                                              0755.000
DELD4    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0756.000
DELD4LEN EQU       $-DELD4                                              0757.000
DELD5    DATAB     C' [{CREATED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0758.000
DELD5LEN EQU       $-DELD5                                              0759.000
DELD6    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0760.000
DELD6LEN EQU       $-DELD6                                              0761.000
DELD7    DATAB     C' [{CHANGED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0762.000
DELD7LEN EQU       $-DELD7                                              0763.000
DELD8    DATAB C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]' ELAC-35 0764.000
DELD8LEN EQU       $-DELD8                                      ELAC-35 0765.000
DELD9    DATAB C' [{ACCESSED= {BEFORE DD-MON-YY,HH:NN:SS}}]'    ELAC-35 0766.000
DELD9LEN EQU       $-DELD9                                      ELAC-35 0767.000
         TITLE     DELETE FILE MESSAGE                                  0768.000
DELF1    DATAB     C' DELETE FILE COMMAND'                              0769.000
         DATAB     C'"M"J-------------------'                           0770.000
DELF1LEN EQU       $-DELF1                                              0771.000
DELF2    DATAB     C' SYNTAX:'                                          0772.000
DELF2LEN EQU       $-DELF2                                              0773.000
DELF3    DATAB     C' DELETE [FILE] [PATH=]PATHNAME [CONFIRM=BOOL]'     0774.000
         DATAB     C' [BRIEF=BOOL]'                                     0775.000
DELF3LEN EQU       $-DELF3                                              0776.000
DELF4    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0777.000
DELF4LEN EQU       $-DELF4                                              0778.000
DELF5    DATAB     C' [{CREATED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0779.000
DELF5LEN EQU       $-DELF5                                              0780.000
DELF6    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0781.000
DELF6LEN EQU       $-DELF6                                              0782.000
DELF7    DATAB     C' [{CHANGED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0783.000
DELF7LEN EQU       $-DELF7                                              0784.000
DELF8    DATAB     C'"M"J        {SINCE MM/DD/YY,HH:NN:SS  }}]'         0785.000
DELF8LEN EQU       $-DELF8                                              0786.000
DELF9    DATAB     C' [{SAVED= {BEFORE DD-MON-YY,HH:NN:SS}}]'  32C18    0787.000
DELF9LEN EQU       $-DELF9                                              0788.000
DELFA    DATAB     C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]'     0789.000
DELFALEN EQU       $-DELFA                                              0790.000
DELFB    DATAB     C' [{RESTORED= {BEFORE DD-MON-YY,HH:NN:SS}}]'        0791.000
DELFBLEN EQU       $-DELFB                                              0792.000
DELFC    DATAB C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]' ELAC-35 0793.000
DELFCLEN EQU       $-DELFC                                      ELAC-35 0794.000
DELFD    DATAB C' [{ACCESSED= {BEFORE DD-MON-YY,HH:NN:SS}}]'    ELAC-35 0795.000
DELFDLEN EQU       $-DELFD                                      ELAC-35 0796.000
         TITLE     EXIT MESSAGE                                         0797.000
EXIT1    DATAB     C' EXIT COMMAND'                                     0798.000
         DATAB     C'"M"J------------'                                  0799.000
EXIT1LEN EQU       $-EXIT1                                              0800.000
EXIT2    DATAB     C' SYNTAX:'                                          0801.000
EXIT2LEN EQU       $-EXIT2                                              0802.000
EXIT3    DATAB     C' EXIT'                                             0803.000
EXIT3LEN EQU       $-EXIT3                                              0804.000
         TITLE     EXTEND MESSAGE                                       0805.000
EXTE1    DATAB     C' EXTEND COMMAND'                                   0806.000
         DATAB     C'"M"J--------------'                                0807.000
EXTE1LEN EQU       $-EXTE1                                              0808.000
EXTE2    DATAB     C' SYNTAX:'                                          0809.000
EXTE2LEN EQU       $-EXTE2                                              0810.000
EXTE3    DATAB     C' EXTEND [PATH=]PATHNAME [EXTSIZE=N]'               0811.000
         DATAB     C' [BRIEF=BOOL]'                                     0812.000
EXTE3LEN EQU       $-EXTE3                                              0813.000
         TITLE     LOG FILE MESSAGE                                     0814.000
LOGF1    DATAB     C' LOG FILE COMMAND'                                 0815.000
         DATAB     C'"M"J----------------'                              0816.000
LOGF1LEN EQU       $-LOGF1                                              0817.000
LOGF2    DATAB     C' SYNTAX:'                                          0818.000
LOGF2LEN EQU       $-LOGF2                                              0819.000
LOGF3    DATAB     C' LOG FILE [LISTING=PATHNAME] [PATH= PATHNAME]'     0820.000
         DATAB     C' [BRIEF=BOOL]'                                     0821.000
LOGF3LEN EQU       $-LOGF3                                              0822.000
LOGF4    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0823.000
LOGF4LEN EQU       $-LOGF4                                              0824.000
LOGF5    DATAB     C' [{CREATED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0825.000
LOGF5LEN EQU       $-LOGF5                                              0826.000
LOGF6    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0827.000
LOGF6LEN EQU       $-LOGF6                                              0828.000
LOGF7    DATAB     C' [{CHANGED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0829.000
LOGF7LEN EQU       $-LOGF7                                              0830.000
LOGF8    DATAB     C'"M"J        {SINCE MM/DD/YY,HH:NN:SS  }}]'         0831.000
LOGF8LEN EQU       $-LOGF8                                              0832.000
LOGF9    DATAB     C' [{SAVED= {BEFORE DD-MON-YY,HH:NN:SS}}]'  32C18    0833.000
LOGF9LEN EQU       $-LOGF9                                              0834.000
LOGFA    DATAB     C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]'     0835.000
LOGFALEN EQU       $-LOGFA                                              0836.000
LOGFB    DATAB     C' [{RESTORED= {BEFORE DD-MON-YY,HH:NN:SS}}]'        0837.000
LOGFBLEN EQU       $-LOGFB                                              0838.000
LOGFC    DATAB C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]' ELAC-35 0839.000
LOGFCLEN EQU       $-LOGFC                                      ELAC-35 0840.000
LOGFD    DATAB C' [{ACCESSED= {BEFORE DD-MON-YY,HH:NN:SS}}]'    ELAC-35 0841.000
LOGFDLEN EQU       $-LOGFD                                      ELAC-35 0842.000
         TITLE     LOG IMAGE MESSAGE                                    0843.000
LOGI1    DATAB     C' LOG IMAGE COMMAND'                                0844.000
         DATAB     C'"M"J-----------------'                             0845.000
LOGI1LEN EQU       $-LOGI1                                              0846.000
LOGI2    DATAB     C' SYNTAX:'                                          0847.000
LOGI2LEN EQU       $-LOGI2                                              0848.000
LOGI3    DATAB     C' LOG IMAGE [LISTING=PATHNAME]'                     0849.000
LOGI3LEN EQU       $-LOGI3                                              0850.000
LOGI4    DATAB     C'"M"JLISTING=    SPECIFIES THE PATHNAME OF A'       0851.000
         DATAB     C' FILE WHERE THE LISTING IS TO BE'                  0852.000
LOGI4LEN EQU       $-LOGI4                                              0853.000
LOGI5    DATAB     C'             PRINTED. IF NOT SPECIFIED,THE'        0854.000
         DATAB     C' AUDIT TRAIL IS USED.'                             0855.000
LOGI5LEN EQU       $-LOGI5                                              0856.000
         TITLE     LOG RESOURCE MESSAGE                                 0857.000
LOGR1    DATAB     C' LOG RESOURCE COMMAND'                             0858.000
         DATAB     C'"M"J--------------------'                          0859.000
LOGR1LEN EQU       $-LOGR1                                              0860.000
LOGR2    DATAB     C' SYNTAX:'                                          0861.000
LOGR2LEN EQU       $-LOGR2                                              0862.000
LOGR3    DATAB     C' LOG [RESOURCE] [LISTING=PATHNAME]'                0863.000
         DATAB     C' [[PATH=]PATHNAME][BRIEF=BOOL]'                    0864.000
         DATAB     C' [ROOT=BOOL]'                              S860445A0865.000
LOGR3LEN EQU       $-LOGR3                                              0866.000
LOGR4    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0867.000
LOGR4LEN EQU       $-LOGR4                                              0868.000
LOGR5    DATAB     C' [{CREATED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0869.000
LOGR5LEN EQU       $-LOGR5                                              0870.000
LOGR6    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0871.000
LOGR6LEN EQU       $-LOGR6                                              0872.000
LOGR7    DATAB     C' [{CHANGED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0873.000
LOGR7LEN EQU       $-LOGR7                                              0874.000
LOGR8    DATAB     C'"M"J        {SINCE MM/DD/YY,HH:NN:SS  }}]'         0875.000
LOGR8LEN EQU       $-LOGR8                                              0876.000
LOGR9    DATAB     C' [{SAVED= {BEFORE DD-MON-YY,HH:NN:SS}}]'  32C18    0877.000
LOGR9LEN EQU       $-LOGR9                                              0878.000
LOGRA    DATAB     C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]'     0879.000
LOGRALEN EQU       $-LOGRA                                              0880.000
LOGRB    DATAB     C' [{RESTORED= {BEFORE DD-MON-YY,HH:NN:SS}}]'        0881.000
LOGRBLEN EQU       $-LOGRB                                              0882.000
LOGRC    DATAB C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]' ELAC-35 0883.000
LOGRCLEN EQU       $-LOGRC                                      ELAC-35 0884.000
LOGRD    DATAB C' [{ACCESSED= {BEFORE DD-MON-YY,HH:NN:SS}}]'    ELAC-35 0885.000
LOGRDLEN EQU       $-LOGRD                                      ELAC-35 0886.000
         TITLE     LOG SAVEFILE MESSAGE                                 0887.000
LOGS1    DATAB     C' LOG SAVEFILE COMMAND'                             0888.000
         DATAB     C'"M"J--------------------'                          0889.000
LOGS1LEN EQU       $-LOGS1                                              0890.000
LOGS2    DATAB     C' SYNTAX:'                                          0891.000
LOGS2LEN EQU       $-LOGS2                                              0892.000
LOGS3    DATAB     C' LOG SAVEFILE [LISTING=PATHNAME] [BRIEF=BOOL]'     0893.000
LOGS3LEN EQU       $-LOGS3                                              0894.000
         TITLE     RENAME MESSAGE                                       0895.000
RENA1    DATAB     C' RENAME COMMAND'                                   0896.000
         DATAB     C'"M"J--------------'                                0897.000
RENA1LEN EQU       $-RENA1                                              0898.000
RENA2    DATAB     C' SYNTAX:'                                          0899.000
RENA2LEN EQU       $-RENA2                                              0900.000
RENA3    DATAB     C' RENAME [FROM=]PATHNAME [TO=]PATHNAME'             0901.000
         DATAB     C' [BRIEF=BOOL]'                                     0902.000
RENA3LEN EQU       $-RENA3                                              0903.000
         TITLE     RESTORE DIRECTORY MESSAGE                            0904.000
RESD1    DATAB     C' RESTORE DIRECTORY COMMAND'                        0905.000
         DATAB     C'"M"J-------------------------'                     0906.000
RESD1LEN EQU       $-RESD1                                              0907.000
RESD2    DATAB     C' SYNTAX:'                                          0908.000
RESD2LEN EQU       $-RESD2                                              0909.000
RESD3    DATAB     C' RESTORE [DIRECTORY] [VOLUME=VOLNAME]'             0910.000
         DATAB     C' [[FROM=]PATHNAME[[TO=]PATHNAME]]'                 0911.000
         DATAB     C' [SEGNUM=N]'                               EVOMC33 0912.000
RESD3LEN EQU       $-RESD3                                              0913.000
RESD4    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0914.000
RESD4LEN EQU       $-RESD4                                              0915.000
RESD5    DATAB     C' [{CREATED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0916.000
RESD5LEN EQU       $-RESD5                                              0917.000
RESD6    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0918.000
RESD6LEN EQU       $-RESD6                                              0919.000
RESD7    DATAB     C' [{CHANGED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0920.000
RESD7LEN EQU       $-RESD7                                              0921.000
RESD8    DATAB     C'"M"J        {SINCE MM/DD/YY,HH:NN:SS  }}]'         0922.000
RESD8LEN EQU       $-RESD8                                              0923.000
RESD9    DATAB     C' [{SAVED= {BEFORE DD-MON-YY,HH:NN:SS}}]'  32C18    0924.000
RESD9LEN EQU       $-RESD9                                              0925.000
RESDA    DATAB     C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]'     0926.000
RESDALEN EQU       $-RESDA                                              0927.000
RESDB    DATAB     C' [{RESTORED= {BEFORE DD-MON-YY,HH:NN:SS}}]'        0928.000
RESDBLEN EQU       $-RESDB                                              0929.000
RESDC    DATAB C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]' ELAC-35 0930.000
RESDCLEN EQU       $-RESDC                                      ELAC-35 0931.000
RESDD    DATAB C' [{ACCESSED= {BEFORE DD-MON-YY,HH:NN:SS}}]'    ELAC-35 0932.000
RESDDLEN EQU       $-RESDD                                      ELAC-35 0933.000
*ESDC    DATAB C'"M"J[CONFIRM=BOOL] [NEWEST=BOOL] [BRIEF=BOOL]' ELAC-35 0934.000
*ESDCLEN EQU       $-RESDC                                      ELAC-35 0935.000
RESDE    DATAB C'"M"J[CONFIRM=BOOL] [NEWEST=BOOL] [BRIEF=BOOL]' ELAC-35 0936.000
RESDELEN EQU       $-RESDE                                      ELAC-35 0937.000
         TITLE     RESTORE POSITION MESSAGE                             0938.000
RESP1    DATAB     C' RESTORE POSITION COMMAND'                         0939.000
         DATAB     C'"M"J------------------------'                      0940.000
RESP1LEN EQU       $-RESP1                                              0941.000
RESP2    DATAB     C' SYNTAX:'                                          0942.000
RESP2LEN EQU       $-RESP2                                              0943.000
RESP3    DATAB     C' RESTORE POSITION [[TO=]PATHNAME]'                 0944.000
RESP3LEN EQU       $-RESP3                                              0945.000
         TITLE     REWIND MESSAGE                              85-0352  0946.000
REWD1    DATAB     C' REWIND COMMAND'                          85-0352  0947.000
         DATAB     C'"M"J--------------'                       85-0352  0948.000
REWD1LEN EQU       $-REWD1                                     85-0352  0949.000
REWD2    DATAB     C' SYNTAX:'                                 85-0352  0950.000
REWD2LEN EQU       $-REWD2                                     85-0352  0951.000
REWD3    DATAB     C' REWIND'                                  85-0352  0952.000
REWD3LEN EQU       $-REWD3                                     85-0352  0953.000
         TITLE     SAVE MESSAGE                                         0954.000
SAVE1    DATAB     C' SAVE COMMAND'                                     0955.000
         DATAB     C'"M"J------------'                                  0956.000
SAVE1LEN EQU       $-SAVE1                                              0957.000
SAVE2    DATAB     C' SYNTAX:'                                          0958.000
SAVE2LEN EQU       $-SAVE2                                              0959.000
SAVE3    DATAB     C' SAVE [PATH=]PATHNAME [CONFIRM=BOOL]'              0960.000
         DATAB     C' [SAVN=BOOL] [BRIEF=BOOL]'                         0961.000
SAVE3LEN EQU       $-SAVE3                                              0962.000
SAVE4    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0963.000
SAVE4LEN EQU       $-SAVE4                                              0964.000
SAVE5    DATAB     C' [{CREATED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0965.000
SAVE5LEN EQU       $-SAVE5                                              0966.000
SAVE6    DATAB     C'"M"J           {SINCE MM/DD/YY,HH:NN:SS  }}]'      0967.000
SAVE6LEN EQU       $-SAVE6                                              0968.000
SAVE7    DATAB     C' [{CHANGED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         0969.000
SAVE7LEN EQU       $-SAVE7                                              0970.000
SAVE8    DATAB     C'"M"J        {SINCE MM/DD/YY,HH:NN:SS  }}]'         0971.000
SAVE8LEN EQU       $-SAVE8                                              0972.000
SAVE9    DATAB     C' [{SAVED= {BEFORE DD-MON-YY,HH:NN:SS}}]'  32C18    0973.000
SAVE9LEN EQU       $-SAVE9                                              0974.000
SAVEA    DATAB     C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]'     0975.000
SAVEALEN EQU       $-SAVEA                                              0976.000
SAVEB    DATAB     C' [{RESTORED= {BEFORE DD-MON-YY,HH:NN:SS}}]'        0977.000
SAVEBLEN EQU       $-SAVEB                                              0978.000
SAVEC    DATAB C'"M"J            {SINCE MM/DD/YY,HH:NN:SS  }}]' ELAC-35 0979.000
SAVECLEN EQU       $-SAVEC                                      ELAC-35 0980.000
SAVED    DATAB C' [{ACCESSED= {BEFORE DD-MON-YY,HH:NN:SS}}]'    ELAC-35 0981.000
SAVEDLEN EQU       $-SAVED                                      ELAC-35 0982.000
         TITLE     SAVE INCREMENTAL MESSAGE                             0983.000
SAVI1    DATAB     C' SAVE INCREMENTAL COMMAND'                         0984.000
         DATAB     C'"M"J------------------------'                      0985.000
SAVI1LEN EQU       $-SAVI1                                              0986.000
SAVI2    DATAB     C' SYNTAX:'                                          0987.000
SAVI2LEN EQU       $-SAVI2                                              0988.000
SAVI3    DATAB     C' SAVE INCREMENTAL [PATH=]PATHNAME'                 0989.000
SAVI3LEN EQU       $-SAVI3                                              0990.000
         TITLE     SDT MESSAGE                                          0991.000
SDTC1    DATAB     C' SDT COMMAND'                                      0992.000
         DATAB     C'"M"J-----------'                                   0993.000
SDTC1LEN EQU       $-SDTC1                                              0994.000
SDTC2    DATAB     C' SYNTAX:'                                          0995.000
SDTC2LEN EQU       $-SDTC2                                              0996.000
SDTC3    DATAB     C' SDT [PATH=]PATHNAME [[WEOF=BOOL]'                 0997.000
         DATAB     C' [,[PATH=]PATHNAME [WEOF=BOOL]]]'                  0998.000
SDTC3LEN EQU       $-SDTC3                                              0999.000
         TITLE     SDT MASTER MESSAGE                                   1000.000
SDTM1    DATAB     C' SDT MASTER COMMAND'                               1001.000
         DATAB     C'"M"J------------------'                            1002.000
SDTM1LEN EQU       $-SDTM1                                              1003.000
SDTM2    DATAB     C' SYNTAX:'                                          1004.000
SDTM2LEN EQU       $-SDTM2                                              1005.000
SDTM3    DATAB     C' SDT MASTER'                                       1006.000
SDTM3LEN EQU       $-SDTM3                                              1007.000
         TITLE     SET MESSAGE                                          1008.000
SETT1    DATAB     C' SET COMMAND'                                      1009.000
         DATAB     C'"M"J-----------'                                   1010.000
SETT1LEN EQU       $-SETT1                                              1011.000
SETT2    DATAB     C' SYNTAX:'                                          1012.000
SETT2LEN EQU       $-SETT2                                              1013.000
SETT3    DATAB     C' SET [PROJECTGROUP=NAME] [START=N]'                1014.000
         DATAB     C' [MAXINC=N] [MINIC=N]'                             1015.000
SETT3LEN EQU       $-SETT3                                              1016.000
SETT4    DATAB     C' [MAXSIZE=N] [OWNER=NAME] [LISTING=PATHNAME]'      1017.000
         DATAB     C' [SIZE=N]'                                         1018.000
SETT4LEN EQU       $-SETT4                                              1019.000
SETT5    DATAB     C' [REPLACE=BOOL] [SHARED=BOOL] [NOSAVE=BOOL]'       1020.000
         DATAB     C' [SEOF=BOOL]'                              EQIC360 1021.000
SETT5LEN EQU       $-SETT5                                              1022.000
SETT6    DATAB     C' [ZERO=BOOL] [EOFM=BOOL] [FAST=BOOL]'              1023.000
         DATAB     C' [MEMCLASS={E}]'                                   1024.000
SETT6LEN EQU       $-SETT6                                              1025.000
SETT7    DATAB     C'                                    '              1026.000
         DATAB     C'           {H}'                                    1027.000
SETT7LEN EQU       $-SETT7                                              1028.000
SETT8    DATAB     C'                                    '              1029.000
         DATAB     C'           {S}'                                    1030.000
SETT8LEN EQU       $-SETT8                                              1031.000
SETT9    DATAB     C' [CONFIRM=BOOL] [NEWEST=BOOL]'            85-0352  1032.000
SETT9LEN EQU       $-SETT9                                     85-0352  1033.000
SETTA    DATAB     C' [BRIEF=BOOL] [AUTOEXT=BOOL]'             85-0352  1034.000
SETTALEN EQU       $-SETTA                                     85-0352  1035.000
SETTB    DATAB     C' [MANEXT=BOOL] [CONTIGUOUS=BOOL]'         85-0352  1036.000
SETTBLEN EQU       $-SETTB                                     85-0352  1037.000
SETTC    DATAB     C'            {SINCE MM/DD/YY,HH:NN:SS  }}]'         1038.000
SETTCLEN EQU       $-SETTC                                              1039.000
SETTD    DATAB     C' [{CREATED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         1040.000
SETTDLEN EQU       $-SETTD                                              1041.000
SETTE    DATAB     C'            {SINCE MM/DD/YY,HH:NN:SS  }}]'         1042.000
SETTELEN EQU       $-SETTE                                              1043.000
SETTF    DATAB     C' [{CHANGED= {BEFORE DD-MON-YY,HH:NN:SS}}]'         1044.000
SETTFLEN EQU       $-SETTF                                              1045.000
SETTG    DATAB     C'         {SINCE MM/DD/YY,HH:NN:SS  }}]'            1046.000
SETTGLEN EQU       $-SETTG                                              1047.000
SETTH    DATAB     C' [{SAVED= {BEFORE DD-MON-YY,HH:NN:SS}}]'  32C18    1048.000
SETTHLEN EQU       $-SETTH                                              1049.000
SETTI    DATAB     C'             {SINCE MM/DD/YY,HH:NN:SS  }}]'        1050.000
SETTILEN EQU       $-SETTI                                              1051.000
SETTJ    DATAB     C' [{RESTORED= {BEFORE DD-MON-YY,HH:NN:SS}}]'        1052.000
SETTJLEN EQU       $-SETTJ                                              1053.000
SETTK    DATAB    C'             {SINCE MM/DD/YY,HH:NN:SS  }}]' ELAC-35 1054.000
SETTKLEN EQU       $-SETTK                                      ELAC-35 1055.000
SETTL    DATAB C' [{ACCESSED= {BEFORE DD-MON-YY,HH:NN:SS}}]'    ELAC-35 1056.000
SETTLLEN EQU       $-SETTL                                      ELAC-35 1057.000
         TITLE     SKIP END MESSAGE                                     1058.000
SKIP1    DATAB     C' SKIP END COMMAND'                                 1059.000
         DATAB     C'"M"J----------------'                              1060.000
SKIP1LEN EQU       $-SKIP1                                              1061.000
SKIP2    DATAB     C' SYNTAX:'                                          1062.000
SKIP2LEN EQU       $-SKIP2                                              1063.000
SKIP3    DATAB     C' SKIP END'                                         1064.000
SKIP3LEN EQU       $-SKIP3                                              1065.000
         TITLE     SKIP FILE MESSAGE                                    1066.000
SKIF1    DATAB     C' SKIP FILE COMMAND'                                1067.000
         DATAB     C'"M"J-----------------'                             1068.000
SKIF1LEN EQU       $-SKIF1                                              1069.000
SKIF2    DATAB     C' SYNTAX:'                                          1070.000
SKIF2LEN EQU       $-SKIF2                                              1071.000
SKIF3    DATAB     C' SKIP FILE [[FILES=]N]'                            1072.000
SKIF3LEN EQU       $-SKIF3                                              1073.000
         TITLE     SKIP IMAGE MESSAGE                                   1074.000
SKII1    DATAB     C' SKIP IMAGE COMMAND'                               1075.000
         DATAB     C'"M"J------------------'                            1076.000
SKII1LEN EQU       $-SKII1                                              1077.000
SKII2    DATAB     C' SYNTAX:'                                          1078.000
SKII2LEN EQU       $-SKII2                                              1079.000
SKII3    DATAB     C' SKIP [IMAGE] [[IMAGES=]N]'                        1080.000
SKII3LEN EQU       $-SKII3                                              1081.000
         TITLE     TRUNCATE MESSAGE                                     1082.000
TRUN1    DATAB     C' TRUNCATE COMMAND'                                 1083.000
         DATAB     C'"M"J----------------'                              1084.000
TRUN1LEN EQU       $-TRUN1                                              1085.000
TRUN2    DATAB     C' SYNTAX:'                                          1086.000
TRUN2LEN EQU       $-TRUN2                                              1087.000
TRUN3    DATAB     C' TRUNCATE [PATH=]PATHNAME [BRIEF=BOOL]'            1088.000
TRUN3LEN EQU       $-TRUN3                                              1089.000
         TITLE     FCBS                                                 1090.000
         BOUND     1W                                                   1091.000
FCBOUT   DATAW     G'SLO'                                               1092.000
         REZ       7W                                                   1093.000
         BOUND     1W                                                   1094.000
HELP1TCW GEN       12/HELP1LEN,20/B(HELP1)                              1095.000
HELP2TCW GEN       12/HELP2LEN,20/B(HELP2)                              1096.000
*ELP3TCW GEN       12/HELP3LEN,20/B(HELP3)                              1097.000
HELP4TCW GEN       12/HELP4LEN,20/B(HELP4)                              1098.000
HELP5TCW GEN       12/HELP5LEN,20/B(HELP5)                              1099.000
HELP6TCW GEN       12/HELP6LEN,20/B(HELP6)                              1100.000
HELP7TCW GEN       12/HELP7LEN,20/B(HELP7)                              1101.000
HELP3TCW GEN       12/HELP3LEN,20/B(HELP3)                              1102.000
HELP8TCW GEN       12/HELP8LEN,20/B(HELP8)                              1103.000
HELP9TCW GEN       12/HELP9LEN,20/B(HELP9)                              1104.000
HELPATCW GEN       12/HELPALEN,20/B(HELPA)                              1105.000
HELPBTCW GEN       12/HELPBLEN,20/B(HELPB)                              1106.000
HELPCTCW GEN       12/HELPCLEN,20/B(HELPC)                              1107.000
HELPDTCW GEN       12/HELPDLEN,20/B(HELPD)                              1108.000
HELPETCW GEN       12/HELPELEN,20/B(HELPE)                              1109.000
HELPFTCW GEN       12/HELPFLEN,20/B(HELPF)                              1110.000
HELPGTCW GEN       12/HELPGLEN,20/B(HELPG)                              1111.000
HELPHTCW GEN       12/HELPHLEN,20/B(HELPH)                              1112.000
HELPITCW GEN       12/HELPILEN,20/B(HELPI)                              1113.000
HELPJTCW GEN       12/HELPJLEN,20/B(HELPJ)                              1114.000
HELPKTCW GEN       12/HELPKLEN,20/B(HELPK)                              1115.000
HELPLTCW GEN       12/HELPLLEN,20/B(HELPL)                              1116.000
HELPMTCW GEN       12/HELPMLEN,20/B(HELPM)                              1117.000
HELPNTCW GEN       12/HELPNLEN,20/B(HELPN)                              1118.000
HELPOTCW GEN       12/HELPOLEN,20/B(HELPO)                              1119.000
HELPPTCW GEN       12/HELPPLEN,20/B(HELPP)                              1120.000
HELPQTCW GEN       12/HELPQLEN,20/B(HELPQ)                              1121.000
HELPRTCW GEN       12/HELPRLEN,20/B(HELPR)                              1122.000
HELPSTCW GEN       12/HELPSLEN,20/B(HELPS)                              1123.000
HELPTTCW GEN       12/HELPTLEN,20/B(HELPT)                              1124.000
HELPUTCW GEN       12/HELPULEN,20/B(HELPU)                              1125.000
HELPVTCW GEN       12/HELPVLEN,20/B(HELPV)                              1126.000
HELPWTCW GEN       12/HELPWLEN,20/B(HELPW)                              1127.000
HELPXTCW GEN       12/HELPXLEN,20/B(HELPX)                              1128.000
HELPYTCW GEN       12/HELPYLEN,20/B(HELPY)                              1129.000
HELPZTCW GEN       12/HELPZLEN,20/B(HELPZ)                              1130.000
HELL1TCW GEN       12/HELL1LEN,20/B(HELL1)                              1131.000
HELL2TCW GEN       12/HELL2LEN,20/B(HELL2)                              1132.000
HELL3TCW GEN       12/HELL3LEN,20/B(HELL3)                              1133.000
HELL4TCW GEN       12/HELL4LEN,20/B(HELL4)                              1134.000
HELL5TCW GEN       12/HELL5LEN,20/B(HELL5)                              1135.000
HELL6TCW GEN       12/HELL6LEN,20/B(HELL6)                              1136.000
HELL7TCW GEN       12/HELL7LEN,20/B(HELL7)                              1137.000
HELL8TCW GEN       12/HELL8LEN,20/B(HELL8)                              1138.000
HELL9TCW GEN       12/HELL9LEN,20/B(HELL9)                              1139.000
HELLATCW GEN       12/HELLALEN,20/B(HELLA)                              1140.000
HELLBTCW GEN       12/HELLBLEN,20/B(HELLB)                              1141.000
HELLCTCW GEN       12/HELLCLEN,20/B(HELLC)                              1142.000
HELLDTCW GEN       12/HELLDLEN,20/B(HELLD)                              1143.000
HELLETCW GEN       12/HELLELEN,20/B(HELLE)                              1144.000
HELLFTCW GEN       12/HELLFLEN,20/B(HELLF)                              1145.000
HMAXTCW  EQU       $-HELP1TCW/4                                         1146.000
COPY1TCW GEN       12/COPY1LEN,20/B(COPY1)                              1147.000
COPY2TCW GEN       12/COPY2LEN,20/B(COPY2)                              1148.000
COPY3TCW GEN       12/COPY3LEN,20/B(COPY3)                              1149.000
COPY4TCW GEN       12/COPY4LEN,20/B(COPY4)                              1150.000
COPY5TCW GEN       12/COPY5LEN,20/B(COPY5)                              1151.000
COPY6TCW GEN       12/COPY6LEN,20/B(COPY6)                              1152.000
COPY7TCW GEN       12/COPY7LEN,20/B(COPY7)                              1153.000
COPY8TCW GEN       12/COPY8LEN,20/B(COPY8)                              1154.000
COPY9TCW GEN       12/COPY9LEN,20/B(COPY9)                              1155.000
COPYATCW GEN       12/COPYALEN,20/B(COPYA)                              1156.000
CMAXTCW  EQU       $-COPY1TCW/4                                         1157.000
BACK1TCW GEN       12/BACK1LEN,20/B(BACK1)                              1158.000
BACK2TCW GEN       12/BACK2LEN,20/B(BACK2)                              1159.000
BACK3TCW GEN       12/BACK3LEN,20/B(BACK3)                              1160.000
BACK4TCW GEN       12/BACK4LEN,20/B(BACK4)                              1161.000
BACK5TCW GEN       12/BACK5LEN,20/B(BACK5)                              1162.000
BMAXTCW  EQU       $-BACK1TCW/4                                         1163.000
BACI1TCW GEN       12/BACI1LEN,20/B(BACI1)                              1164.000
BACI2TCW GEN       12/BACI2LEN,20/B(BACI2)                              1165.000
BACI3TCW GEN       12/BACI3LEN,20/B(BACI3)                              1166.000
BACI4TCW GEN       12/BACI4LEN,20/B(BACI4)                              1167.000
BACI5TCW GEN       12/BACI5LEN,20/B(BACI5)                              1168.000
IMAXTCW  EQU       $-BACI1TCW/4                                         1169.000
CLEA1TCW GEN       12/CLEA1LEN,20/B(CLEA1)                              1170.000
CLEA2TCW GEN       12/CLEA2LEN,20/B(CLEA2)                              1171.000
CLEA3TCW GEN       12/CLEA3LEN,20/B(CLEA3)                              1172.000
UMAXTCW  EQU       $-CLEA1TCW/4                                         1173.000
CONV1TCW GEN       12/CONV1LEN,20/B(CONV1)                              1174.000
CONV2TCW GEN       12/CONV2LEN,20/B(CONV2)                              1175.000
CONV3TCW GEN       12/CONV3LEN,20/B(CONV3)                              1176.000
VMAXTCW  EQU       $-CONV1TCW/4                                         1177.000
CREC1TCW GEN       12/CREC1LEN,20/B(CREC1)                              1178.000
CREC2TCW GEN       12/CREC2LEN,20/B(CREC2)                              1179.000
CREC3TCW GEN       12/CREC3LEN,20/B(CREC3)                              1180.000
CREC4TCW GEN       12/CREC4LEN,20/B(CREC4)                              1181.000
CREC5TCW GEN       12/CREC5LEN,20/B(CREC5)                              1182.000
CREC6TCW GEN       12/CREC6LEN,20/B(CREC6)                              1183.000
CREC7TCW GEN       12/CREC7LEN,20/B(CREC7)                              1184.000
CREC8TCW GEN       12/CREC8LEN,20/B(CREC8)                              1185.000
CREC9TCW GEN       12/CREC9LEN,20/B(CREC9)                              1186.000
CRECATCW GEN       12/CRECALEN,20/B(CRECA)                              1187.000
OMAXTCW  EQU       $-CREC1TCW/4                                         1188.000
CREF1TCW GEN       12/CREF1LEN,20/B(CREF1)                              1189.000
CREF2TCW GEN       12/CREF2LEN,20/B(CREF2)                              1190.000
CREF3TCW GEN       12/CREF3LEN,20/B(CREF3)                              1191.000
CREF4TCW GEN       12/CREF4LEN,20/B(CREF4)                              1192.000
CREF5TCW GEN       12/CREF5LEN,20/B(CREF5)                              1193.000
CREF6TCW GEN       12/CREF6LEN,20/B(CREF6)                              1194.000
CREF7TCW GEN       12/CREF7LEN,20/B(CREF7)                              1195.000
CREF8TCW GEN       12/CREF8LEN,20/B(CREF8)                              1196.000
CREF9TCW GEN       12/CREF9LEN,20/B(CREF9)                              1197.000
CREFATCW GEN       12/CREFALEN,20/B(CREFA)                              1198.000
FMAXTCW  EQU       $-CREF1TCW/4                                         1199.000
CRED1TCW GEN       12/CRED1LEN,20/B(CRED1)                              1200.000
CRED2TCW GEN       12/CRED2LEN,20/B(CRED2)                              1201.000
CRED3TCW GEN       12/CRED3LEN,20/B(CRED3)                              1202.000
CRED4TCW GEN       12/CRED4LEN,20/B(CRED4)                              1203.000
CRED5TCW GEN       12/CRED5LEN,20/B(CRED5)                              1204.000
CRED6TCW GEN       12/CRED6LEN,20/B(CRED6)                              1205.000
DMAXTCW  EQU       $-CRED1TCW/4                                         1206.000
CRLFTCW  GEN       12/CRLFLEN,20/B(CRLF)                                1207.000
DELC1TCW GEN       12/DELC1LEN,20/B(DELC1)                              1208.000
DELC2TCW GEN       12/DELC2LEN,20/B(DELC2)                              1209.000
DELC3TCW GEN       12/DELC3LEN,20/B(DELC3)                              1210.000
DELC4TCW GEN       12/DELC4LEN,20/B(DELC4)                              1211.000
DELC5TCW GEN       12/DELC5LEN,20/B(DELC5)                              1212.000
NMAXTCW  EQU       $-DELC1TCW/4                                         1213.000
DELD1TCW GEN       12/DELD1LEN,20/B(DELD1)                              1214.000
DELD2TCW GEN       12/DELD2LEN,20/B(DELD2)                              1215.000
DELD3TCW GEN       12/DELD3LEN,20/B(DELD3)                              1216.000
DELD4TCW GEN       12/DELD4LEN,20/B(DELD4)                              1217.000
DELD5TCW GEN       12/DELD5LEN,20/B(DELD5)                              1218.000
DELD6TCW GEN       12/DELD6LEN,20/B(DELD6)                              1219.000
DELD7TCW GEN       12/DELD7LEN,20/B(DELD7)                              1220.000
DELD8TCW GEN       12/DELD8LEN,20/B(DELD8)                      ELAC-35 1221.000
DELD9TCW GEN       12/DELD9LEN,20/B(DELD9)                      ELAC-35 1222.000
TMAXTCW  EQU       $-DELD1TCW/4                                         1223.000
DELF1TCW GEN       12/DELF1LEN,20/B(DELF1)                              1224.000
DELF2TCW GEN       12/DELF2LEN,20/B(DELF2)                              1225.000
DELF3TCW GEN       12/DELF3LEN,20/B(DELF3)                              1226.000
DELF4TCW GEN       12/DELF4LEN,20/B(DELF4)                              1227.000
DELF5TCW GEN       12/DELF5LEN,20/B(DELF5)                              1228.000
DELF6TCW GEN       12/DELF6LEN,20/B(DELF6)                              1229.000
DELF7TCW GEN       12/DELF7LEN,20/B(DELF7)                              1230.000
DELF8TCW GEN       12/DELF8LEN,20/B(DELF8)                              1231.000
DELF9TCW GEN       12/DELF9LEN,20/B(DELF9)                              1232.000
DELFATCW GEN       12/DELFALEN,20/B(DELFA)                              1233.000
DELFBTCW GEN       12/DELFBLEN,20/B(DELFB)                              1234.000
DELFCTCW GEN       12/DELFCLEN,20/B(DELFC)                      ELAC-35 1235.000
DELFDTCW GEN       12/DELFDLEN,20/B(DELFD)                      ELAC-35 1236.000
LMAXTCW  EQU       $-DELF1TCW/4                                         1237.000
EXIT1TCW GEN       12/EXIT1LEN,20/B(EXIT1)                              1238.000
EXIT2TCW GEN       12/EXIT2LEN,20/B(EXIT2)                              1239.000
EXIT3TCW GEN       12/EXIT3LEN,20/B(EXIT3)                              1240.000
XMAXTCW  EQU       $-EXIT1TCW/4                                         1241.000
EXTE1TCW GEN       12/EXTE1LEN,20/B(EXTE1)                              1242.000
EXTE2TCW GEN       12/EXTE2LEN,20/B(EXTE2)                              1243.000
EXTE3TCW GEN       12/EXTE3LEN,20/B(EXTE3)                              1244.000
EMAXTCW  EQU       $-EXTE1TCW/4                                         1245.000
LOGF1TCW GEN       12/LOGF1LEN,20/B(LOGF1)                              1246.000
LOGF2TCW GEN       12/LOGF2LEN,20/B(LOGF2)                              1247.000
LOGF3TCW GEN       12/LOGF3LEN,20/B(LOGF3)                              1248.000
LOGF4TCW GEN       12/LOGF4LEN,20/B(LOGF4)                              1249.000
LOGF5TCW GEN       12/LOGF5LEN,20/B(LOGF5)                              1250.000
LOGF6TCW GEN       12/LOGF6LEN,20/B(LOGF6)                              1251.000
LOGF7TCW GEN       12/LOGF7LEN,20/B(LOGF7)                              1252.000
LOGF8TCW GEN       12/LOGF8LEN,20/B(LOGF8)                              1253.000
LOGF9TCW GEN       12/LOGF9LEN,20/B(LOGF9)                              1254.000
LOGFATCW GEN       12/LOGFALEN,20/B(LOGFA)                              1255.000
LOGFBTCW GEN       12/LOGFBLEN,20/B(LOGFB)                              1256.000
LOGFCTCW GEN       12/LOGFCLEN,20/B(LOGFC)                      ELAC-35 1257.000
LOGFDTCW GEN       12/LOGFDLEN,20/B(LOGFD)                      ELAC-35 1258.000
JMAXTCW  EQU       $-LOGF1TCW/4                                         1259.000
LOGI1TCW GEN       12/LOGI1LEN,20/B(LOGI1)                              1260.000
LOGI2TCW GEN       12/LOGI2LEN,20/B(LOGI2)                              1261.000
LOGI3TCW GEN       12/LOGI3LEN,20/B(LOGI3)                              1262.000
LOGI4TCW GEN       12/LOGI4LEN,20/B(LOGI4)                              1263.000
LOGI5TCW GEN       12/LOGI5LEN,20/B(LOGI5)                              1264.000
GMAXTCW  EQU       $-LOGI1TCW/4                                         1265.000
LOGR1TCW GEN       12/LOGR1LEN,20/B(LOGR1)                              1266.000
LOGR2TCW GEN       12/LOGR2LEN,20/B(LOGR2)                              1267.000
LOGR3TCW GEN       12/LOGR3LEN,20/B(LOGR3)                              1268.000
LOGR4TCW GEN       12/LOGR4LEN,20/B(LOGR4)                              1269.000
LOGR5TCW GEN       12/LOGR5LEN,20/B(LOGR5)                              1270.000
LOGR6TCW GEN       12/LOGR6LEN,20/B(LOGR6)                              1271.000
LOGR7TCW GEN       12/LOGR7LEN,20/B(LOGR7)                              1272.000
LOGR8TCW GEN       12/LOGR8LEN,20/B(LOGR8)                              1273.000
LOGR9TCW GEN       12/LOGR9LEN,20/B(LOGR9)                              1274.000
LOGRATCW GEN       12/LOGRALEN,20/B(LOGRA)                              1275.000
LOGRBTCW GEN       12/LOGRBLEN,20/B(LOGRB)                              1276.000
LOGRCTCW GEN       12/LOGRCLEN,20/B(LOGRC)                      ELAC-35 1277.000
LOGRDTCW GEN       12/LOGRDLEN,20/B(LOGRD)                      ELAC-35 1278.000
PMAXTCW  EQU       $-LOGR1TCW/4                                         1279.000
LOGS1TCW GEN       12/LOGS1LEN,20/B(LOGS1)                              1280.000
LOGS2TCW GEN       12/LOGS2LEN,20/B(LOGS2)                              1281.000
LOGS3TCW GEN       12/LOGS3LEN,20/B(LOGS3)                              1282.000
SMAXTCW  EQU       $-LOGS1TCW/4                                         1283.000
RENA1TCW GEN       12/RENA1LEN,20/B(RENA1)                              1284.000
RENA2TCW GEN       12/RENA2LEN,20/B(RENA2)                              1285.000
RENA3TCW GEN       12/RENA3LEN,20/B(RENA3)                              1286.000
APAXTCW  EQU       $-RENA1TCW/4                                         1287.000
RESP1TCW GEN       12/RESP1LEN,20/B(RESP1)                              1288.000
RESP2TCW GEN       12/RESP2LEN,20/B(RESP2)                              1289.000
RESP3TCW GEN       12/RESP3LEN,20/B(RESP3)                              1290.000
BPAXTCW  EQU       $-RESP1TCW/4                                         1291.000
SAVI1TCW GEN       12/SAVI1LEN,20/B(SAVI1)                              1292.000
SAVI2TCW GEN       12/SAVI2LEN,20/B(SAVI2)                              1293.000
SAVI3TCW GEN       12/SAVI3LEN,20/B(SAVI3)                              1294.000
CPAXTCW  EQU       $-SAVI1TCW/4                                         1295.000
SDTC1TCW GEN       12/SDTC1LEN,20/B(SDTC1)                              1296.000
SDTC2TCW GEN       12/SDTC2LEN,20/B(SDTC2)                              1297.000
SDTC3TCW GEN       12/SDTC3LEN,20/B(SDTC3)                              1298.000
DPAXTCW  EQU       $-SDTC1TCW/4                                         1299.000
SDTM1TCW GEN       12/SDTM1LEN,20/B(SDTM1)                              1300.000
SDTM2TCW GEN       12/SDTM2LEN,20/B(SDTM2)                              1301.000
SDTM3TCW GEN       12/SDTM3LEN,20/B(SDTM3)                              1302.000
EPAXTCW  EQU       $-SDTM1TCW/4                                         1303.000
SKIP1TCW GEN       12/SKIP1LEN,20/B(SKIP1)                              1304.000
SKIP2TCW GEN       12/SKIP2LEN,20/B(SKIP2)                              1305.000
SKIP3TCW GEN       12/SKIP3LEN,20/B(SKIP3)                              1306.000
FPAXTCW  EQU       $-SKIP1TCW/4                                         1307.000
SKIF1TCW GEN       12/SKIF1LEN,20/B(SKIF1)                              1308.000
SKIF2TCW GEN       12/SKIF2LEN,20/B(SKIF2)                              1309.000
SKIF3TCW GEN       12/SKIF3LEN,20/B(SKIF3)                              1310.000
GPAXTCW  EQU       $-SKIF1TCW/4                                         1311.000
SKII1TCW GEN       12/SKII1LEN,20/B(SKII1)                              1312.000
SKII2TCW GEN       12/SKII2LEN,20/B(SKII2)                              1313.000
SKII3TCW GEN       12/SKII3LEN,20/B(SKII3)                              1314.000
HPAXTCW  EQU       $-SKII1TCW/4                                         1315.000
TRUN1TCW GEN       12/TRUN1LEN,20/B(TRUN1)                              1316.000
TRUN2TCW GEN       12/TRUN2LEN,20/B(TRUN2)                              1317.000
TRUN3TCW GEN       12/TRUN3LEN,20/B(TRUN3)                              1318.000
IPAXTCW  EQU       $-TRUN1TCW/4                                         1319.000
SAVE1TCW GEN       12/SAVE1LEN,20/B(SAVE1)                              1320.000
SAVE2TCW GEN       12/SAVE2LEN,20/B(SAVE2)                              1321.000
SAVE3TCW GEN       12/SAVE3LEN,20/B(SAVE3)                              1322.000
SAVE4TCW GEN       12/SAVE4LEN,20/B(SAVE4)                              1323.000
SAVE5TCW GEN       12/SAVE5LEN,20/B(SAVE5)                              1324.000
SAVE6TCW GEN       12/SAVE6LEN,20/B(SAVE6)                              1325.000
SAVE7TCW GEN       12/SAVE7LEN,20/B(SAVE7)                              1326.000
SAVE8TCW GEN       12/SAVE8LEN,20/B(SAVE8)                              1327.000
SAVE9TCW GEN       12/SAVE9LEN,20/B(SAVE9)                              1328.000
SAVEATCW GEN       12/SAVEALEN,20/B(SAVEA)                              1329.000
SAVEBTCW GEN       12/SAVEBLEN,20/B(SAVEB)                              1330.000
SAVECTCW GEN       12/SAVECLEN,20/B(SAVEC)                      ELAC-35 1331.000
SAVEDTCW GEN       12/SAVEDLEN,20/B(SAVED)                      ELAC-35 1332.000
ZMAXTCW  EQU       $-SAVE1TCW/4                                         1333.000
SETT1TCW GEN       12/SETT1LEN,20/B(SETT1)                              1334.000
SETT2TCW GEN       12/SETT2LEN,20/B(SETT2)                              1335.000
SETT3TCW GEN       12/SETT3LEN,20/B(SETT3)                              1336.000
SETT4TCW GEN       12/SETT4LEN,20/B(SETT4)                              1337.000
SETT5TCW GEN       12/SETT5LEN,20/B(SETT5)                              1338.000
SETT6TCW GEN       12/SETT6LEN,20/B(SETT6)                              1339.000
SETT7TCW GEN       12/SETT7LEN,20/B(SETT7)                              1340.000
SETT8TCW GEN       12/SETT8LEN,20/B(SETT8)                              1341.000
SETT9TCW GEN       12/SETT9LEN,20/B(SETT9)                     85-0352  1342.000
SETTATCW GEN       12/SETTALEN,20/B(SETTA)                     85-0352  1343.000
SETTBTCW GEN       12/SETTBLEN,20/B(SETTB)                     85-0352  1344.000
SETTCTCW GEN       12/SETTCLEN,20/B(SETTC)                              1345.000
SETTDTCW GEN       12/SETTDLEN,20/B(SETTD)                              1346.000
SETTETCW GEN       12/SETTELEN,20/B(SETTE)                              1347.000
SETTFTCW GEN       12/SETTFLEN,20/B(SETTF)                              1348.000
SETTGTCW GEN       12/SETTGLEN,20/B(SETTG)                              1349.000
SETTHTCW GEN       12/SETTHLEN,20/B(SETTH)                              1350.000
SETTITCW GEN       12/SETTILEN,20/B(SETTI)                              1351.000
SETTJTCW GEN       12/SETTJLEN,20/B(SETTJ)                              1352.000
SETTKTCW GEN       12/SETTKLEN,20/B(SETTK)                      ELAC-35 1353.000
SETTLTCW GEN       12/SETTLLEN,20/B(SETTL)                      ELAC-35 1354.000
RMAXTCW  EQU       $-SETT1TCW/4                                         1355.000
RESD1TCW GEN       12/RESD1LEN,20/B(RESD1)                              1356.000
RESD2TCW GEN       12/RESD2LEN,20/B(RESD2)                              1357.000
RESD3TCW GEN       12/RESD3LEN,20/B(RESD3)                              1358.000
RESD4TCW GEN       12/RESD4LEN,20/B(RESD4)                              1359.000
RESD5TCW GEN       12/RESD5LEN,20/B(RESD5)                              1360.000
RESD6TCW GEN       12/RESD6LEN,20/B(RESD6)                              1361.000
RESD7TCW GEN       12/RESD7LEN,20/B(RESD7)                              1362.000
RESD8TCW GEN       12/RESD8LEN,20/B(RESD8)                              1363.000
RESD9TCW GEN       12/RESD9LEN,20/B(RESD9)                              1364.000
RESDATCW GEN       12/RESDALEN,20/B(RESDA)                              1365.000
RESDBTCW GEN       12/RESDBLEN,20/B(RESDB)                              1366.000
RESDCTCW GEN       12/RESDCLEN,20/B(RESDC)                              1367.000
RESDDTCW GEN       12/RESDDLEN,20/B(RESDD)                      ELAC-35 1368.000
RESDETCW GEN       12/RESDELEN,20/B(RESDE)                      ELAC-35 1369.000
WMAXTCW  EQU       $-RESD1TCW/4                                         1370.000
REWD1TCW GEN       12/REWD1LEN,20/B(REWD1)                     85-0352  1371.000
REWD2TCW GEN       12/REWD2LEN,20/B(REWD2)                     85-0352  1372.000
REWD3TCW GEN       12/REWD3LEN,20/B(REWD3)                     85-0352  1373.000
QMAXTCW  EQU       $-REWD1TCW/4                                85-0352  1374.000
         TITLE     DATA                                                 1375.000
         BOUND     1F                                                   1376.000
REGS0    REZ       1F              NEST AREA FOR REGISTERS              1377.000
END      END                                                            1378.000
