*DELETE COMMAND (FILE, DIRECTORY & MEM. PARTITION)      HEADER  FUPDEL  0001.000
         M.PGM     FUP.DRES,MPX-32,3.6.1,00                             0002.000
         SPACE                                                          0003.000
         CSECT                                                          0004.000
*                                                                       0005.000
************************************************************************0006.000
*                                                                      *0007.000
*                    PROPRIETARY INFORMATION                           *0008.000
*                    -----------------------                           *0009.000
*   THE INFORMATION CONTAINED HEREIN IS PROPRIETARY TO ENCORE          *0010.000
*   COMPUTER CORPORATION AND/OR ITS VENDORS, AND ITS USE, DISCLOSURE,  *0011.000
*   OR DUPLICATION IS SUBJECT TO THE RESTRICTIONS STATED IN THE        *0012.000
*   STANDARD ENCORE COMPUTER CORPORATION LICENSE TERMS AND CONDITIONS  *0013.000
*   OR THE APPROPRIATE THIRD-PARTY SUBLICENSE AGREEMENT.               *0014.000
*                                                                      *0015.000
*                       RESTRICTED RIGHTS                              *0016.000
*                       -----------------                              *0017.000
*   USE, DUPLICATION, OR DISCLOSURE BY THE GOVERNMENT IS SUBJECT       *0018.000
*   TO RESTRICTIONS AS SET FOURTH IN SUBDIVISION (c) (1) (ii) OF       *0019.000
*   THE RIGHTS IN TECHNICAL DATA AND COMPUTER SOFTWARE CLAUSE AT       *0020.000
*   252.227.7013                                                       *0021.000
************************************************************************0022.000
* (C) COPYRIGHT 1989 ENCORE COMPUTER CORPORATION                       *0023.000
*     ALL RIGHTS RESERVED                                              *0024.000
************************************************************************0025.000
*                                                                       0026.000
*                                                                       0027.000
*    FUNCTIONAL DESCRIPTION:                                            0028.000
*                                                                       0029.000
*        THIS MODULE CONTAINS ONE OF THE COMMAND PROCESSING ROUTINES    0030.000
*        FOR THE FILE UTILITY PROGRAM FOR THE NEW FILE SYSTEM. THIS     0031.000
*        THIS MODULE HANDLES THE COMMAND:                               0032.000
*                                                                       0033.000
*                  'DELETE RESOURCE'                                    0034.000
*                                                                       0035.000
*                                                                       0036.000
*    EXTERNAL REFERENCES:                                               0037.000
*                                                                       0038.000
         EXT       ADR.MASK        MASK FOR CC'S                        0039.000
         EXT       GETPROTO        GET NEXT PROTOTYPE BLOCK             0040.000
         EXT       AUDIT0          AUDIT DELETE RESOURCE LINE           0041.000
         EXT       ERROR           ERROR HANDLER                        0042.000
         EXT       ERROR2          ROUTINE TO PRINT A MESSAGE           0043.000
         EXT       BUILDPNB        BUILD PNB ROUTINE                    0044.000
         EXT       CNP.BUF         TO BUILD CNP IN                      0045.000
         EXT       PNB.BUF         TO BUILD PNB IN                      0046.000
         EXT       RD1.BUF         TO HOLD RD                           0047.000
         EXT       GETRD1          GET RESOURCE DESCRIPTOR BY PATHNAME  0048.000
         EXT       GETRD0          GET RESOURCE DESCRIPTOR BY RID       0049.000
         EXT       COMPTIME        LOOKS FOR ELIGIBLE TIMES             0050.000
         EXT       CONFIRM         PROMPTS FOR COMMAND CONFIRMATION     0051.000
         EXT       CHCKBAOR        CHECK IF VOLMGR IS BATCH ACTIVATED   0052.000
         EXT       F.DDIR          FUNCTION STRING ADDRESS              0053.000
         EXT       F.DFIL          FUNCTION STRING ADDRESS              0054.000
         EXT       F.DCOM          FUNCTION STRING ADDRESS              0055.000
         EXT       FUN.SAVE        ADDRESS OF FUNCTION STRING           0056.000
         EXT       BUILDCNP        BUILDS A CNP                         0057.000
*                                                                       0058.000
         EXT       PFLAGS          FLAG BYTE IN GETPROTO ROUTINE        0059.000
         EXT       FLAGS           FLAG WORD, FUPRES MODULE             0060.000
         EXT       IO2BLEN                                              0061.000
         EXT       IO2BUFF         BEGINNING OF IO2 BUFFER              0062.000
         EXT       IO2BIDX         POINTER TO CURENT IO2 PROTO. ENTRY   0063.000
         EXT       STACKPTR        FOR SAVING R1                        0064.000
         EXT       FORMATOT        FORMAT AND OUTPUT MESSAGE            0065.000
         EXT       COMDADDR        ADDRESS FOR COMMAND DISPATCH         0066.000
         EXT       FILERTN         RETURN ADDRESS FOR COMMAND DISPATCH  0067.000
         EXT       SS.PATNM        PARSE TABLE FOR PATHNAME             0068.000
         EXT       SS.KWSYN        PARSE TABLE TO CK KEYWD SYNTAX       0069.000
         EXT       A.GLOBAL                                             0070.000
         EXT       SS.INP                                               0071.000
         EXT       SS.TIMOP        SYNTAX GRAPH FOR TIME OPTIONS        0072.000
         EXT       SS.BRIE         SYNTAX GRAPH FOR BRIEF OPTION        0073.000
         EXT       SS.CONF                                              0074.000
         EXT       A.LOCAL                                              0075.000
         EXT       SS.CPATH                                             0076.000
         EXT       SS.DDPTH                                             0077.000
         EXT       INVKEY                                               0078.000
         EXT       PERR006                                              0079.000
         EXT       FLAGBITS        PROGRAM GLOBAL BOOLEAN FLAG BITS     0080.000
*                                                                       0081.000
*    EXTERNAL DEFINITIONS                                               0082.000
*                                                                       0083.000
         DEF       C.DERES2        LOW LEVEL ENTRY POINT                0084.000
         DEF       C.DELDIR        DELETE DIRECTORY ENTRY POINT         0085.000
         DEF       C.DELFIL        DELETE FILE ENTRY POINT              0086.000
         DEF       C.DELCOM        DELETE COMMON ENTRY POINT            0087.000
*                                                                       0088.000
         DEF       S.DELDIR        STATE TABLE FOR DELETE DIR           0089.000
         DEF       S.DELFIL        STATE TABLE FOR DELETE FILE          0090.000
         DEF       S.DELCOM        STATE TABLE FOR DELETE COMMON        0091.000
*                                                                       0092.000
*    SYSTEM MACRO CALLS FOR DEFINITIONS AND EQUATES:                    0093.000
*                                                                       0094.000
         M.REQS                    REGISTER EQUATES                     0095.000
         M.CNP                     CNP OFFSETS                          0096.000
*                                                                       0097.000
*    LOCAL DEFINITIONS:                                                 0098.000
*                                                                       0099.000
USEIO2   EQU       0                                                    0100.000
UIO2.F   EQU       14                                                   0101.000
IO21ST.F EQU       8                                                    0102.000
         STINIT                    TPARSE DEFINITIONS AND INIT          0103.000
*                                                                       0104.000
*    LOCAL STORAGE:                                                     0105.000
*                                                                       0106.000
*                  THIS MODULE CONTAINS NO LOCAL DATA, AND IS CONFIGURED0107.000
*                  INTO THE CSECT.  IF LOCAL DATA IS REQUIRED, THE CSECT0108.000
*                  DIRECTIVE AT BEGINNING OF THIS MODULE MUST BE CHANGED0109.000
*                  TO DSECT, AND A CSECT DIRECTIVE MUST BE ADDED AFTER  0110.000
*                  THE LOCAL DATA HAS BEEN DEFINED.                     0111.000
*                                                                       0112.000
         TITLE     'DELETE DIRECTORY' FUP COMMAND                       0113.000
*                                                                       0114.000
* ROUTINE C.DELDIR - TOP LEVEL ENTRY FOR 'DELETE DIRECTORY'.            0115.000
*                                                                       0116.000
*        THIS ROUTINE IS ENTERED BY THE FILE UTILITY MAIN               0117.000
*        COMMAND DISPATCHER AFTER THE 'DELETE DIRECTORY' COMMAND        0118.000
*        HAS BEEN SUCCESSFULLY PARSED.                                  0119.000
*        IT SETS UP THE FUNCTION STRING ADDRESS AND THEN BRANCHES       0120.000
*        TO COMMON CODE FOR ALL DELETES.                                0121.000
*                                                                       0122.000
C.DELDIR EQU       $                                                    0123.000
         PUSH                      SAVE REGISTERS                       0124.000
         LA        R7,F.DDIR       FUNCTION STRING ADDRESS              0125.000
         STW       R7,FUN.SAVE                                          0126.000
         TBM       GWILD.F,FLAGBITS                                     0127.000
         BNS       DDIR.30         GO IF NO WILDCARDS USED.             0128.000
*                                                                       0129.000
* WILDCARD CHAR. USED IN DELETE D COMMAND.  INITIALIZE BUFFER POINTERS  0130.000
* SO THAT PROTOTYPES ARE TAKEN FROM IO2BUFFER IN GETPROTO ROUTINE,      0131.000
* INSTEAD OF FROM IO1BUFF(NORMAL).                                      0132.000
*                                                                       0133.000
         TBM       UIO2.F,FLAGS    WAS SCRATCH FILE USED?               0134.000
         BNS       DDIR.20         IF NOT, GO.                          0135.000
*                                                                       0136.000
DDIR.10  EQU       $                                                    0137.000
         LW        R2,IO2BLEN      ADDRESS OF LAST IO2BUFF ENTRY        0138.000
*                                  SET POINTER HERE, AND FORCE A READ   0139.000
*                                  FROM THE IO2 FILE RIGHT AWAY         0140.000
         ZBM       IO21ST.F,FLAGS  INDICATE FIRST READ FROM FILE        0141.000
         BU        DDIR.21                                              0142.000
DDIR.20  EQU       $                                                    0143.000
         LA        R2,IO2BUFF      INITIALIZE TO BEGINNING OF BUFFER    0144.000
         SUI       R2,PROSZ.O      ADJUST TO FRONT OF BUFFER   V.06     0145.000
DDIR.21  STW       R2,IO2BIDX      CURRENT POINTER                      0146.000
         SBM       USEIO2,PFLAGS   TELL 'GETPROTO' TO TAKE PROTO. FROM  0147.000
*                                  IO2BUFER                             0148.000
DDIR.30  BU        DERES           JOIN COMMEN CODE                     0149.000
*                                  PROTO FROM IO2BUFF.                  0150.000
         TITLE     'DELETE FILE' FUP COMMAND                            0151.000
*                                                                       0152.000
* ROUTINE C.DELFIL - TOP LEVEL ENTRY FOR 'DELETE FILE'.                 0153.000
*                                                                       0154.000
*        THIS ROUTINE IS ENTERED BY THE FILE UTILITY MAIN               0155.000
*        COMMAND DISPATCHER AFTER THE 'DELETE FILE' COMMAND             0156.000
*        HAS BEEN SUCCESSFULLY PARSED.                                  0157.000
*        IT SETS UP THE FUNCTION STRING ADDRESS AND THEN BRANCHES       0158.000
*        TO COMMON CODE FOR ALL DELETES.                                0159.000
*                                                                       0160.000
C.DELFIL EQU       $                                                    0161.000
         PUSH                      SAVE REGISTERS                       0162.000
         LA        R7,F.DFIL       FUNCTION STRING ADDRESS              0163.000
         STW       R7,FUN.SAVE                                          0164.000
         BU        DERES           COMMON CODE TO DO THE DELETE         0165.000
         TITLE     'DELETE COMMON' FUP COMMAND                          0166.000
*                                                                       0167.000
* ROUTINE C.DELCOM - TOP LEVEL ENTRY FOR 'DELETE COMMON'.               0168.000
*                                                                       0169.000
*        THIS ROUTINE IS ENTERED BY THE FILE UTILITY MAIN               0170.000
*        COMMAND DISPATCHER AFTER THE 'DELETE COMMON' COMMAND           0171.000
*        HAS BEEN SUCCESSFULLY PARSED.                                  0172.000
*        IT SETS UP THE FUNCTION STRING ADDRESS AND THEN BRANCHES       0173.000
*        TO COMMON CODE FOR ALL DELETES.                                0174.000
*                                                                       0175.000
C.DELCOM EQU       $                                                    0176.000
         PUSH                      SAVE REGISTERS                       0177.000
         LA        R7,F.DCOM       FUNCTION STRING ADDRESS              0178.000
         STW       R7,FUN.SAVE                                          0179.000
         BU        DERES           COMMON CODE TO DO THE DELETE         0180.000
         TITLE     COMMON CODE TO DELETE A RESOURCE                     0181.000
         SPACE                                                          0182.000
DERES    EQU       $                                                    0183.000
         SPACE                                                          0184.000
*                                                                       0185.000
* GET THE NEXT PROTOTYPE/OPTION BLOCK PAIR                              0186.000
* CC1 WILL BE ZERO IF THERE ARE MORE BLOCKS, ELSE 1                     0187.000
*                                                                       0188.000
DERES2   BL        GETPROTO                                             0189.000
         BCT       1,DERES0        BRANCH IF NO MORE BLOCKS             0190.000
*                                                                       0191.000
* THERE IS ANOTHER PROTOTYPE BLOCK, AND ITS ADDRESS IS IN R2.           0192.000
* THE FOLLOWING OPTIONS ARE ALLOWED ON DELETE RESOURCE AND MUST         0193.000
* BE CONSIDERED BEFORE THE DELETE TAKES PLACE:                          0194.000
*                                                                       0195.000
*        (1) SINCE TIME                                                 0196.000
*        (2) BEFORE TIME                                                0197.000
*        (3) CONFIRM                                                    0198.000
*                                                                       0199.000
* OBTAIN THE RD FIRST OF ALL FOR TIME COMPARISONS AND FOR               0200.000
* THE AUDIT TRAIL.                                                      0201.000
* THE RD IS PUT INTO RD.BUF BY ROUTINE GETRD1                           0202.000
*                                                                       0203.000
         LW        R6,PROFRD.O,X2  IS RID PRESENT IN PROTOTYPE ENTRY ???0204.000
         BNZ       DERES2.1        GO FOR RID PRESENT                   0205.000
         LA        R7,RD1.BUF      TO HOLD THE RD                       0206.000
         BL        GETRD1          GET RD BY PATHNAME                   0207.000
         BS        DERES1          BRANCH IF ERRORS                     0208.000
         BU        DERES3          JOIN COMMON CODE                     0209.000
         SPACE     2                                                    0210.000
DERES2.1 EQU       $                                                    0211.000
         LA        R7,RD1.BUF      TO HOLD THE RESOURCE DESCRIPTOR      0212.000
         LA        R2,PROFVN.O,X2  RID ADDRESS WITHIN PROTOTYPE         0213.000
         BL        GETRD0          GET RESOURCE DESCRIPTOR BY RID       0214.000
         SUI       R2,PROFVN.O     PROTOTYPE ADDRESS                    0215.000
         TBR       R0,CC1          ANY ERROR(S) ???                     0216.000
         BS        DERES1          GO FOR ERROR(S)                      0217.000
         SPACE                                                          0218.000
*                                                                       0219.000
* SEE IF TIME OPTIONS ARE ELIGIBLE                                      0220.000
*                                                                       0221.000
DERES3   LW        R3,PROFOA.O,R2  OPTION BLOCK ADDRESS        83-0089  0222.000
         BL        COMPTIME                                             0223.000
         BCF       1,DERES2        LOOP IF RESOURCE NOT ELIGIBLE        0224.000
*                                                                       0225.000
DERES2.3 EQU       $                                           83-0089  0226.000
*                                                              83-0089  0227.000
* PROMPT FOR CONFIRMATION IF CONFIRM OPTION IS ON              83-0089  0228.000
*                                                              83-0089  0229.000
         TBM       OPT.B.CO,OPT.FLGS,R3                        83-0089  0230.000
         BNS       DERES4          BRANCH IF NO CONFIRM REQUIRE83-0089  0231.000
*                                                              83-0089  0232.000
* IF IN BATCH MODE, CONFIRM OPTION IS NOT VALID. TEST AND IGNORE IF     0233.000
* IN BATCH MODE.                                               83-0089  0234.000
*                                                              83-0089  0235.000
         BL        CHCKBAOR        CHECK FOR BATCH ACTIVATION  83-0089  0236.000
         BS        DERES4                                      83-0089  0237.000
*                                                              83-0089  0238.000
         BL        CONFIRM         GET CONFIRMATION            83-0089  0239.000
         BCF       1,DERES2        LOOP IF REPLY DONT DO IT    83-0089  0240.000
* O.K. AT LAST WE CAN ATTEMPT TO DELETE THE RESOURCE                    0241.000
*                                                                       0242.000
* THE SERVICE CALL FOR DELETING A RESOURCE IS COMMON TO                 0243.000
* DIRECTORIES, FILES AND COMMON, SO THERE IS ONLY ONE                   0244.000
* LOW LEVEL ENTRY POINT (C.DEDIR2).                                     0245.000
*                                                                       0246.000
DERES4   BL        C.DERES2                                             0247.000
         BCT       1,DERES1        BRANCH IF ERRORS                     0248.000
*                                                                       0249.000
* THE DELETE WAS SUCCESSFUL SO PRINT AN AUDIT TRAIL LINE.               0250.000
*                                                                       0251.000
         BL        AUDIT0                                               0252.000
         BU        DERES2          LOOP FOR NEXT PROTOTYPE BLOCK        0253.000
*                                                                       0254.000
* ERRORS WERE DETECTED DURING THE DELETE FUNCTION                       0255.000
* THE ERROR CODE IS IN R7                                               0256.000
* CALL AN ERROR ROUTINE WHICH USES R7 AND R2 (PROTOTYPE BLOCK           0257.000
* ADDRESS) TO PRINT AN ERROR MESSAGE.                                   0258.000
*                                                                       0259.000
DERES1   BL        ERROR                                                0260.000
         BU        DERES2          LOOP FOR NEXT PROTOTYPE BLOCK        0261.000
*                                                                       0262.000
* THERE ARE NO MORE PROTOTYPE BLOCKS SO THE HANDLING OF THIS            0263.000
* COMMAND HAS FINISHED.                                                 0264.000
*                                                                       0265.000
DERES0   EQU       $                                                    0266.000
         ZBM       USEIO2,PFLAGS   CLEAR USE IO2BUFFER FLAG             0267.000
         POP                       RESTORE REGISTERS                    0268.000
         TRSW      R0                                                   0269.000
         PAGE                                                           0270.000
*                                                                       0271.000
* ROUTINE C.DERES2 - LOW LEVEL ENTRY FOR 'DELETE RESOURCE'.             0272.000
*                                                                       0273.000
*        THIS ROUTINE IS ENTERED BY EITHER:                             0274.000
*                                                                       0275.000
*        (1) A CALL FROM THE TOP LEVEL ENTRY ROUTINE                    0276.000
*        (2) A CALL FROM ANOTHER FUP COMMAND.                           0277.000
*                                                                       0278.000
* THIS ROUTINE BUILDS AN CNP BLOCK FOR DELETE RESOURCE                  0279.000
* BUILDS A PATHNAME BLOCK FOR THE RESOURCE,                             0280.000
* AND ISSUES THE SVC TO ATTEMPT THE DELETE.                             0281.000
* ERROR CODES ARE RETURNED IN R7 FROM THE SYSTEM SERVICE                0282.000
* AND THIS IS PASSED BACK TO THE CALLER.                                0283.000
************************************************************************0284.000
**                                                                    **0285.000
***  NOTE:  DELETE BY RID IS NOT ALLOWED                             ***0286.000
**                                                                    **0287.000
************************************************************************0288.000
*                                                                       0289.000
*        INPUT:                                                         0290.000
*                  R2 = ADDRESS OF PROTOTYPE TABLE ENTRY                0291.000
*                                                                       0292.000
*        OUTPUT:                                                        0293.000
*                  R7 = ERROR STATUS (ELSE 0)                           0294.000
*                  CC1 IS SET IF ERRORS                                 0295.000
*                                                                       0296.000
* CODE STARTS HERE                                                      0297.000
*                                                                       0298.000
C.DERES2 EQU       $                                                    0299.000
         ANMW      R0,ADR.MASK     CLEAR CC'S                           0300.000
         PUSH                      SAVE REGISTERS                       0301.000
*                                                                       0302.000
* CALL ROUTINE BUILDCNP TO SET UP THE CNP                               0303.000
*                                                                       0304.000
         ZR        R7                                                   0305.000
         BL        BUILDCNP                                             0306.000
*                                                                       0307.000
* CALL BUILDPNB FOR PATHNAME BLOCK                                      0308.000
* R2 CONTAINS THE ADDRESS OF THE PROTOTYPE BLOCK                        0309.000
* ON RETURN R7 CONTAINS THE PNB DESCRIPTOR                              0310.000
*                                                                       0311.000
         BL        BUILDPNB                                             0312.000
         SPACE                                                          0313.000
*                                                                       0314.000
* NOW CALL THE SYSTEM SERVICE H.VOMM,5 TO DO THE DELETE                 0315.000
*                                                                       0316.000
         PUSHSTP                   SAVE R1                              0317.000
         TRR       R7,R1           INTO R1 FOR SVC CALL                 0318.000
         LA        R7,CNP.BUF      ADDRESS OF CNP                       0319.000
         SVC2.24                   H.VOMM,5                             0320.000
*                                                                       0321.000
* THE STATUS IS RETURNED IN CP.STAT OFFSET IN CNP                       0322.000
* LOAD THIS INTO R7 FOR RETURN TO THE CALLER.                           0323.000
* R1 WAS CLOBBERED BY THE SVC CALL (CNP ADDESS) SO                      0324.000
* RESTORE IT FIRST                                                      0325.000
*                                                                       0326.000
         POPSTP                    RESTORE R1                           0327.000
         CHECKERR  MOD.VOM                                              0328.000
         POP                       RESTORE REGISTERS                    0329.000
         TRSW      R0                                                   0330.000
         TITLE     DELETE DIRECTORY COMMAND STATE TABLES                0331.000
*                                                                       0332.000
* D.CMD    - ACTION WHEN VALID DELETE DIRECTORY COMMAND IS PARSED       0333.000
*                                                                       0334.000
         SPACE                                                          0335.000
D.CMD    EQU       $                                                    0336.000
         SBM       DONLY.F,FLAGBITS     INDICATE WILD CARD SEARCH FOR   0337.000
*                                       DIRECTORY(S) ONLY               0338.000
         LA        R7,C.DELDIR     GET ADDRESS OF COMMAND PROCESSOR     0339.000
         STW       R7,COMDADDR     SAVE FOR DISPATCHER                  0340.000
         TRSW      R0              RETURN TO PARSER                     0341.000
         BOUND     1W                                                   0342.000
         SPACE                                                          0343.000
*++                                                                     0344.000
* S.DELDIR - STATE TABLES FOR THE DELETE DIRECTORY COMMAND              0345.000
*                                                                       0346.000
* COMMAND SYNTAX:                                                       0347.000
*                                                                       0348.000
* DELETE DIRECTORY [PATH=] PATHNAME,[PATH=] PATHNAME [,...]             0349.000
*                                                                       0350.000
* OPTIONS:                                                              0351.000
*                                                                       0352.000
*        BRIEF=BOOL                                                     0353.000
*                                                                       0354.000
*--                                                                     0355.000
         SPACE                                                          0356.000
S.DELDIR STATE                     STATE TABLE FOR DELETE DIRECTORY     0357.000
           TRAN    NOBLNK,A.GLOBAL      POSITION OPTION BLOCK FOR       0358.000
*                                       GLOBAL OPTIONS                  0359.000
SD.10    STATE                                                          0360.000
           TRAN    EOS,,PERR006         ERROR -- MUST HAVE AT LEAST ONE 0361.000
*                                       PATHNAME                        0362.000
           TRAN    TSTEXP,,SD.20,SS.KWSYN    IS IT A KEYWORD ???        0363.000
           TRAN    NOBLNK,,SD.30             NOT A KEYWORD -- MUST BE AN0364.000
*                                            ACTUAL PATHNAME            0365.000
SD.20    STATE                                                          0366.000
           TRAN    SUBEXP,,SD.30,SS.INP,NOB.M      IS IT "PATH=" KEYWORD0367.000
           TRAN    SUBEXP,,SD.10,SS.OPT,NOB.M      CHECK FOR LEGAL OPTIO0368.000
*                                                 KEYWORDS              0369.000
           ERRVAL  INVKEY                         INVALID KEYWORD       0370.000
SD.30    STATE                                                          0371.000
           TRAN    EOS,,PERR006              ERROR -- MUST HAVE AT LEAST0372.000
*                                            ONE PATHNAME               0373.000
           TRAN    NOBLNK,A.LOCAL            POSITION TO 1ST LOCAL      0374.000
*                                            OPTION BLOCK               0375.000
         STATE                                                          0376.000
           TRAN    SUBEXP,A.LOCAL,SD.40,SSD.LIST  GET PATHNAME & LOCAL O0377.000
SD.40      TRAN    EOS,D.CMD,EXIT            EXIT PARSE -- SUCCESSFUL   0378.000
*                                            ALSO PLUG ENTRY ADDRESS    0379.000
*                                            SYNTAX VIOLATION           0380.000
         STATE                                                          0381.000
         SPACE     3                                                    0382.000
SSD.LIST  STATE                               INPUT FILE LIST           0383.000
           TRAN    SUBEXP,,,SS.DDPTH,NOB.M                              0384.000
SSD.SL10  STATE                                                         0385.000
           TRAN    TSTEXP,,,SS.KWSYN                                    0386.000
           TRAN    LAMBDA,,SSD.SL20                                     0387.000
         STATE                                                          0388.000
           TRAN    SUBEXP,,SSD.SL10,SS.OPT,NOB.M  GET AN OPTION         0389.000
SSD.SL20  STATE                                                         0390.000
           TRAN    COMMA,A.LOCAL,SSD.SL30,,NOB.M   GET MORE IF IN LIST  0391.000
           TRAN    NOBLNK,,EXIT                                         0392.000
SSD.SL30  STATE                                                         0393.000
           TRAN    SUBEXP,,SSD.LIST,SS.INP,NOB.M+LMB.M    "PATH=" KEYWO 0394.000
         STATE                                                          0395.000
         SPACE                                                          0396.000
         TITLE     DELETE FILE COMMAND STATE TABLES                     0397.000
*                                                                       0398.000
* F.CMD    - ACTION WHEN VALID DELETE FILE COMMAND IS PARSED            0399.000
*                                                                       0400.000
         SPACE                                                          0401.000
F.CMD    LA        R7,C.DELFIL     GET ADDRESS OF COMMAND PROCESSOR     0402.000
         STW       R7,COMDADDR     SAVE FOR DISPATCHER                  0403.000
         TRSW      R0              RETURN TO PARSER                     0404.000
         BOUND     1W                                                   0405.000
*++                                                                     0406.000
* S.DELFIL - STATE TABLES FOR THE DELETE FILE COMMAND                   0407.000
*                                                                       0408.000
* COMMAND SYNTAX:                                                       0409.000
*                                                                       0410.000
* DELETE [FILE] [PATH=] PATHNAME,[PATH=] PATHNAME [,...]                0411.000
*                                                                       0412.000
* OPTIONS:                                                              0413.000
*                                                                       0414.000
*        BRIEF=BOOL                                                     0415.000
*                                                                       0416.000
*--                                                                     0417.000
         SPACE                                                          0418.000
S.DELFIL STATE                     STATE TABLE FOR DELETE FILE          0419.000
           TRAN    NOBLNK,A.GLOBAL      POSITION OPTION BLOCK FOR       0420.000
*                                       GLOBAL OPTIONS                  0421.000
SF.10     STATE                                                         0422.000
           TRAN    EOS,,PERR006         ERROR -- MUST HAVE AT LEAST ONE 0423.000
*                                       PATHNAME                        0424.000
           TRAN    TSTEXP,,SF.20,SS.KWSYN     IS IT A KEYWORD ???       0425.000
           TRAN    NOBLNK,,SF.30              NOT A KEYWORD -- MUST BE A0426.000
*                                            ACTUAL PATHNAME            0427.000
SF.20     STATE                                                         0428.000
           TRAN    SUBEXP,,SF.30,SS.INP,NOB.M       IS IT "PATH=" KEYWOR0429.000
           TRAN    SUBEXP,,SF.10,SS.OPT,NOB.M       CHECK FOR LEGAL OPTI0430.000
*                                                 KEYWORDS              0431.000
           ERRVAL  INVKEY                         INVALID KEYWORD       0432.000
SF.30     STATE                                                         0433.000
           TRAN    EOS,,PERR006              ERROR -- MUST HAVE AT LEAST0434.000
*                                            ONE PATHNAME               0435.000
           TRAN    NOBLNK,A.LOCAL            POSITION TO 1ST LOCAL      0436.000
*                                            OPTION BLOCK               0437.000
         STATE                                                          0438.000
           TRAN    SUBEXP,A.LOCAL,SF.40,SSF.LIST   GET PATHNAME & LOCAL 0439.000
SF.40    STATE                                                  CVOL-33 0440.000
           TRAN    EOS,F.CMD,EXIT                               CVOL-33 0441.000
*F.40       TRAN    EOS,F.CMD,EXIT  CVOL-33   EXIT PARSE -- SUCCESSFUL  0442.000
*                                            ALSO PLUG ENTRY ADDRESS    0443.000
*                                            SYNTAX VIOLATION           0444.000
         STATE                                                          0445.000
         SPACE     3                                                    0446.000
SSF.LIST  STATE                               INPUT FILE LIST           0447.000
           TRAN    SUBEXP,,,SS.PATNM,NOB.M                              0448.000
SSF.SL10  STATE                                                         0449.000
           TRAN    TSTEXP,,,SS.KWSYN          LOOK FOR AN OPTION KEYWORD0450.000
           TRAN    LAMBDA,,SSF.SL20           MUST NOT BE ANY           0451.000
         STATE                                                          0452.000
           TRAN    SUBEXP,,SSF.SL10,SS.OPT,NOB.M   GET AN OPTION        0453.000
SSF.SL20  STATE                                                         0454.000
           TRAN    COMMA,A.LOCAL,SSF.SL30,,NOB.M   GET MORE IF IN LIST  0455.000
           TRAN    NOBLNK,,EXIT              EXIT THIS SUBEXPRESSION    0456.000
SSF.SL30  STATE                                                         0457.000
           TRAN    SUBEXP,,SSF.LIST,SS.INP,NOB.M+LMB.M   "PATH=" KEYWOR 0458.000
         STATE                                                          0459.000
         TITLE     DELETE COMMON COMMAND STATE TABLES                   0460.000
*                                                                       0461.000
* C.CMD    - ACTION WHEN VALID DELETE COMMON COMMAND IS PARSED          0462.000
*                                                                       0463.000
         SPACE                                                          0464.000
C.CMD    EQU       $                                                    0465.000
         SBM       PONLY.F,FLAGBITS     WILD CARD SEARCH FOR MEMORY     0466.000
*                                       PARTITION DEFINITIONS ONLY !    0467.000
         LA        R7,C.DELCOM     GET ADDRESS OF COMMAND PROCESSOR     0468.000
         STW       R7,COMDADDR     SAVE FOR DISPATCHER                  0469.000
         TRSW      R0              RETURN TO PARSER                     0470.000
         BOUND     1W                                                   0471.000
*++                                                                     0472.000
* S.DELCOM - STATE TABLES FOR THE DELETE COMMON COMMAND                 0473.000
*                                                                       0474.000
* COMMAND SYNTAX:                                                       0475.000
*                                                                       0476.000
* DELETE COMMON  [PATH=] PATHNAME,[PATH=] PATHNAME [,...]               0477.000
*                                                                       0478.000
* OPTIONS:                                                              0479.000
*                                                                       0480.000
*        BRIEF=BOOL                                                     0481.000
*                                                                       0482.000
*--                                                                     0483.000
         SPACE                                                          0484.000
S.DELCOM STATE                     STATE TABLE FOR DELETE COMMON        0485.000
           TRAN    NOBLNK,A.GLOBAL      POSITION OPTION BLOCK FOR       0486.000
*                                       GLOBAL OPTIONS                  0487.000
S.10     STATE                                                          0488.000
           TRAN    EOS,,PERR006         ERROR -- MUST HAVE AT LEAST ONE 0489.000
*                                       PATHNAME                        0490.000
           TRAN    TSTEXP,,S.20,SS.KWSYN    IS IT A KEYWORD ???         0491.000
           TRAN    NOBLNK,,S.30              NOT A KEYWORD -- MUST BE AN0492.000
*                                            ACTUAL PATHNAME            0493.000
S.20     STATE                                                          0494.000
           TRAN    SUBEXP,,S.30,SS.INP,NOB.M      IS IT "PATH=" KEYWORD 0495.000
           TRAN    SUBEXP,,S.10,SS.OPT,NOB.M      CHECK FOR LEGAL OPTION0496.000
*                                                 KEYWORDS              0497.000
           ERRVAL  INVKEY                         INVALID KEYWORD       0498.000
S.30     STATE                                                          0499.000
           TRAN    EOS,,PERR006              ERROR -- MUST HAVE AT LEAST0500.000
*                                            ONE PATHNAME               0501.000
           TRAN    NOBLNK,A.LOCAL            POSITION TO 1ST LOCAL      0502.000
*                                            OPTION BLOCK               0503.000
         STATE                                                          0504.000
           TRAN    SUBEXP,A.LOCAL,S.40,SS.LIST   GET PATHNAME & LOCAL OP0505.000
S.40       TRAN    EOS,C.CMD,EXIT            EXIT PARSE -- SUCCESSFUL   0506.000
*                                            ALSO PLUG ENTRY ADDRESS    0507.000
*                                            SYNTAX VIOLATION           0508.000
         STATE                                                          0509.000
         SPACE     3                                                    0510.000
SS.LIST  STATE                               INPUT FILE LIST            0511.000
           TRAN    SUBEXP,,,SS.PATNM,NOB.M                              0512.000
SS.SL10  STATE                                                          0513.000
           TRAN    TSTEXP,,,SS.KWSYN         LOOK FOR AN OPTION KEYWORD 0514.000
           TRAN    LAMBDA,,SS.SL20           MUST NOT BE ANY            0515.000
         STATE                                                          0516.000
           TRAN    SUBEXP,,SS.SL10,SS.OPT,NOB.M  GET AN OPTION          0517.000
SS.SL20  STATE                                                          0518.000
           TRAN    COMMA,A.LOCAL,SS.SL30,,NOB.M   GET MORE IF IN LIST   0519.000
           TRAN    NOBLNK,,EXIT              EXIT THIS SUBEXPRESSION    0520.000
SS.SL30  STATE                                                          0521.000
           TRAN    SUBEXP,,SS.LIST,SS.INP,NOB.M+LMB.M   "PATH=" KEYWORD 0522.000
         STATE                                                          0523.000
         SPACE     3                                                    0524.000
SS.OPT   STATE                     OPTIONS APPLICABLE FOR THIS COMMAND  0525.000
           TRAN    KEYWD,,,K.OPTS,NOB.M                                 0526.000
           TRAN    NOBLNK,,SS.TIMOP                                     0527.000
         STATE                                                          0528.000
         SPACE     4                                                    0529.000
K.OPTS   EQU       $                         DELETE RESOURCE  -- OPTIONS0530.000
         KEYWRD    CONFIRM,,SS.CONF,3   CONFIR-BOOL OPT. !32B01 ECKW-34 0531.000
         KEYWRD    BRIEF,,SS.BRIE,3     BRIEF - BOOL OPT. !32B01 ECKW-340532.000
         DATAW     0                         END OF LIST                0533.000
         SPACE     2                                                    0534.000
END      END                                                            0535.000
