BPX1TLS (pthread_security_np) example

The following code creates a thread-level security environment for the calling thread using the identity specified by the caller. For the callable service, see pthread_security_np, pthread_security_applid_np (BPX1TLS, BPX4TLS) — Create|delete thread-level security. For the data structure, see BPXYCONS — Constants used by services. AMODE 64 callers use BPX4TLS (pthread_security_np) example.
                                              
         MVC   IDENT,=CL8'USERID05'                                     
         MVC   PASSWORD,=CL7'MYPSWRD'                                   
         SPACE ,                                                        
         CALL  BPX1TLS,              pthread_security_np               +
               (=A(TLS_CREATE_THREAD_SEC#), Input: Func_code  BPXYCONS +
               TLS_IDENTITY_USERID#, Input: Identity_type     BPXYCONS +
               =A(8),                Input: Identity length            +
               IDENT,                Input: Identity                   +
               =A(7),                Input: Password length            +
               PASSWORD,             Input: Password                   +
               RETVAL,               Return value: 0 or -1             +
               RETCODE,              Return code                       +
               RSNCODE),             Reason code                       +
               VL,MF=(E,PLIST)       ----------------------------------