What is RWLOGON

Products

• Gener/OL

Issue/Introduction

You are defining a logon matrix check to validate logon IDs and verify the attributes and panels that should be provided.

RWLOGON is seen but you do not know what it means. Where to find the RWLOGON value and organization of where the field is located.

Environment

z/OS any release
z/VSE any release
Gener/OL 7.0 and 7.1

Resolution

RWLOGON is a reserved word (field) to store the userid to be passed to another field for processing and verification within Gener/OL

A sample of the instructions you can use (most environments) is here:

MOVE RWLOGON TO USUSER                --> (my field name as a sample) 

RWLOGON is a reserved word/field. When you logon your userid is placed in the RWLOGON field and then you can move the value to the USUSER (sample name) field for processing against your array. 

Recommend a review of your systems library to find the member you use to move the fields. 

Here is a sample of something you may see when you research your environment (sample only) 

Member ==> *                                     Type ==> PROGRAM 
Sublibrary ==> SYSTEMS 
Library ==> SGTLIBU 

Type                Description                            Date Modified             User 
PROGRAM             SECURITY MAINTENANCE                   06/21/18 10:59            UTILITY

 

 

This is our sample name. You also have a this same sample in your library that CA provides. 

Following is the entire utility program:
Note:  Highlighted are all the RW prefix reserved words
 
000001 PROGRAM  FREEPGM   DESCRIPTION 'FREE PROGRAM FOR NEW VERSION   ' 
000002   HANDLE NOT=NOTFOUND                                            
000003 RECORD UTILITY:SGTLB124 FILE=SGTLIB2,VARIABLE,ABOVE              
000004 WORK UTILITY:USER ABOVE                                          
000005 WORK UTILITY:TOPMP ABOVE                                         
000006 WORK UTILITY:FREEPGM ABOVE                                       
000007   MOVE 'SGTLIB2' TO RWFILE                                       
000008   MOVE RWFILE TO PMLIB                                            
000009   MOVE RWLOGON TO USUSER                                         
000010   MOVE 'J' TO USTYPE                                             
000011 LOOP. MAP UTILITY:FREEPGM                                         
000012   MOVE RWCLEAR TO RWMSG                                          
000013   IF RWAID = 'F4'                                                
000014     MOVE  'DUMP' TO RWPROG                                       
000015     MOVE  USIDS TO RWMSG                                         
000016     NEWPROG                                                      
000017   ENDIF                                                
000018   GETMAP UTILITY:FREEPGM                               
000019   IS RWFILE EQ PMLIB ON YES GOTO LIBOK                 
000020   MOVE PMLIB TO RWFILE                                 
000021   NEWFILE SGTLB124,FILE=RWFILE ON NOT GOTO BADLIB      
000022 LIBOK. MOVE RWCLEAR TO SGKEY                           
000023   MOVE '1' TO SGID                                     
000024   MOVE USUSER   TO SGLOGON                             
000025   READ SGTLB124,KEY=SGKEY                              
000026   MOVE SGUSERID TO USUID                               
000027   MOVE RWCLEAR TO SGKEY                                
000028   MOVE '2' TO SGID                                     
000029   MOVE SGUSERID TO SGUID                               
000030   MOVE USTYPE TO SGTYP                                 
000031   MOVE USMEMBER  TO SGMEMBER                           
000032   READ SGTLB124,KEY=SGKEY                              
000017   ENDIF                                                
000018   GETMAP UTILITY:FREEPGM                               
000019   IS RWFILE EQ PMLIB ON YES GOTO LIBOK                 
000020   MOVE PMLIB TO RWFILE                                 
000021   NEWFILE SGTLB124,FILE=RWFILE ON NOT GOTO BADLIB      
000022 LIBOK. MOVE RWCLEAR TO SGKEY                           
000023   MOVE '1' TO SGID                                     
000024   MOVE USUSER   TO SGLOGON                             
000025   READ SGTLB124,KEY=SGKEY                              
000026   MOVE SGUSERID TO USUID                               
000027   MOVE RWCLEAR TO SGKEY                                
000028   MOVE '2' TO SGID                                     
000029   MOVE SGUSERID TO SGUID                               
000030   MOVE USTYPE TO SGTYP                                 
000031   MOVE USMEMBER  TO SGMEMBER                           
000032   READ SGTLB124,KEY=SGKEY