./ ADD NAME=JJ$CDE      01 00 98033 98033 145139 0019 0019 0000 IBMUSER
//IBMUSERC JOB ACCT,'JAN JAEGER',NOTIFY=IBMUSER,CLASS=A,MSGCLASS=A      00010000
//ASMA90   EXEC PGM=ASMA90,PARM='DECK,NOOBJ,XREF(SHORT)'                00020000
//SYSPRINT DD  SYSOUT=*                                                 00030000
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00040000
//         DD  DSN=SYS1.MODGEN,DISP=SHR                                 00050000
//         DD  DSN=IBMUSER.ISTEXCAA.SOURCE,DISP=SHR                     00060000
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,10)                             00070000
//SYSIN    DD  DSN=IBMUSER.ISTEXCAA.SOURCE(JJ$RRCDE),DISP=SHR           00080000
//SYSPUNCH DD  DSN=&&PUNCH,DISP=(MOD,PASS),                             00090000
//          UNIT=SYSALLDA,SPACE=(CYL,10)                                00100000
//IEWL     EXEC PGM=IEWL,PARM='RENT,REFR,XREF'                          00110000
//SYSPRINT DD  SYSOUT=*                                                 00120000
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,10)                             00130000
//SYSLMOD  DD  DSN=SYS1.LINKLIB,DISP=SHR                                00140000
//SYSLIN   DD  DSN=&&PUNCH,DISP=(OLD,DELETE)                            00150000
//         DD  *                                                        00160000
 ORDER F1REWALL,ICHRRCDE                                                00170000
 ENTRY F1REWALL                                                         00180000
 NAME  ICHRRCDE(R)                                                      00190000
./ ADD NAME=JJ$EXC      01 00 98033 98033 144901 0030 0030 0000 IBMUSER
//IBMUSERV JOB ACCT,'JAN JAEGER',NOTIFY=IBMUSER,CLASS=A,MSGCLASS=A      00010000
//ASMMEM   PROC MEM=                                                    00020000
//ASMA90   EXEC PGM=ASMA90,PARM='DECK,NOOBJ,XREF(SHORT)'                00030000
//SYSPRINT DD  SYSOUT=*                                                 00040000
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00050000
//         DD  DSN=SYS1.MODGEN,DISP=SHR                                 00060000
//         DD  DSN=IBMUSER.ISTEXCAA.SOURCE,DISP=SHR                     00070000
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,10)                             00080000
//SYSIN    DD  DSN=IBMUSER.ISTEXCAA.SOURCE(&MEM),DISP=SHR               00090000
//SYSPUNCH DD  DSN=&&PUNCH,DISP=(MOD,PASS),                             00100000
//          UNIT=SYSALLDA,SPACE=(CYL,10)                                00110000
// PEND                                                                 00120000
// EXEC ASMMEM,MEM=JJ$EXCAA                                             00130000
// EXEC ASMMEM,MEM=JJ$EXCRR                                             00140000
// EXEC ASMMEM,MEM=JJ$EXCCM                                             00150000
// EXEC ASMMEM,MEM=JJ$EXC00                                             00160000
// EXEC ASMMEM,MEM=JJ$EXC01                                             00170000
// EXEC ASMMEM,MEM=JJ$EXC09                                             00180000
// EXEC ASMMEM,MEM=JJ$EXC0A                                             00190000
// EXEC ASMMEM,MEM=JJ$EXCFE                                             00200000
// EXEC ASMMEM,MEM=JJ$EXCFF                                             00210000
//IEWL     EXEC PGM=IEWL,PARM='RENT,REFR,AMODE=31,RMODE=ANY,XREF'       00220000
//SYSPRINT DD  SYSOUT=*                                                 00230000
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,10)                             00240000
//SYSLMOD  DD  DSN=SYS1.VTAMLIB,DISP=SHR                                00250000
//SYSLIN   DD  DSN=&&PUNCH,DISP=(OLD,DELETE)                            00260000
//         DD  *                                                        00270000
 ORDER JJ$EXCAA                                                         00280000
 ENTRY JJ$EXCAA                                                         00290000
 NAME  ISTEXCAA(R)                                                      00300000
./ ADD NAME=JJ$EXCAA    01 00 98033 98033 144012 0141 0141 0000 IBMUSER
 TITLE 'ISTEXCAA - VTAM SESSION SETUP VERIFICATION BY RACF'             00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* JUSTIFICATION:                                                      * 00040000
*                                                                     * 00050000
*   THIS EXIT PROVIDES A VTAM FIREWALL FUNCTION                       * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* FUNCTION:                                                           * 00090000
*                                                                     * 00100000
*   TO ALLOW OR PROHIBIT THE SETUP OF VTAM SESSIONS BY MEANS OF       * 00110000
*   RACF PROFILES                                                     * 00120000
*                                                                     * 00130000
*                                                                     * 00140000
* LOGIC:                                                              * 00150000
*                                                                     * 00160000
*   CHECK IF LU IS ALLOWED ACCESS TO DESTINATION                      * 00170000
*     (PROFILE PRIMNET.PRIMLU.SECNET.SECLU)                           * 00180000
*                                                                     * 00190000
*   IF NO ACCESS THEN CHECK FOR CLSDSP PASS                           * 00200000
*     (PROFILE PRIMNET.PRIMLU.SECNET.SECLU.INITNET.INITLU)            * 00210000
*     IF ACCESS GRANTED (PROFILE MUST EXIST) THEN SESSION SETUP       * 00220000
*     WILL CONTINUE.                                                  * 00230000
*                                                                     * 00240000
*   IF DURING INITIAL AUTHORIZATION NOT ALL QUALIFIERS ARE KNOWN      * 00250000
*     THEN ACCESS CHECKING WILL TAKE PLACE IN THE SECONDARY           * 00260000
*     AUTHORIZATION EXIT.  THIS MAINLY OCCURS WHEN A SESSION SETUP    * 00270000
*     IS ATTEMPTED WITH A PARTNER LU FOR WHICH NO CROSS DOMAIN        * 00280000
*     RESOURCE EXISTS, DURING SECONDARY AUTHORIZATION THIS WILL       * 00290000
*     EXISTS AND HENCE THE TRUE NAME WILL BE KNOWN. IF THE TRUENAME   * 00300000
*     CAN STILL NOT BE RESOLVED (TARGET OUTSIDE OUR NETWORK) THEN     * 00310000
*     A TARGET OF ?.NETID WILL BE CONSTRUCTED                         * 00320000
*                                                                     * 00330000
*                                                                     * 00340000
* CONSTANTS:                                                          * 00350000
*                                                                     * 00360000
*   MEMBER JJ$EXCDS CONTAINS THE RACF RESOURCE CLASS (LABEL RACCLASS) * 00370000
*                                                                     * 00380000
*                                                                     * 00390000
* EXAMPLES:                                                           * 00400000
*                                                                     * 00410000
*   ALLOW CLSDSTPASS FROM TCAS:                                       * 00420000
*     RDEF VTAMWALL *.*.*.*.OURNETID.XTSO UACC(R)                     * 00430000
*                                                                     * 00440000
*   ALLOW ONLY LUS FROM OUR NETWORK TO TSO                            * 00450000
*     RDEF VTAMWALL OUTNETID.XTSO.OURNETID.* UACC(R)                  * 00460000
*   AND PREVENT OTHERS:                                               * 00470000
*     RDEF VTAMWALL OURNETID.XTSO.*.* UACC(N)                         * 00480000
*                                                                     * 00490000
*                                                                     * 00500000
* VTAM:                                                               * 00510000
*                                                                     * 00520000
*   VERSION 4.3.0 REQUIRED FOR VTAM EXIT SERVICES                     * 00530000
*                                                                     * 00540000
*                                                                     * 00550000
* RACF:                                                               * 00560000
*                                                                     * 00570000
*   VERSION 2.1.0 REQUIRED FOR RACLIST GLOBAL=YES                     * 00580000
*                                                                     * 00590000
*   IF PRIMNET.PRIMLU.SECNET.SECLU IS REJECTED A SECOND CHECK ON      * 00600000
*     PRIMNET.PRIMLU.SECNET.SECLU.INITNET.INITLU IS WHICH MAY         * 00610000
*     OVERRIDE THE FIRST CHECK IF THE 2ND PROFILE IS DEFINED          * 00620000
*                                                                     * 00630000
*   SETR GENERIC(VTAMWALL) GENCMD(VTAMWALL) RACLIST(VTAMWALL)         * 00640000
*                                                                     * 00650000
*   NOTE:                                                             * 00660000
*     ALWAYS CODE AT LEAST 2 NON-WILDCARDS IN THE PROFILES AS RACF    * 00670000
*     DOES NOT HANDLE MODE THAN 5 GENERIC QUALIFIERS CORRECTLY        * 00680000
*                                                                     * 00690000
*     THE COMMAND                                                     * 00700000
*       MODIFY NET,EXIT,ID=ISTEXCAA,OPTION=REPL                       * 00710000
*     WILL REINITIALIZE THE EXIT AND PICKUP ANY CHANGES IN THE        * 00720000
*     RACFCLASS (SUCH AS ACTIVATION OF THE F1REWALL CLASS)            * 00730000
*                                                                     * 00740000
*                                                                     * 00750000
*   RACF ROUTER TABLE (ICHRFR01):                                     * 00760000
*                                                                     * 00770000
*     ICHRFRTB CLASS=F1REWALL,ACTION=RACF                             * 00780000
*                                                                     * 00790000
*                                                                     * 00800000
*   RACF CLASS DESCRIPTOR TABLE:                                      * 00810000
*                                                                     * 00820000
*     ICHERCDE CLASS=F1REWALL,              CLASS NAME                * 00830000
*           FIRST=ANY,                      FIRST CHAR                * 00840000
*           OTHER=ANY,                      OTHER CHARS               * 00850000
*           MAXLNTH=54,                     MAXIMUM LENGTH            * 00860000
*           ID=255,                         ID NUMBER                 * 00870000
*           POSIT=255,                      POSIT VALUE               * 00880000
*           GENLIST=ALLOWED,                ALLOW GENLIST             * 00890000
*           RACLIST=ALLOWED,                CLASS MAY BE RACLISTED    * 00900000
*           RACLREQ=YES                     MUST ISSUE RACLIST        * 00910000
*                                                                     * 00920000
*                                                                     * 00930000
* ATTRIBUTES:                                                         * 00940000
*   AMODE(31),RMODE(ANY),REFR                                         * 00950000
*                                                                     * 00960000
*                                                                     * 00970000
* HISTORY:                                                            * 00980000
*                                                                     * 00990000
*   DATE       BY              COMMENTS                               * 01000000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 01010000
*                                                                     * 01020000
*********************************************************************** 01030000
JJ$EXCAA RSECT ,                                                        01040000
JJ$EXCAA AMODE 31                                                       01050000
JJ$EXCAA RMODE ANY                                                      01060000
         SAVE  (14,12),,JJ$EXCAA-J.JAEGER-&SYSDATE.-&SYSTIME.           01070000
         LR    R12,R15                 SET BASE REGISTER                01080000
         USING JJ$EXCAA,R12                                             01090000
*                                                                       01100000
         L     R11,4(,R1)              ADDRESS OF FUNCTION CODE         01110000
*                                                                       01120000
         LM    R3,R5,=A(EXCAAFT,L'EXCAAFT,EXCAAFE)                      01130000
EXCAALP  DS    0H                                                       01140000
         CLC   0(1,R3),0(R11)          FIND EXIT ROUTINE IN TABLE       01150000
         BE    EXCAART                                                  01160000
         BXLE  R3,R4,EXCAALP           LOOP THROUGH TABLE               01170000
*                                                                       01180000
         RETURN (14,12),RC=0           RETURN TO CALLER IF NO EXIT      01190000
*                                                                       01200000
EXCAART  DS    0H                                                       01210000
         L     R15,4(,R3)              ADDRESS OF EXIT ROUTINE          01220000
         L     R14,12(,R13)            RELOAD ALL                       01230000
         LM    R0,R12,20(R13)            REGISTERS                      01240000
         BR    R15                     BRANCH TO EXIT ROUTINE           01250000
*                                                                       01260000
         DROP  R12                                                      01270000
*                                                                       01280000
EXCAAFT  DS    0D                                                       01290000
         DC    AL1(X'00'),AL3(0),V(JJ$EXC00)                            01300000
         DC    AL1(X'01'),AL3(0),V(JJ$EXC01)                            01310000
         DC    AL1(X'09'),AL3(0),V(JJ$EXC09)                            01320000
         DC    AL1(X'0A'),AL3(0),V(JJ$EXC0A)                            01330000
         DC    AL1(X'FE'),AL3(0),V(JJ$EXCFE)                            01340000
EXCAAFE  DC    AL1(X'FF'),AL3(0),V(JJ$EXCFF)                            01350000
*                                                                       01360000
         LTORG ,                                                        01370000
*                                                                       01380000
         YREGS ,                                                        01390000
*                                                                       01400000
         END   ,                                                        01410000
./ ADD NAME=JJ$EXCCM    01 00 98033 98033 144100 0017 0017 0000 IBMUSER
 TITLE 'ISTEXCCM - COMMOM DATA AREA'                                    00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* FUNCTION:                                                           * 00040000
*                                                                     * 00050000
*   PROVIDE COMMON DATA AREAS FOR SESSION AUTHORIZATION EXIT          * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* HISTORY:                                                            * 00090000
*                                                                     * 00100000
*   DATE       BY              COMMENTS                               * 00110000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 00120000
*                                                                     * 00130000
*********************************************************************** 00140000
         JJ$EXCDS RSECT=YES                                             00150000
*                                                                       00160000
         END   ,                                                        00170000
./ ADD NAME=JJ$EXCDS    01 00 98033 98033 135745 0101 0101 0000 IBMUSER
.********************************************************************** 00010000
.*                                                                    * 00020000
.* FUNCTION:                                                          * 00030000
.*                                                                    * 00040000
.*   GENERATE COMMON DATA AREAS FOR SESSION AUTHORIZATION MODULES     * 00050000
.*                                                                    * 00060000
.*                                                                    * 00070000
.* CONSTANTS:                                                         * 00080000
.*                                                                    * 00090000
.*   RACF RESOURCE CLASS DEFINED AT LABEL RACCLASS                    * 00100000
.*                                                                    * 00110000
.*                                                                    * 00120000
.* ATTRIBUTES:                                                        * 00130000
.*   AMODE(31),RMODE(ANY),REFR                                        * 00140000
.*                                                                    * 00150000
.*                                                                    * 00160000
.* HISTORY:                                                           * 00170000
.*                                                                    * 00180000
.*   DATE       BY              COMMENTS                              * 00190000
.*   02/02/98   JAN JAEGER      INITIAL VERSION                       * 00200000
.*                                                                    * 00210000
.********************************************************************** 00220000
         MACRO ,                                                        00230000
         JJ$EXCDS &RSECT=NO                                             00240000
         AIF   ('&RSECT.' NE 'NO').RSECT                                00250000
JJ$EXCDS DSECT ,                                                        00260000
         EXTRN JJ$EXCCM                                                 00270000
         AGO   .DSECT                                                   00280000
.RSECT   ANOP  ,                                                        00290000
JJ$EXCCM RSECT ,                                                        00300000
JJ$EXCCM AMODE 31                                                       00310000
JJ$EXCCM RMODE ANY                                                      00320000
.DSECT   ANOP  ,                                                        00330000
*                                                                       00340000
RACCLASS DC    CL8'F1REWALL'           RESOURCE CLASS                   00350000
*                                                                       00360000
MFLRSTAT RACROUTE REQUEST=STAT,                                        X00370000
               RELEASE=2.1,                                            X00380000
               CLASS=RACCLASS,                                         X00390000
               MF=L                                                     00400000
LENRSTAT EQU   *-MFLRSTAT                                               00410000
*                                                                       00420000
MFLRVRFY RACROUTE REQUEST=VERIFY,                                      X00430000
               ACEE=,                                                  X00440000
               ENVIR=,                                                 X00450000
               LOC=ANY,                                                X00460000
               RELEASE=2.1,                                            X00470000
               SYSTEM=YES,                                             X00480000
               MF=L                                                     00490000
LENRVRFY EQU   *-MFLRVRFY                                               00500000
*                                                                       00510000
MFLRLIST RACROUTE REQUEST=LIST,                                        X00520000
               CLASS=RACCLASS,                                         X00530000
               ENVIR=,                                                 X00540000
               GLOBAL=YES,                                             X00550000
               RELEASE=2.1,                                            X00560000
               MF=L                                                     00570000
LENRLIST EQU   *-MFLRLIST                                               00580000
*                                                                       00590000
MFLFAUTH RACROUTE REQUEST=FASTAUTH,                                    X00600000
               RELEASE=2.1,                                            X00610000
               CLASS=RACCLASS,                                         X00620000
               ENTITY=,                                                X00630000
               ATTR=READ,                                              X00640000
               ACEE=,                                                  X00650000
               MF=L                                                     00660000
LENFAUTH EQU   *-MFLFAUTH                                               00670000
*                                                                       00680000
         LTORG ,                                                        00690000
*                                                                       00700000
USERAREA DSECT ,                                                        00710000
ANONACEE DS    1F                      ANONYMOUS ACEE (USERID='*')      00720000
USERLEN  EQU   *-USERAREA                                               00730000
*                                                                       00740000
WORKAREA DSECT ,                                                        00750000
SAVEAREA DS    18F                                                      00760000
WORKARAC DS    0D                                                       00770000
RACSAVE  DS    18F                     SAVEAREA FOR EXCRR               00780000
PROFILEP DS    0D                      EXIT SERVICES PARAMETER          00790000
PROFRSVD DS    H                                                        00800000
PROFILEL DS    H                       MESSAGE LENGTH                   00810000
PROFILEA DS    A                                                        00820000
PROFMSG  DS    C'JJ$EXCXX REJECTING '                                   00830000
PROFMSGR EQU   PROFMSG+9,9,C'C'                                         00840000
PROFMSGI EQU   PROFMSG+6,2,C'C'                                         00850000
*        DC    C'         ALLOWING '                                    00860000
PROFILE  DS    CL54                    RACF PROFILE TO BE CHECKED       00870000
         DS    0F                                                       00880000
RACRSTAT DS    XL(LENRSTAT)                                             00890000
         DS    0F                                                       00900000
RACRVRFY DS    XL(LENRVRFY)                                             00910000
         DS    0F                                                       00920000
RACRLIST DS    XL(LENRLIST)                                             00930000
         DS    0F                                                       00940000
RACFAUTH DS    XL(LENFAUTH)                                             00950000
SAFWK    DS    128F                    SAF WORK AREA                    00960000
SAFFWK   DS    16F                     FASTAUTH WORKAREA                00970000
WORKLEN  EQU   *-WORKAREA                                               00980000
*                                                                       00990000
         MEXIT ,                                                        01000000
         MEND  ,                                                        01010000
./ ADD NAME=JJ$EXCFE    01 00 98033 98033 144110 0148 0148 0000 IBMUSER
 TITLE 'JJ$EXCFE - BEGIN FUNCTION X''FE'''                              00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* FUNCTION:                                                           * 00040000
*                                                                     * 00050000
*   INITIALIZE SESSION AUTHORIZATION EXIT                             * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* LOGIC:                                                              * 00090000
*                                                                     * 00100000
*   CHECK IF F1REWALL CLASS IS ACTIVE                                 * 00110000
*   IF NOT ISSUE MESSAGE AND EXIT                                     * 00120000
*                                                                     * 00130000
*   OBTAIN STORAGE FOR USER DATA AREA                                 * 00140000
*   INITIALIZE ANONYMOUS ACEE (USERID='*')                            * 00150000
*   RACLIST F1REWALL CLASS                                            * 00160000
*                                                                     * 00170000
*                                                                     * 00180000
* REGISTER USAGE:                                                     * 00190000
*                                                                     * 00200000
*   R1    ENTRY PARAMETER                                             * 00210000
*   R13   SAVEAREA POINTER                                            * 00220000
*   R14   RETURN ADDRESS                                              * 00230000
*   R15   ENTRY POINT ADDRESS / RETURN CODE                           * 00240000
*                                                                     * 00250000
*   R6    COMMON DATA AREA                                            * 00260000
*   R11   SAVED ENTRY PARAMETER                                       * 00270000
*   R13   SAVEAREA/WORKAREA POINTER                                   * 00280000
*                                                                     * 00290000
* ATTRIBUTES:                                                         * 00300000
*   AMODE(31),RMODE(ANY),REFR                                         * 00310000
*                                                                     * 00320000
*                                                                     * 00330000
* HISTORY:                                                            * 00340000
*                                                                     * 00350000
*   DATE       BY              COMMENTS                               * 00360000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 00370000
*                                                                     * 00380000
*********************************************************************** 00390000
JJ$EXCFE RSECT ,                                                        00400000
JJ$EXCFE AMODE 31                                                       00410000
JJ$EXCFE RMODE ANY                                                      00420000
         SAVE  (14,12),,JJ$EXCFE-J.JAEGER-&SYSDATE.-&SYSTIME.           00430000
         LR    R12,R15                 SET BASE REGISTER                00440000
         USING JJ$EXCFE,R12                                             00450000
*                                                                       00460000
         LR    R11,R1                  SAVE ENTRY PARAMETER             00470000
*                                                                       00480000
         STORAGE OBTAIN,                                               X00490000
               LENGTH=WORKLEN                                           00500000
         ST    R13,4(,R1)              CHAIN SAVEAREAS                  00510000
         ST    R1,8(,R13)                                               00520000
         LR    R13,R1                                                   00530000
         USING WORKAREA,R13                                             00540000
*                                                                       00550000
         L     R6,=A(JJ$EXCCM)         MAKE COMMON SECTION ADDRESSABLE  00560000
         USING JJ$EXCDS,R6                                              00570000
*                                                                       00580000
         STORAGE OBTAIN,               OBTAIN USER DATA AREA           X00590000
               LENGTH=USERLEN                                           00600000
         L     R15,8(,R11)             ADDRESS OF USER DATA FIELD       00610000
         LR    R10,R1                                                   00620000
         USING USERAREA,R10            USER DATA AREA                   00630000
         XC    USERAREA(USERLEN),USERAREA                               00640000
         ST    R10,0(,R15)             STORE ADDRESS                    00650000
*                                                                       00660000
         L     R9,12(,R11)             ADDRESS OF EXIT OPTIONS          00670000
         OC    0(2,R9),=BL2'1100100000000010' PRIM/SEC/END/MODIFY       00680000
*                                                                       00690000
         LA    R8,EXCFEM2G             NOT ACTIVE MESSAGE               00700000
*                                                                       00710000
         MVC   RACRSTAT,MFLRSTAT                                        00720000
         RACROUTE REQUEST=STAT,        CHECK IF RACF CLASS IS ACTIVE   X00730000
               RELEASE=2.1,                                            X00740000
               WORKA=SAFWK,                                            X00750000
               MF=(E,RACRSTAT)                                          00760000
         LTR   R15,R15                                                  00770000
         BNZ   EXCFENA                                                  00780000
*                                                                       00790000
         MVC   RACRLIST,MFLRLIST       RACLIST THE FIREWALL CLASS       00800000
         RACROUTE REQUEST=LIST,          TO ALLOW FOR FASTAUTH         X00810000
               ENVIR=CREATE,                                           X00820000
               GLOBAL=YES,                                             X00830000
               RELEASE=2.1,                                            X00840000
               WORKA=SAFWK,                                            X00850000
               MF=(E,RACRLIST)                                          00860000
         LTR   R15,R15                                                  00870000
         BNZ   EXCFENA                                                  00880000
*                                                                       00890000
         MVC   RACRVRFY,MFLRVRFY       CREATE ANONYMOUS ACEE FOR        00900000
         RACROUTE REQUEST=VERIFY,        FOR WHICH ACCESS CHECKING     X00910000
               ACEE=ANONACEE,            WILL BE DONE                  X00920000
               ENVIR=CREATE,                                           X00930000
               LOC=ANY,                                                X00940000
               RELEASE=2.1,                                            X00950000
               SYSTEM=YES,                                             X00960000
               WORKA=SAFWK,                                            X00970000
               MF=(E,RACRVRFY)                                          00980000
         LTR   R15,R15                                                  00990000
         BNZ   EXCFENA                                                  01000000
*                                                                       01010000
         LA    R8,EXCFEM1G             ACTIVE MESSAGE                   01020000
EXCFENA  DS    0H                                                       01030000
         LTR   R15,R15                 WAS ALL OK                       01040000
         BZ    EXCFEAOK                                                 01050000
         L     R2,8(,R11)              POINTER TO USER DATA AREA        01060000
         XC    0(4,R2),0(R2)           CLEAR POINTER                    01070000
         LR    R1,R10                                                   01080000
         DROP  R10                                                      01090000
         STORAGE RELEASE,              RELEASE USER DATA AREA STORAGE  X01100000
               LENGTH=USERLEN,                                         X01110000
               ADDR=(1)                                                 01120000
*                                                                       01130000
EXCFEAOK DS    0H                                                       01140000
         L     R1,72(,R11)             EXIT SERVICES PARAMETER LIST     01150000
         L     R3,0(,R1)               EXIT SERVICES SUPPORTED FUNCTIONX01160000
                                       S BITMAP                         01170000
         TM    0(R3),B'01000000'       MESSAGE FUNCTION AVAILABLE       01180000
         BZ    EXCFENOM                                                 01190000
         ST    R8,12(,R1)              MESSAGE PARAMETER LIST           01200000
         MVI   4(R1),X'01'                                              01210000
         L     R15,8(,R1)              ADDRESS OF ISTIECXS              01220000
         BASR  R14,R15                 CALL ISTIECXS                    01230000
EXCFENOM DS    0H                                                       01240000
*                                                                       01250000
         DROP  R13                                                      01260000
         LR    R1,R13                                                   01270000
         L     R13,4(,R13)             RELOAD PREVIOUS SAVEAREA ADDR    01280000
         STORAGE RELEASE,                                              X01290000
               LENGTH=WORKLEN,                                         X01300000
               ADDR=(1)                                                 01310000
         RETURN (14,12),RC=0                                            01320000
*                                                                       01330000
EXCFEM1G DC    AL2(0,L'EXCFEM1T),AL4(EXCFEM1T)   MSG PARM LIST          01340000
EXCFEM1T DC    C'JJ$EXCFE SESSION SETUP AUTHORIZATION VERIFICATION ACTIX01350000
               VE'                                                      01360000
*                                                                       01370000
EXCFEM2G DC    AL2(0,L'EXCFEM2T),AL4(EXCFEM2T)   MSG PARM LIST          01380000
EXCFEM2T DC    C'JJ$EXCFE SESSION SETUP AUTHORIZATION VERIFICATION INACX01390000
               TIVE'                                                    01400000
*                                                                       01410000
         LTORG ,                                                        01420000
*                                                                       01430000
         YREGS ,                                                        01440000
*                                                                       01450000
         JJ$EXCDS ,                                                     01460000
*                                                                       01470000
         END   ,                                                        01480000
./ ADD NAME=JJ$EXCFF    01 00 98033 98033 144123 0116 0116 0000 IBMUSER
 TITLE 'JJ$EXCFF - END FUNCTION X''FF'''                                00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* FUNCTION:                                                           * 00040000
*                                                                     * 00050000
*   CLEANUP RESOURCES USED BY SESSION AUTHORIZATION EXIT              * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* LOGIC:                                                              * 00090000
*                                                                     * 00100000
*   DELETE ACEE                                                       * 00110000
*   DELETE RACLISTED PROFILES                                         * 00120000
*   RELEASE STORAGE                                                   * 00130000
*                                                                     * 00140000
*                                                                     * 00150000
* REGISTER USAGE:                                                     * 00160000
*                                                                     * 00170000
*   R1    ENTRY PARAMETER                                             * 00180000
*   R13   SAVEAREA POINTER                                            * 00190000
*   R14   RETURN ADDRESS                                              * 00200000
*   R15   ENTRY POINT ADDRESS / RETURN CODE                           * 00210000
*                                                                     * 00220000
*   R6    COMMON DATA AREA                                            * 00230000
*   R11   SAVED ENTRY PARAMETER                                       * 00240000
*   R13   SAVEAREA/WORKAREA POINTER                                   * 00250000
*                                                                     * 00260000
* ATTRIBUTES:                                                         * 00270000
*   AMODE(31),RMODE(ANY),REFR                                         * 00280000
*                                                                     * 00290000
*                                                                     * 00300000
* HISTORY:                                                            * 00310000
*                                                                     * 00320000
*   DATE       BY              COMMENTS                               * 00330000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 00340000
*                                                                     * 00350000
*********************************************************************** 00360000
JJ$EXCFF RSECT ,                                                        00370000
JJ$EXCFF AMODE 31                                                       00380000
JJ$EXCFF RMODE ANY                                                      00390000
         SAVE  (14,12),,JJ$EXCFF-J.JAEGER-&SYSDATE.-&SYSTIME.           00400000
         LR    R12,R15                 SET BASE REGISTER                00410000
         USING JJ$EXCFF,R12                                             00420000
*                                                                       00430000
         LR    R11,R1                  SAVE ENTRY PARAMETER             00440000
*                                                                       00450000
         L     R6,=A(JJ$EXCCM)                                          00460000
         USING JJ$EXCDS,R6                                              00470000
*                                                                       00480000
         L     R10,8(,R11)             ADDRESS USER DATA WORD           00490000
         L     R10,0(,R10)             USER DATA WORD                   00500000
         LTR   R10,R10                                                  00510000
         BZ    EXCFFINA                                                 00520000
         USING USERAREA,R10            USER DATA AREA                   00530000
*                                                                       00540000
         STORAGE OBTAIN,                                               X00550000
               LENGTH=WORKLEN                                           00560000
         ST    R13,4(,R1)              CHAIN SAVEAREAS                  00570000
         ST    R1,8(,R13)                                               00580000
         LR    R13,R1                                                   00590000
         USING WORKAREA,R13                                             00600000
*                                                                       00610000
         MVC   RACRVRFY,MFLRVRFY       DELETE ACEE                      00620000
         RACROUTE REQUEST=VERIFY,                                      X00630000
               ACEE=ANONACEE,                                          X00640000
               ENVIR=DELETE,                                           X00650000
               RELEASE=2.1,                                            X00660000
               SYSTEM=YES,                                             X00670000
               WORKA=SAFWK,                                            X00680000
               MF=(E,RACRVRFY)                                          00690000
*                                                                       00700000
         MVC   RACRLIST,MFLRLIST       DELETE RACLISTED PROFILES        00710000
         RACROUTE REQUEST=LIST,                                        X00720000
               ENVIR=DELETE,                                           X00730000
               RELEASE=2.1,                                            X00740000
               WORKA=SAFWK,                                            X00750000
               MF=(E,RACRLIST)                                          00760000
*                                                                       00770000
         L     R1,72(,R11)             EXIT SERVICES PARAMETER LIST     00780000
         L     R3,0(,R1)               EXIT SERVICES SUPPORTED FUNCTIONX00790000
                                       S BITMAP                         00800000
         TM    0(R3),B'01000000'       MESSAGE FUNCTION AVAILABLE       00810000
         BZ    EXCFFNOM                                                 00820000
         MVC   12(4,R1),=A(EXCFFMSG)   MESSAGE PARAMETER LIST           00830000
         MVI   4(R1),X'01'                                              00840000
         L     R15,8(,R1)              ADDRESS OF ISTIECXS              00850000
         BASR  R14,R15                 CALL ISTIECXS                    00860000
EXCFFNOM DS    0H                                                       00870000
*                                                                       00880000
         L     R15,8(,R11)             POINTER TO USER DATA AREA        00890000
         XC    0(4,R15),0(R15)         CLEAR POINTER                    00900000
         LR    R1,R10                                                   00910000
         DROP  R10                                                      00920000
         STORAGE RELEASE,              RELEASE USER DATA AREA STORAGE  X00930000
               LENGTH=USERLEN,                                         X00940000
               ADDR=(1)                                                 00950000
*                                                                       00960000
         DROP  R13                                                      00970000
         LR    R1,R13                                                   00980000
         L     R13,4(,R13)             RELOAD PREVIOUS SAVEAREA ADDR    00990000
         STORAGE RELEASE,                                              X01000000
               LENGTH=WORKLEN,                                         X01010000
               ADDR=(1)                                                 01020000
EXCFFINA DS    0H                                                       01030000
         RETURN (14,12),RC=0                                            01040000
*                                                                       01050000
EXCFFMSG DC    AL2(0,L'EXCFFMST),AL4(EXCFFMST)   MSG PARM LIST          01060000
EXCFFMST DC    C'JJ$EXCFF SESSION SETUP AUTHORIZATION VERIFICATION DEACX01070000
               TIVATED'                                                 01080000
*                                                                       01090000
         LTORG ,                                                        01100000
*                                                                       01110000
         JJ$EXCDS ,                                                     01120000
*                                                                       01130000
         YREGS ,                                                        01140000
*                                                                       01150000
         END   ,                                                        01160000
./ ADD NAME=JJ$EXCRR    01 00 98033 98033 141213 0219 0219 0000 IBMUSER
 TITLE 'JJ$EXCRR - BUILD PROFILE AND ISSUE FASTAUTH'                    00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* FUNCTION:                                                           * 00040000
*                                                                     * 00050000
*   BUILD PROFILE AND ISSUE FASTAUTH TO VERIFY AUTHORIZATION          * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* LOGIC:                                                              * 00090000
*                                                                     * 00100000
*   BUILD PROFILE PRIMNET.PLU.SECNET.SLU                              * 00110000
*   CALL FASTAUTH FOR AUTHORIZATION CHECKING                          * 00120000
*   IF ACCESS REFUSED AND THIS IS A CLSDST PASS THEN                  * 00130000
*     BUILD PROFILE PRIMNET.PLU.SECNET.SLU.ORIGNET.OLU                * 00140000
*     IF ACCESS GRANTED THEN OVERRIDE RETURNCODE TO 0                 * 00150000
*                                                                     * 00160000
*   IF A NAME CANNOT BE RESOLVED THEN A C'?' IS USED                  * 00170000
*                                                                     * 00180000
*                                                                     * 00190000
* REGISTER USAGE:                                                     * 00200000
*                                                                     * 00210000
*   R1    ENTRY PARAMETER                                             * 00220000
*   R13   SAVEAREA POINTER                                            * 00230000
*   R14   RETURN ADDRESS                                              * 00240000
*   R15   ENTRY POINT ADDRESS / RETURN CODE                           * 00250000
*                                                                     * 00260000
*   R6    COMMON DATA AREA                                            * 00270000
*   R11   SAVED ENTRY PARAMETER                                       * 00280000
*   R13   SAVEAREA/WORKAREA POINTER                                   * 00290000
*                                                                     * 00300000
*                                                                     * 00310000
* RETURNCODES:                                                        * 00320000
*   R15   0  ACCESS GRANTED                                           * 00330000
*         4  UNDETERMINED                                             * 00340000
*         8  ACCESS REFUSED                                           * 00350000
*                                                                     * 00360000
*   R0    NUMBER OF QUALIFIERS THAT COULD NOT BE RESOLVED             * 00370000
*         (IE UNKNOWN NETID)                                          * 00380000
*                                                                     * 00390000
*                                                                     * 00400000
* ATTRIBUTES:                                                         * 00410000
*   AMODE(31),RMODE(ANY),REFR                                         * 00420000
*                                                                     * 00430000
*                                                                     * 00440000
* HISTORY:                                                            * 00450000
*                                                                     * 00460000
*   DATE       BY              COMMENTS                               * 00470000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 00480000
*                                                                     * 00490000
*********************************************************************** 00500000
JJ$EXCRR RSECT ,                                                        00510000
JJ$EXCRR AMODE 31                                                       00520000
JJ$EXCRR RMODE ANY                                                      00530000
         SAVE  (14,12),,JJ$EXCRR-J.JAEGER-&SYSDATE.-&SYSTIME.           00540000
         LR    R12,R15                 SET BASE REGISTER                00550000
         USING JJ$EXCRR,R12                                             00560000
*                                                                       00570000
         LR    R11,R1                  SAVE ENTRY PARAMETER             00580000
*                                                                       00590000
         USING WORKAREA,R13                                             00600000
*                                                                       00610000
         LA    R15,RACSAVE                                              00620000
         ST    R13,4(,R15)             CHAIN SAVEAREAS                  00630000
         ST    R15,8(,R13)                                              00640000
         LR    R13,R15                                                  00650000
         DROP  R13                                                      00660000
         USING WORKARAC,R13                                             00670000
*                                                                       00680000
         L     R6,=A(JJ$EXCCM)         COMMON SECTION                   00690000
         USING JJ$EXCDS,R6                                              00700000
*                                                                       00710000
         L     R10,8(,R11)             ADDRESS USER DATA WORD           00720000
         L     R10,0(,R10)             USER DATA WORD                   00730000
         USING USERAREA,R10            USER DATA AREA                   00740000
*                                                                       00750000
*                                                                       00760000
         XC    PROFRSVD,PROFRSVD                                        00770000
         MVI   PROFILE,C' '                                             00780000
         MVC   PROFILE+1(L'PROFILE-1),PROFILE                           00790000
         LA    R3,PROFILE                                               00800000
         SLR   R5,R5                   UNKNOWN RESOURCE COUNT           00810000
*                                                                       00820000
         L     R2,12(,R11)             ADDR OF PLU RIC                  00830000
         BAS   R14,BLDPROF                                              00840000
         MVI   0(R3),C'.'                                               00850000
         LA    R3,1(,R3)                                                00860000
         L     R2,16(,R11)             ADDR OF SLU RIC                  00870000
         BAS   R14,BLDPROF                                              00880000
*                                                                       00890000
         L     R2,ANONACEE                                              00900000
         MVC   RACFAUTH,MFLFAUTH                                        00910000
         RACROUTE REQUEST=FASTAUTH,    REQUEST ACCESS                  X00920000
               RELEASE=2.1,                                            X00930000
               ENTITY=PROFILE,         PROFILE NAME                    X00940000
               ATTR=READ,              ACCESS(READ)                    X00950000
               ACEE=(2),               ACEE                            X00960000
               WKAREA=SAFFWK,          FASTAUTH WORKAREA               X00970000
               WORKA=SAFWK,            SAF WORKAREA ADDRESS            X00980000
               MF=(E,RACFAUTH)                                          00990000
         LR    R8,R15                  SAVE RC FROM BASIC RACROUTE      01000000
*                                                                       01010000
         L     R2,56(,R11)             ADDRESS IF ILU RIC               01020000
         LTR   R2,R2                                                    01030000
         BZ    EXCRRNOI                                                 01040000
         MVI   0(R3),C'.'                                               01050000
         LA    R3,1(,R3)                                                01060000
         BAS   R14,BLDPROF                                              01070000
*                                                                       01080000
         LTR   R9,R15                  IF ACCESS OK                     01090000
         BZ    EXCRRMSG                  THEN EXIT                      01100000
*                                                                       01110000
         L     R2,ANONACEE                                              01120000
         MVC   RACFAUTH,MFLFAUTH                                        01130000
         RACROUTE REQUEST=FASTAUTH,    REQUEST ACCESS                  X01140000
               RELEASE=2.1,                                            X01150000
               ENTITY=PROFILE,         PROFILE NAME                    X01160000
               ATTR=READ,              ACCESS(READ)                    X01170000
               ACEE=(2),               ACEE                            X01180000
               WKAREA=SAFFWK,          FASTAUTH WORKAREA               X01190000
               WORKA=SAFWK,            SAF WORKAREA ADDRESS            X01200000
               MF=(E,RACFAUTH)                                          01210000
EXCRRNOI DS    0H                                                       01220000
         LTR   R9,R15                  SETUP AUTHORIZED                 01230000
         BZ    EXCRRMSG                EXIT NOMSG                       01240000
         MVC   PROFMSG,=CL19'JJ$EXCRR ALLOWING'                         01250000
         CH    R9,=H'4'                                                 01260000
         BNE   EXCRRREJ                                                 01270000
         CH    R8,=H'8'                WAS BASIC RACROUTE REJECTED?     01280000
         BNE   EXCRRMSG                YES: THEN REJECT                 01290000
EXCRRREJ DS    0H                                                       01300000
         LA    R9,8                    FAIL SETUP                       01310000
         MVC   PROFMSGR,=CL9'REJECTING'                                 01320000
*                                                                       01330000
EXCRRMSG DS    0H                                                       01340000
         LA    R4,PROFILE              UPDATE MESSAGE LENGTH            01350000
         SLR   R3,R4                                                    01360000
         AL    R3,=A(L'PROFMSG)                                         01370000
         STH   R3,PROFILEL                                              01380000
         LA    R4,PROFMSG                                               01390000
         ST    R4,PROFILEA                                              01400000
*                                                                       01410000
         DROP  R13                                                      01420000
         LR    R15,R9                  RETURN CODE                      01430000
         LR    R0,R5                   UNKNOWN RESOURCE COUNT           01440000
         L     R13,4(,R13)             RELOAD PREVIOUS SAVEAREA ADDR    01450000
         L     R14,12(,R13)                                             01460000
         LM    R1,R12,24(R13)                                           01470000
         BR    R14                                                      01480000
*                                                                       01490000
* R2 POINTER TO RIC                                                     01500000
* R3 POINTER TO PROFILE                                                 01510000
* R4 WORK                                                               01520000
* R5 UNKOWN RESOURCE COUNTER                                            01530000
* R14 RETURN ADDRESS                                                    01540000
*                                                                       01550000
BLDPROF  DS    0H                                                       01560000
         CLI   0(R2),X'19'             VECTOR KEY                       01570000
         BE    BLDPROFG                                                 01580000
         MVC   0(3,R3),=C'?.?'         UNKNOWN PROFILE                  01590000
         LA    R5,2(,R5)                                                01600000
         LA    R3,3(,R3)                                                01610000
         BR    R14                                                      01620000
BLDPROFG DS    0H                                                       01630000
         SLR   R4,R4                   WORK REG, CLEAR FOR IC           01640000
         IC    R4,4(,R2)               LENGTH OF SSCPNAME               01650000
         LA    R2,5(R4,R2)             POINT TO NETWORK ID              01660000
*                                                                       01670000
         ICM   R4,B'0001',0(R2)        LENGTH OF NETWORK ID             01680000
         BNZ   BLDPNID                 NETWORK ID UNKNOWN               01690000
BLDPNIG  DS    0H                                                       01700000
         MVI   0(R3),C'?'              INSERT UNKNOWN NAME              01710000
         LA    R5,1(,R5)                                                01720000
         B     BLDPUNID                                                 01730000
BLDPNID  DS    0H                                                       01740000
         CLI   1(R2),C' '              FIRST BYTE BLANK                 01750000
         BE    BLDPNIG                 NO VALID NAME                    01760000
         BCTR  R4,0                    SET MACHINE LENGTH               01770000
         EX    R4,BLDPROFC             COPY NETWORK ID                  01780000
         LA    R3,0(R4,R3)             LAST BYTE OF NETWORK ID          01790000
BLDPNIDT DS    0H                                                       01800000
         CLI   0(R3),C' '              LAST BYTE BLANK                  01810000
         BNZ   BLDPUNID                NO THEN CONTINUE                 01820000
         BCT   R3,BLDPNIDT             STRIP ONE BYTE                   01830000
BLDPUNID DS    0H                                                       01840000
         LA    R3,1(,R3)                                                01850000
         MVI   0(R3),C'.'              INSERT PERIOD                    01860000
         LA    R3,1(,R3)               POINT PAST PERIOD                01870000
*                                                                       01880000
         LA    R2,2(R4,R2)             POINT TO LUNAME                  01890000
*                                                                       01900000
         ICM   R4,B'0001',0(R2)        LENGTH OF LUNAME                 01910000
         BNZ   BLDPLUN                 LUNAME UNKNOWN                   01920000
BLDPLUG  DS    H                                                        01930000
         MVI   0(R3),C'?'              INSERT UNKNOWN NAME              01940000
         LA    R5,1(,R5)                                                01950000
         B     BLDPULUN                                                 01960000
BLDPLUN  DS    0H                                                       01970000
         CLI   1(R2),C' '              FIRST BYTE BLANK                 01980000
         BE    BLDPLUG                 NO VALID NAME                    01990000
         BCTR  R4,0                    SET MACHINE LENGTH               02000000
         EX    R4,BLDPROFC             COPY LUNAME                      02010000
         LA    R3,0(R4,R3)             LAST BYTE OF LUNAME              02020000
BLDPLUNT DS    0H                                                       02030000
         CLI   0(R3),C' '              LAST BYTE BLANK                  02040000
         BNZ   BLDPULUN                NO THEN CONTINUE                 02050000
         BCT   R3,BLDPLUNT             STRIP ONE BYTE                   02060000
BLDPULUN DS    0H                                                       02070000
         LA    R3,1(,R3)                                                02080000
         BR    R14                                                      02090000
*                                                                       02100000
BLDPROFC MVC   0(0,R3),1(R2)                                            02110000
*                                                                       02120000
         LTORG ,                                                        02130000
*                                                                       02140000
         JJ$EXCDS ,                                                     02150000
*                                                                       02160000
         YREGS ,                                                        02170000
*                                                                       02180000
         END   ,                                                        02190000
./ ADD NAME=JJ$EXC0A    01 00 98033 98033 144136 0137 0137 0000 IBMUSER
 TITLE 'JJ$EXC0A - EXIT REPLACED FUNCTION X''0A'''                      00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* FUNCTION:                                                           * 00040000
*                                                                     * 00050000
*   REINITIALIZE SESSION AUTHORIZATION EXIT                           * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* LOGIC:                                                              * 00090000
*                                                                     * 00100000
*   CHECK IF F1REWALL CLASS IS ACTIVE                                 * 00110000
*   IF NOT ISSUE MESSAGE AND EXIT                                     * 00120000
*                                                                     * 00130000
*   OBTAIN STORAGE FOR USER DATA AREA                                 * 00140000
*   INITIALIZE ANONYMOUS ACEE (USERID='*')                            * 00150000
*   RACLIST F1REWALL CLASS                                            * 00160000
*                                                                     * 00170000
*                                                                     * 00180000
* REGISTER USAGE:                                                     * 00190000
*                                                                     * 00200000
*   R1    ENTRY PARAMETER                                             * 00210000
*   R13   SAVEAREA POINTER                                            * 00220000
*   R14   RETURN ADDRESS                                              * 00230000
*   R15   ENTRY POINT ADDRESS / RETURN CODE                           * 00240000
*                                                                     * 00250000
*   R6    COMMON DATA AREA                                            * 00260000
*   R11   SAVED ENTRY PARAMETER                                       * 00270000
*   R13   SAVEAREA/WORKAREA POINTER                                   * 00280000
*                                                                     * 00290000
* ATTRIBUTES:                                                         * 00300000
*   AMODE(31),RMODE(ANY),REFR                                         * 00310000
*                                                                     * 00320000
*                                                                     * 00330000
* HISTORY:                                                            * 00340000
*                                                                     * 00350000
*   DATE       BY              COMMENTS                               * 00360000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 00370000
*                                                                     * 00380000
*********************************************************************** 00390000
JJ$EXC0A RSECT ,                                                        00400000
JJ$EXC0A AMODE 31                                                       00410000
JJ$EXC0A RMODE ANY                                                      00420000
         SAVE  (14,12),,JJ$EXC0A-J.JAEGER-&SYSDATE.-&SYSTIME.           00430000
         LR    R12,R15                 SET BASE REGISTER                00440000
         USING JJ$EXC0A,R12                                             00450000
*                                                                       00460000
         LR    R11,R1                  SAVE ENTRY PARAMETER             00470000
*                                                                       00480000
         STORAGE OBTAIN,                                               X00490000
               LENGTH=WORKLEN                                           00500000
         ST    R13,4(,R1)              CHAIN SAVEAREAS                  00510000
         ST    R1,8(,R13)                                               00520000
         LR    R13,R1                                                   00530000
         USING WORKAREA,R13                                             00540000
*                                                                       00550000
         L     R6,=A(JJ$EXCCM)         MAKE COMMON SECTION ADDESSABLE   00560000
         USING JJ$EXCDS,R6                                              00570000
*                                                                       00580000
         STORAGE OBTAIN,               OBTAIN USER DATA AREA           X00590000
               LENGTH=USERLEN                                           00600000
         L     R15,8(,R11)             ADDRESS OF USER DATA FIELD       00610000
         LR    R10,R1                                                   00620000
         USING USERAREA,R10            USER DATA AREA                   00630000
         XC    USERAREA(USERLEN),USERAREA                               00640000
         ST    R10,0(,R15)             STORE ADDRESS                    00650000
*                                                                       00660000
         MVC   RACRSTAT,MFLRSTAT       CHECK IF CLASS IF ACTIVE         00670000
         RACROUTE REQUEST=STAT,                                        X00680000
               RELEASE=2.1,                                            X00690000
               WORKA=SAFWK,                                            X00700000
               MF=(E,RACRSTAT)                                          00710000
         LTR   R9,R15                                                   00720000
         BNZ   EXC0ANA                                                  00730000
*                                                                       00740000
         MVC   RACRLIST,MFLRLIST       RACLIST PROFILES                 00750000
         RACROUTE REQUEST=LIST,                                        X00760000
               ENVIR=CREATE,                                           X00770000
               GLOBAL=YES,                                             X00780000
               RELEASE=2.1,                                            X00790000
               WORKA=SAFWK,                                            X00800000
               MF=(E,RACRLIST)                                          00810000
         LTR   R9,R15                                                   00820000
         BNZ   EXC0ANA                                                  00830000
*                                                                       00840000
         MVC   RACRVRFY,MFLRVRFY       BUILD ACEE FOR CHECKING          00850000
         RACROUTE REQUEST=VERIFY,                                      X00860000
               ACEE=ANONACEE,                                          X00870000
               ENVIR=CREATE,                                           X00880000
               LOC=ANY,                                                X00890000
               RELEASE=2.1,                                            X00900000
               SYSTEM=YES,                                             X00910000
               WORKA=SAFWK,                                            X00920000
               MF=(E,RACRVRFY)                                          00930000
         LTR   R9,R15                                                   00940000
         BNZ   EXC0ANA                                                  00950000
*                                                                       00960000
         L     R1,72(,R11)             EXIT SERVICES PARAMETER LIST     00970000
         L     R3,0(,R1)               EXIT SERVICES SUPPORTED FUNCTIONX00980000
                                       S BITMAP                         00990000
         TM    0(R3),B'01000000'       MESSAGE FUNCTION AVAILABLE       01000000
         BZ    EXC0ANA                                                  01010000
         ST    R8,12(,R1)              MESSAGE PARAMETER LIST           01020000
         MVC   12(4,R1),=A(EXC0AMSG)                                    01030000
         MVI   4(R1),X'01'                                              01040000
         L     R15,8(,R1)              ADDRESS OF ISTIECXS              01050000
         BASR  R14,R15                 CALL ISTIECXS                    01060000
EXC0ANA  DS    0H                                                       01070000
*                                                                       01080000
         LTR   R9,R9                   WAS ALL OK                       01090000
         BZ    EXC0AAOK                                                 01100000
         L     R2,8(,R11)              POINTER TO USER DATA AREA        01110000
         XC    0(4,R2),0(R2)           CLEAR POINTER                    01120000
         LR    R1,R10                                                   01130000
         DROP  R10                                                      01140000
         STORAGE RELEASE,              RELEASE USER DATA AREA STORAGE  X01150000
               LENGTH=USERLEN,                                         X01160000
               ADDR=(1)                                                 01170000
EXC0AAOK DS    0H                                                       01180000
         DROP  R13                                                      01190000
         LR    R1,R13                                                   01200000
         L     R13,4(,R13)             RELOAD PREVIOUS SAVEAREA ADDR    01210000
         STORAGE RELEASE,                                              X01220000
               LENGTH=WORKLEN,                                         X01230000
               ADDR=(1)                                                 01240000
         RETURN (14,12),RC=0                                            01250000
*                                                                       01260000
EXC0AMSG DC    AL2(0,L'EXC0AMST),AL4(EXC0AMST)   MSG PARM LIST          01270000
EXC0AMST DC    C'JJ$EXC0A SESSION SETUP AUTHORIZATION VERIFICATION NOW X01280000
               ACTIVE'                                                  01290000
*                                                                       01300000
         LTORG ,                                                        01310000
*                                                                       01320000
         YREGS ,                                                        01330000
*                                                                       01340000
         JJ$EXCDS ,                                                     01350000
*                                                                       01360000
         END   ,                                                        01370000
./ ADD NAME=JJ$EXC00    01 00 98033 98033 143451 0112 0112 0000 IBMUSER
 TITLE 'JJ$EXC00 - INITIAL AUTHORIZATION FUNCTION X''00'''              00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* FUNCTION:                                                           * 00040000
*                                                                     * 00050000
*   INITIAL AUTHORIZATION CHECKING                                    * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* LOGIC:                                                              * 00090000
*                                                                     * 00100000
*   OBTAIN WORKING STORAGE                                            * 00110000
*   CALL JJ$EXCRR TO VERIFY ACCESS                                    * 00120000
*   IF NOT ALL QUALIFIERS KNOWN THEN PASS TO SECONDARY AUTHORISATION  * 00130000
*   IF NO PROFILE THEN ISSUE WARNING MESSAGE                          * 00140000
*   IF ACCESS REFUSED ISSUE ERROR MESSAGE                             * 00150000
*                                                                     * 00160000
*                                                                     * 00170000
* REGISTER USAGE:                                                     * 00180000
*                                                                     * 00190000
*   R1    ENTRY PARAMETER                                             * 00200000
*   R13   SAVEAREA POINTER                                            * 00210000
*   R14   RETURN ADDRESS                                              * 00220000
*   R15   ENTRY POINT ADDRESS / RETURN CODE                           * 00230000
*                                                                     * 00240000
*   R6    COMMON DATA AREA                                            * 00250000
*   R9    RETURN CODE TO BE PASSED TO VTAM                            * 00260000
*   R10   USER DATA AREA                                              * 00270000
*   R11   SAVED ENTRY PARAMETER                                       * 00280000
*   R13   SAVEAREA/WORKAREA POINTER                                   * 00290000
*                                                                     * 00300000
* ATTRIBUTES:                                                         * 00310000
*   AMODE(31),RMODE(ANY),REFR                                         * 00320000
*                                                                     * 00330000
*                                                                     * 00340000
* HISTORY:                                                            * 00350000
*                                                                     * 00360000
*   DATE       BY              COMMENTS                               * 00370000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 00380000
*                                                                     * 00390000
*********************************************************************** 00400000
JJ$EXC00 RSECT ,                                                        00410000
JJ$EXC00 AMODE 31                                                       00420000
JJ$EXC00 RMODE ANY                                                      00430000
         SAVE  (14,12),,JJ$EXC00-J.JAEGER-&SYSDATE.-&SYSTIME.           00440000
         LR    R12,R15                 SET BASE REGISTER                00450000
         USING JJ$EXC00,R12                                             00460000
*                                                                       00470000
         LR    R11,R1                  SAVE ENTRY PARAMETER             00480000
*                                                                       00490000
         L     R6,=A(JJ$EXCCM)                                          00500000
         USING JJ$EXCDS,R6                                              00510000
*                                                                       00520000
         SLR   R9,R9                   INITIAL RETURN CODE              00530000
         L     R10,8(,R11)             ADDRESS USER DATA WORD           00540000
         L     R10,0(,R10)             USER DATA WORD                   00550000
         LTR   R10,R10                                                  00560000
         BZ    EXC00INA                EXIT INACTIVE                    00570000
         USING USERAREA,R10            USER DATA AREA                   00580000
*                                                                       00590000
         STORAGE OBTAIN,                                               X00600000
               LENGTH=WORKLEN                                           00610000
         ST    R13,4(,R1)              CHAIN SAVEAREAS                  00620000
         ST    R1,8(,R13)                                               00630000
         LR    R13,R1                                                   00640000
         USING WORKAREA,R13                                             00650000
*                                                                       00660000
         LR    R1,R11                                                   00670000
         CALL  JJ$EXCRR                CHECK AUTHORIZATION              00680000
         LR    R9,R15                  SAVE RC IN R9                    00690000
*                                                                       00700000
         LTR   R0,R0                   FULL PROFILE KNOWN               00710000
         BE    EXC00NSC                                                 00720000
         LA    R9,4                    IF NOT THEN PASS TO SECONDARY    00730000
         B     EXC00NOM                  AUTH AND DO NOT ISSUE MESSAGE  00740000
EXC00NSC DS    0H                                                       00750000
         LTR   R15,R15                 WAS ACCESS OK?                   00760000
         BZ    EXC00NOM                EXIT IF OK                       00770000
         CH    R15,=H'4'               IF RACROUTE RC>4 THEN FAIL SETUP 00780000
         BH    EXC00MSG                  ELSE ALLOW SETUP               00790000
         SLR   R9,R9                                                    00800000
*                                                                       00810000
EXC00MSG DS    0H                                                       00820000
         MVC   PROFMSGI,=C'00'         EXC00 ISSUED MESSAGE             00830000
         LA    R2,PROFILEP                                              00840000
         L     R1,72(,R11)             EXIT SERVICES PARAMETER LIST     00850000
         L     R3,0(,R1)               EXIT SERVICES SUPPORTED FUNCTIONX00860000
                                       S BITMAP                         00870000
         TM    0(R3),B'01000000'       MESSAGE FUNCTION AVAILABLE       00880000
         BZ    EXC00NOM                                                 00890000
         MVI   4(R1),X'01'                                              00900000
         ST    R2,12(,R1)              MESSAGE PARAMETER LIST           00910000
         L     R15,8(,R1)              ADDRESS OF ISTIECXS              00920000
         BASR  R14,R15                 CALL ISTIECXS                    00930000
EXC00NOM DS    0H                                                       00940000
*                                                                       00950000
         DROP  R13                                                      00960000
         LR    R1,R13                                                   00970000
         L     R13,4(,R13)             RELOAD PREVIOUS SAVEAREA ADDR    00980000
         STORAGE RELEASE,                                              X00990000
               LENGTH=WORKLEN,                                         X01000000
               ADDR=(1)                                                 01010000
EXC00INA DS    0H                                                       01020000
         LR    R15,R9                                                   01030000
         RETURN (14,12),RC=(15)                                         01040000
*                                                                       01050000
         LTORG ,                                                        01060000
*                                                                       01070000
         JJ$EXCDS ,                                                     01080000
*                                                                       01090000
         YREGS ,                                                        01100000
*                                                                       01110000
         END   ,                                                        01120000
./ ADD NAME=JJ$EXC01    01 00 98033 98033 143538 0105 0105 0000 IBMUSER
 TITLE 'SECONDARY AUTHORIZATION FUNCTION X''01'''                       00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* FUNCTION:                                                           * 00040000
*                                                                     * 00050000
*   SECONDARY AUTHORIZATION CHECKING                                  * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* LOGIC:                                                              * 00090000
*                                                                     * 00100000
*   OBTAIN WORKING STORAGE                                            * 00110000
*   CALL JJ$EXCRR TO VERIFY ACCESS                                    * 00120000
*   IF NO PROFILE THEN ISSUE WARNING MESSAGE                          * 00130000
*   IF ACCESS REFUSED ISSUE ERROR MESSAGE                             * 00140000
*                                                                     * 00150000
*                                                                     * 00160000
* REGISTER USAGE:                                                     * 00170000
*                                                                     * 00180000
*   R1    ENTRY PARAMETER                                             * 00190000
*   R13   SAVEAREA POINTER                                            * 00200000
*   R14   RETURN ADDRESS                                              * 00210000
*   R15   ENTRY POINT ADDRESS / RETURN CODE                           * 00220000
*                                                                     * 00230000
*   R6    COMMON DATA AREA                                            * 00240000
*   R9    RETURN CODE TO BE PASSED TO VTAM                            * 00250000
*   R10   USER DATA AREA                                              * 00260000
*   R11   SAVED ENTRY PARAMETER                                       * 00270000
*   R13   SAVEAREA/WORKAREA POINTER                                   * 00280000
*                                                                     * 00290000
* ATTRIBUTES:                                                         * 00300000
*   AMODE(31),RMODE(ANY),REFR                                         * 00310000
*                                                                     * 00320000
*                                                                     * 00330000
* HISTORY:                                                            * 00340000
*                                                                     * 00350000
*   DATE       BY              COMMENTS                               * 00360000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 00370000
*                                                                     * 00380000
*********************************************************************** 00390000
JJ$EXC01 RSECT ,                                                        00400000
JJ$EXC01 AMODE 31                                                       00410000
JJ$EXC01 RMODE ANY                                                      00420000
         SAVE  (14,12),,JJ$EXC01-J.JAEGER-&SYSDATE.-&SYSTIME.           00430000
         LR    R12,R15                 SET BASE REGISTER                00440000
         USING JJ$EXC01,R12                                             00450000
*                                                                       00460000
         LR    R11,R1                  SAVE ENTRY PARAMETER             00470000
*                                                                       00480000
         L     R6,=A(JJ$EXCCM)                                          00490000
         USING JJ$EXCDS,R6                                              00500000
*                                                                       00510000
         SLR   R9,R9                   INITIAL RETURN CODE              00520000
         L     R10,8(,R11)             ADDRESS USER DATA WORD           00530000
         L     R10,0(,R10)             USER DATA WORD                   00540000
         LTR   R10,R10                                                  00550000
         BZ    EXC01INA                EXIT INACTIVE                    00560000
         USING USERAREA,R10            USER DATA AREA                   00570000
*                                                                       00580000
         STORAGE OBTAIN,                                               X00590000
               LENGTH=WORKLEN                                           00600000
         ST    R13,4(,R1)              CHAIN SAVEAREAS                  00610000
         ST    R1,8(,R13)                                               00620000
         LR    R13,R1                                                   00630000
         USING WORKAREA,R13                                             00640000
*                                                                       00650000
         LR    R1,R11                                                   00660000
         CALL  JJ$EXCRR                AUTHORIZATION CHECK              00670000
         LTR   R9,R15                                                   00680000
         BZ    EXC01NOM                                                 00690000
*                                                                       00700000
         MVC   PROFMSGI,=C'01'         EXC01 ISSUED MESSAGE             00710000
         LA    R2,PROFILEP                                              00720000
         L     R1,72(,R11)             EXIT SERVICES PARAMETER LIST     00730000
         L     R3,0(,R1)               EXIT SERVICES SUPPORTED FUNCTIONX00740000
                                       S BITMAP                         00750000
         TM    0(R3),B'01000000'       MESSAGE FUNCTION AVAILABLE       00760000
         BZ    EXC01NOM                                                 00770000
         MVI   4(R1),X'01'                                              00780000
         ST    R2,12(,R1)              MESSAGE PARAMETER LIST           00790000
         L     R15,8(,R1)              ADDRESS OF ISTIECXS              00800000
         BASR  R14,R15                 CALL ISTIECXS                    00810000
EXC01NOM DS    0H                                                       00820000
*                                                                       00830000
         CH    R9,=H'4'                RC4 IS OK                        00840000
         BH    EXC01FAS                                                 00850000
         SLR   R9,R9                                                    00860000
EXC01FAS DS    0H                                                       00870000
*                                                                       00880000
         DROP  R13                                                      00890000
         LR    R1,R13                                                   00900000
         L     R13,4(,R13)             RELOAD PREVIOUS SAVEAREA ADDR    00910000
         STORAGE RELEASE,                                              X00920000
               LENGTH=WORKLEN,                                         X00930000
               ADDR=(1)                                                 00940000
EXC01INA DS    0H                                                       00950000
         LR    R15,R9                                                   00960000
         RETURN (14,12),RC=(15)                                         00970000
*                                                                       00980000
         LTORG ,                                                        00990000
*                                                                       01000000
         JJ$EXCDS ,                                                     01010000
*                                                                       01020000
         YREGS ,                                                        01030000
*                                                                       01040000
         END   ,                                                        01050000
./ ADD NAME=JJ$EXC09    01 00 98033 98033 143708 0116 0116 0000 IBMUSER
 TITLE 'JJ$EXC09 - EXIT REPLACEMENT FUNCTION X''09'''                   00010000
*********************************************************************** 00020000
*                                                                     * 00030000
* FUNCTION:                                                           * 00040000
*                                                                     * 00050000
*   CLEANUP RESOURES FOR EXIT REPLACEMENT                             * 00060000
*                                                                     * 00070000
*                                                                     * 00080000
* LOGIC:                                                              * 00090000
*                                                                     * 00100000
*   DELETE ACEE                                                       * 00110000
*   DELETE RACLISTED PROFILES                                         * 00120000
*   RELEASE STORAGE                                                   * 00130000
*                                                                     * 00140000
*                                                                     * 00150000
* REGISTER USAGE:                                                     * 00160000
*                                                                     * 00170000
*   R1    ENTRY PARAMETER                                             * 00180000
*   R13   SAVEAREA POINTER                                            * 00190000
*   R14   RETURN ADDRESS                                              * 00200000
*   R15   ENTRY POINT ADDRESS / RETURN CODE                           * 00210000
*                                                                     * 00220000
*   R6    COMMON DATA AREA                                            * 00230000
*   R11   SAVED ENTRY PARAMETER                                       * 00240000
*   R13   SAVEAREA/WORKAREA POINTER                                   * 00250000
*                                                                     * 00260000
* ATTRIBUTES:                                                         * 00270000
*   AMODE(31),RMODE(ANY),REFR                                         * 00280000
*                                                                     * 00290000
*                                                                     * 00300000
* HISTORY:                                                            * 00310000
*                                                                     * 00320000
*   DATE       BY              COMMENTS                               * 00330000
*   02/02/98   JAN JAEGER      INITIAL VERSION                        * 00340000
*                                                                     * 00350000
*********************************************************************** 00360000
JJ$EXC09 RSECT ,                                                        00370000
JJ$EXC09 AMODE 31                                                       00380000
JJ$EXC09 RMODE ANY                                                      00390000
         SAVE  (14,12),,JJ$EXC09-J.JAEGER-&SYSDATE.-&SYSTIME.           00400000
         LR    R12,R15                 SET BASE REGISTER                00410000
         USING JJ$EXC09,R12                                             00420000
*                                                                       00430000
         LR    R11,R1                  SAVE ENTRY PARAMETER             00440000
*                                                                       00450000
         L     R6,=A(JJ$EXCCM)                                          00460000
         USING JJ$EXCDS,R6                                              00470000
*                                                                       00480000
         L     R10,8(,R11)             ADDRESS USER DATA WORD           00490000
         L     R10,0(,R10)             USER DATA WORD                   00500000
         LTR   R10,R10                                                  00510000
         BZ    EXC09INA                                                 00520000
         USING USERAREA,R10            USER DATA AREA                   00530000
*                                                                       00540000
         STORAGE OBTAIN,                                               X00550000
               LENGTH=WORKLEN                                           00560000
         ST    R13,4(,R1)              CHAIN SAVEAREAS                  00570000
         ST    R1,8(,R13)                                               00580000
         LR    R13,R1                                                   00590000
         USING WORKAREA,R13                                             00600000
*                                                                       00610000
         MVC   RACRVRFY,MFLRVRFY       DELETE ACEE                      00620000
         RACROUTE REQUEST=VERIFY,                                      X00630000
               ACEE=ANONACEE,                                          X00640000
               ENVIR=DELETE,                                           X00650000
               RELEASE=2.1,                                            X00660000
               SYSTEM=YES,                                             X00670000
               WORKA=SAFWK,                                            X00680000
               MF=(E,RACRVRFY)                                          00690000
*                                                                       00700000
         MVC   RACRLIST,MFLRLIST       DELETE RACLISTED PROFILES        00710000
         RACROUTE REQUEST=LIST,                                        X00720000
               ENVIR=DELETE,                                           X00730000
               RELEASE=2.1,                                            X00740000
               WORKA=SAFWK,                                            X00750000
               MF=(E,RACRLIST)                                          00760000
*                                                                       00770000
         L     R1,72(,R11)             EXIT SERVICES PARAMETER LIST     00780000
         L     R3,0(,R1)               EXIT SERVICES SUPPORTED FUNCTIONX00790000
                                       S BITMAP                         00800000
         TM    0(R3),B'01000000'       MESSAGE FUNCTION AVAILABLE       00810000
         BZ    EXC09NOM                                                 00820000
         MVC   12(4,R1),=A(EXC09MSG)   MESSAGE PARAMETER LIST           00830000
         MVI   4(R1),X'01'                                              00840000
         L     R15,8(,R1)              ADDRESS OF ISTIECXS              00850000
         BASR  R14,R15                 CALL ISTIECXS                    00860000
EXC09NOM DS    0H                                                       00870000
*                                                                       00880000
         L     R15,8(,R11)             POINTER TO USER DATA AREA        00890000
         XC    0(4,R15),0(R15)         CLEAR POINTER                    00900000
         LR    R1,R10                                                   00910000
         DROP  R10                                                      00920000
         STORAGE RELEASE,                                              X00930000
               LENGTH=USERLEN,                                         X00940000
               ADDR=(1)                                                 00950000
*                                                                       00960000
         DROP  R13                                                      00970000
         LR    R1,R13                                                   00980000
         L     R13,4(,R13)             RELOAD PREVIOUS SAVEAREA ADDR    00990000
         STORAGE RELEASE,                                              X01000000
               LENGTH=WORKLEN,                                         X01010000
               ADDR=(1)                                                 01020000
EXC09INA DS    0H                                                       01030000
         RETURN (14,12),RC=0                                            01040000
*                                                                       01050000
EXC09MSG DC    AL2(0,L'EXC09MST),AL4(EXC09MST)   MSG PARM LIST          01060000
EXC09MST DC    C'JJ$EXC09 SESSION SETUP AUTHORIZATION VERIFICATION NOW X01070000
               INACTIVE'                                                01080000
*                                                                       01090000
         LTORG ,                                                        01100000
*                                                                       01110000
         JJ$EXCDS ,                                                     01120000
*                                                                       01130000
         YREGS ,                                                        01140000
*                                                                       01150000
         END   ,                                                        01160000
./ ADD NAME=JJ$RFR      01 00 98033 98033 145025 0017 0017 0000 IBMUSER
//IBMUSERR JOB ACCT,'JAN JAEGER',NOTIFY=IBMUSER,CLASS=A,MSGCLASS=A      00010000
//ASMA90   EXEC PGM=ASMA90,PARM='DECK,NOOBJ,XREF(SHORT)'                00020000
//SYSPRINT DD  SYSOUT=*                                                 00030000
//SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR                                 00040000
//         DD  DSN=SYS1.MODGEN,DISP=SHR                                 00050000
//         DD  DSN=IBMUSER.ISTEXCAA.SOURCE,DISP=SHR                     00060000
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,10)                             00070000
//SYSIN    DD  DSN=IBMUSER.ISTEXCAA.SOURCE(JJ$RFR01),DISP=SHR           00080000
//SYSPUNCH DD  DSN=&&PUNCH,DISP=(MOD,PASS),                             00090000
//          UNIT=SYSALLDA,SPACE=(CYL,10)                                00100000
//IEWL     EXEC PGM=IEWL,PARM='RENT,REFR,XREF'                          00110000
//SYSPRINT DD  SYSOUT=*                                                 00120000
//SYSUT1   DD  UNIT=SYSALLDA,SPACE=(CYL,10)                             00130000
//SYSLMOD  DD  DSN=SYS1.LINKLIB,DISP=SHR                                00140000
//SYSLIN   DD  DSN=&&PUNCH,DISP=(OLD,DELETE)                            00150000
//         DD  *                                                        00160000
 NAME  ICHRFR01(R)                                                      00170000
./ ADD NAME=JJ$RFR01    01 00 98033 98033 145032 0007 0007 0000 IBMUSER
ICHRFR01 RSECT ,                                                        00010000
ICHRFR01 RMODE 24                                                       00020000
*                                                                       00030000
         ICHRFRTB CLASS=F1REWALL,ACTION=RACF                            00040000
         ICHRFRTB TYPE=END                                              00050000
*                                                                       00060000
         END   ,                                                        00070000
./ ADD NAME=JJ$RRCDE    01 00 98033 98033 145039 0010 0010 0000 IBMUSER
         ICHERCDE CLASS=F1REWALL,              CLASS NAME              X00010000
               FIRST=ANY,                      FIRST CHAR              X00020000
               OTHER=ANY,                      OTHER CHARS             X00030000
               MAXLNTH=54,                     MAXIMUM LENGTH          X00040000
               ID=255,                         ID NUMBER               X00050000
               POSIT=255,                      POSIT VALUE             X00060000
               GENLIST=ALLOWED,                ALLOW GENLIST           X00070000
               RACLIST=ALLOWED,                CLASS MAY BE RACLISTED  X00080000
               RACLREQ=YES                     MUST ISSUE RACLIST       00090000
         ICHERCDE ,                                                     00100000
