         PROC  &P,0,&TCB=,&SYS=,&FIL=                                   SET00010
SETLCK   NAME  0                                                        SET00020
SETRDR   NAME  1                                                        SET00030
CLRLCK   NAME  2                                                        SET00040
CLRRDR   NAME  3                                                        SET00050
         LCL   &LU,&SC,&BR                                              SET00060
&LU      SET   0                                                        SET00070
&SC      SET   0                                                        SET00080
&BR      SET   0                                                        SET00090
         DO    (&P(0)=0)++(&P(0)=2)                                     SET00100
&LU      SET   X'80'                                                    SET00110
         ENDO                                                           SET00120
         DO    (&P(0)=2)++(&P(0)=3)                                     SET00130
&SC      SET   X'08'                                                    SET00140
         ENDO                                                           SET00150
         CNOP  0,4                                                      SET00160
         DO    (('&SYS'='')**('&FIL'=''))=0                             SET00170
                   LM    0,1,*+8                                        SET00180
&BR      SET   4                                                        SET00190
         GOTO  .LAB1                                                    SET00200
         ENDO                                                           SET00210
         DO    ('&TCB'='(1)')++('&TCB'='1')                             SET00220
                   LA    1,0(0,1)                                       SET00230
                   O     1,*+8+&BR                                      SET00240
         GOTO  .LAB1                                                    SET00250
         ENDO                                                           SET00260
         DO    ('&TCB'='')=0                                            SET00270
                   L     1,*+8+&BR                                      SET00280
         ENDO                                                           SET00290
.LAB1    LABEL                                                          SET00300
                   B     *+8+&BR                                        SET00310
         DO    (('&SYS'='')**('&FIL'=''))=0                             SET00320
         DO    ('&SYS'='')=0                                            SET00330
                   DC    Y(&SYS)                                        SET00340
         GOTO  .LAB3                                                    SET00350
         ENDO                                                           SET00360
                   DC    Y(0)                                           SET00370
.LAB3    LABEL                                                          SET00380
         DO    ('&FIL'='')=0                                            SET00390
                   DC    Y(&FIL)                                        SET00400
         GOTO  .LAB4                                                    SET00410
         ENDO                                                           SET00420
                   DC    Y(0)                                           SET00430
.LAB4    LABEL                                                          SET00440
         ENDO                                                           SET00450
                   DC    AL1(&LU++&SC)                                  SET00460
         DO    (('&TCB'='')++('&TCB'='(1)')++('&TCB'='1'))=0            SET00470
                   DC    AL3(&TCB)                                      SET00480
         GOTO  .SVC                                                     SET00490
         ENDO                                                           SET00500
                   DC    AL3(0)                                         SET00510
.SVC     LABEL                                                          SET00520
                   SVC   8                                              SET00530
         END                                                            SET00540
