Check List To Quickly Implement REXX Server in Top Secret
search cancel

Check List To Quickly Implement REXX Server in Top Secret

book

Article ID: 48454

calendar_today

Updated On:

Products

Top Secret

Issue/Introduction

 Is there any easy way to implement REXX Server?

Resolution

Below are the instructions for setting up REXX:

  1. Define an AXR facility like it follows:

    TSS9550I FACILITY DISPLAY FOR AXR                                        TSS9551I INITPGM=AXR      ID=21 TYPE=099                                 TSS9552I ATTRIBUTES=IN-USE,ACTIVE,SHRPRF,ASUBM,NOABEND,MULTIUSER,NOXDEF  TSS9552I ATTRIBUTES=LUMSG,STMSG,SIGN(M),INSTDATA,RNDPW,AUTHINIT          TSS9552I ATTRIBUTES=NOPROMPT,NOAUDIT,RES,WARNPW,NOTSOC,LCFTRANS          TSS9552I ATTRIBUTES=MSGLC,NOTRACE,NOEODINIT,IJU,NODORMPW,NONPWR          TSS9552I ATTRIBUTES=LUUPD                                                TSS9553I MODE=FAIL  DOWN=GLOBAL  LOGGING=INIT,SMF,MSG,SEC9               TSS9554I UIDACID=8 LOCKTIME=000 DEFACID=*NONE*   KEY=8 TSS9566I MAXUSER=03000  PRFT=003       TSS0300I  MODIFY   FUNCTION SUCCESSFUL 


  2. Create acids: AXR and AXRUSER

    /*ARCHIVE AXR      STORED 06/20/13-07.24.19 BY HULJA01  ON XE52               /*Please edit any CREATE commands by adding a PASSWORD keyword to the command TSS CREATE(AXR) NAME('REXX USER') TYPE(USER) DEPT(D112)                       TSS ADDTO(AXR) GROUP(OMVSGRP)                                                 TSS ADDTO(AXR) NODSNCHK NORESCHK                                              TSS ADDTO(AXR) MASTFAC(AXR)                                                   TSS ADDTO(AXR) FACILITY(STC)                                                  TSS ADDTO(AXR) UID(0000000000)                                                TSS ADDTO(AXR) HOME(/u/axr)                                                   TSS ADDTO(AXR) OMVSPGM(/bin/sh)                                               TSS ADDTO(AXR) DFLTGRP(OMVSGRP)                                               /*ARCHIVE AXRUSER  STORED 06/20/13-07.26.25 BY HULJA01  ON XE52               /*Please edit any CREATE commands by adding a PASSWORD keyword to the command TSS CREATE(AXRUSER) NAME('REXX USER') TYPE(USER) DEPT(D112)                   TSS ADDTO(AXRUSER) GROUP(OMVSGRP)                                             TSS ADDTO(AXRUSER) NODSNCHK NORESCHK                                          TSS ADDTO(AXRUSER) FACILITY(AXR)                                              TSS ADDTO(AXRUSER) UID(0000000000)                                            TSS ADDTO(AXRUSER) HOME(/u/axruser)                                           TSS ADDTO(AXRUSER) OMVSPGM(/bin/sh)                                           TSS ADDTO(AXRUSER) DFLTGRP(OMVSGRP)     


  3. Add STCs in STC records

    STC        = AXR         ACID       = AXR     STC        = AXR*       ACID       = AXRUSER   


  4. In PROCLIB have:

    BROWSE    Your PROCLIB(AXRPSTRT)                                     ********************************* Top of Data                         //AXRPSTRT PROC                                                       //AXRPSTRT EXEC PGM=AXRINSTR,TIME=NOLIMIT                             //         PEND  


  5. In SYS1.PARMLIB have member AXR00 and CTIAXR00:

    /********************************************************************//*     THIS IS A SAMPLE AXR00   MEMBER OF SYS1.PARMLIB              *//*                                                                  *//*   THIS MEMBER ILLUSTRATES THE SYNTAX OF THE CPF AND              *//*   AXRUSER KEYWORDS.                                              *//*                                                                  *//*   NEW WITH z/OS 1.9                                              *//*                                                                  *//*   NOTE:                                                          *//*                                                                  *//*   THIS SAMPLIB MEMBER IS ONLY AN EXAMPLE. THE DATA               *//*   REPRESENTED ON EACH STATEMENT IS NOT NECESSARILY THE           *//*   IBM-SUPPLIED VALUES.                                           *//*   AN INSTALLATION MAY USE THIS MEMBER JUST AS A SAMPLE, AND      *//*   MODIFY IT ACCORDING TO THEIR NEEDS.                            *//*                                                                  *//********************************************************************/                                                                     CPF('REXX&SYSCLONE.',SYSPLEX) /* Defines REXXnn as a sysplex                                     wide cpf value */                         AXRUSER(AXRUSER)        /* ?AXREXX security=axruser results in the                              exec running in a security environment                               defined by the userid AXRUSER           */                                                                      /* ================================================================ *//*                                                                  *//* PROPRIETARY STATEMENT=                                           */ /*  LICENSED MATERIALS - PROPERTY OF IBM                            */ /* 5694-A01 (C) COPYRIGHT IBM CORP. 2006                            */ /*                                                                  */ /* STATUS = HBB77BR                                                 */ /*                                                                  */ /*   *01* EXTERNAL CLASSIFICATION:   NONE                           */ /*   *01* END OF EXTERNAL CLASSIFICATION:                           */ /*                                                                  */ /* FUNCTION:  CTIAXR00 is used to define the AXR trace options      */ /*            at trace startup.                                     */ /*            This is COMP=SYSAXR                                   */ /*                                                                  */ /* ---------------------------------------------------------------- */ /*                                                                  */ /* CHANGE ACTIVITY:                                                 */ /*                                                                  */ /*   PRODUCTS=                                                      */ /* $L0= AXR      HBB77BR 060715 PDCS: AXR                           */ /*                                                                  */ /*                                                                  */ /* ---------------------------------------------------------------- */ /* DEFAULT CTIAXR00 MEMBER                                          */ /* ================================================================ */ TRACEOPTS                                                              /* ---------------------------------------------------------------- */ /*   ON OR OFF: PICK ONE                                            */ /*   CAUTION: IF YOU USE "OFF", MAKE SURE THAT ALL SUBSEQUENT       */ /*            LINES ARE COMMENTED OUT OR DELETED.                   */ /* ---------------------------------------------------------------- */ ON                                                                     OPTIONS('ERROR')                                                      /* ---------------------------------------------------------------- */ /*   BUFSIZE: A VALUE IN RANGE 16K TO 4M                            */ /* ---------------------------------------------------------------- */   BUFSIZE(4M)      


  6. AXR is started by the master scheduler at IPL time, so you have to recycle it:

    FORCE AXR,ARM                                                            S AXRPSTRT   


  7. The REXX lib by default is SYS1.SAXREXEC then issue at the console:

    F AXR,BPXHFSCK    *** End Of Data ***