Example for the use of the programming interface

The following section contains an example of the use of the programming interface. The example illustrates the macros CREFTPRF, MODFTADS, SHWFTADS and SHWFTPRF.

Example

         START
         BALR  10,0
         USING *,10
         PRINT NOGEN
*
*              set FTAC password "NURICH",
*              prevent FT by setting security level at 0:
*
         MODFTADS NEWPASS=V1,MAXLV=0
         BAL   4,CHECKRC             (branch to return code check)
*
*              Display admission set (on SYSOUT):
*
         SHWFTADS
         BAL   4,CHECKRC             (branch to return code check)
*
*              Create admission profile with the name "MYPROFIL" and
*              transfer admission "accessformeonly";
*              The FT initiative can only be in the local system,
*              the security levels of the admission set should be ignored,
*              the entry for processing admission is not limited:
         CREFTPRF NAME=V2,                                             *
               PASS=V1,                                                *
               TAD=V3,                                                 *
               ILV=*YES,                                               *
               INIT=*LOCAL,                                            *
               PAD=*NOTRS
         BAL   4,CHECKRC             (branch to return code check)
*
*              Display the created admission profile
*              (macro with EXECUTE and LIST format):
*
         SHWFTPRF MF=(E,SHWFTPRF)    EXECUTE format
         BAL   4,CHECKRC             (branch to return code check)
*
         TERM
*
*              check last byte of return code for 0:
*
CHECKRC  CLI   7(1),X'00'
         BRE   4                     if 0: continue program
         TERM  UNIT=STEP,MODE=A      else: abnormal program termination.
*
         YFSEQU                      macro with FTAC equates
*
SHWFTPRF SHWFTPRF NAME=V2,INF=*ALL   LIST format
*
V1       DC    C'NURICH'             FTAC password
V2       DC    C'MYPROFIL'           profile name
V3       DC    C'accessformeonly'    transfer admission
*
         END