search cancel

How to display the current CAWKOPTS settings

book

Article ID: 201523

calendar_today

Updated On:

Products

File Master Plus for IMS

Issue/Introduction

How can I display the CA File Master Plus for IMS CAWKOPTS option settings?

Resolution

The current CA File Master Plus for IMS CAWKOPTS options can be displayed by using a CA File Master Custom Record Layout (CRL) and the data structure defined in a COBOL copybook.
The following can be used on your own risk.
The structure may change by an APAR, PTF or a new release/version of CA File Master.
The real, current structure can be seen when assembling the CAWKOPTS macro.

This is a COBOL copybook example which was tested with release 12.0 in October 2020:
...
      *** CAWKOPTC - OPTION RECORD - COBOL DEFINITION                 
      ***                                                             
      *** NOTE: PLEASE KEEP IN SYNC WITH THE DSECT GENERATED BY       
      ***       'CAWKOPT' MACRO EXECUTION WITHIN 'CAWKOPTS' ASM MODULE
      ***                                                             
                                                                      
       01  OPT-INSTALL-EXEC-OPTIONS.                                   
           05  OPT-HEADER.                                            
               10  OPTS-HEADER-LENGTH            PIC  9(8) COMP.      
               10  OPTS-MOD-LEVEL                PIC  X(13).          
               10  OPTS-RELEASE-NUMBER           PIC  X(10).          
               10  OPTS-ASSEMBLY-DATE            PIC  X(15).          
               10  OPTS-PRODUCT-NAME             PIC  X(41).          
               10  OPTS-COPYRIGHT-NOTICE         PIC  X(45).          
               10  OPTS-ASSEMBER-VERSION         PIC  X(27).          
               10  OPTS-LENGTH-OF-PARAMETERS     PIC  9(08) COMP.     
           05  BATCH-RC-IF-COPYBOOK-NOT-FOUND    PIC  9(08) COMP.     
           05  BATCH-RC-IF-COMPARE-NOT-EQUAL     PIC  9(08) COMP.     
           05  BATCH-#-READS-RESYNC-CMP-MISMAT   PIC  9(08) COMP.     
           05  BATCH-MAX-NUMBER-CMP-MISMATCHES   PIC  9(08) COMP.     
           05  BATCH-CODE-PAGE-FOR-PRINTING      PIC  X(08).          
           05  BATCH-#-OF-LINES-PER-PRINT-PAGE   PIC  9(08) COMP.     
           05  BATCH-CLOSE-I-FILE-BETWEEN-CMDS   PIC  X(01).          
           05  BATCH-CLOSE-O-FILE-BETWEEN-CMDS   PIC  X(01).          
           05  BATCH-DEFAULT-DDNAME-INPUT-FILE   PIC  X(08).          
           05  BATCH-DEFAULT-DDNAME-CMP-OLDFILE  PIC  X(08).          
           05  BATCH-DEFAULT-DDNAME-CMP-NEWFILE  PIC  X(08).          
           05  BATCH-RC-COPY-RECORD-TRUNCATION   PIC  9(08) COMP.     
           05  BATCH-RC-NO-COPY-RECORDS-SEL      PIC  9(08) COMP.     
           05  BATCH-RC-INPUT-FILE-EMPTY         PIC  9(08) COMP.     
           05  BATCH-RDW-TREATED-AS-RECORD-POS1  PIC  X(01).          
           05  COMMON-ENABLE-SECURITY-EXIT?      PIC  X(01).          
           05  COMMON-SECURITY-EXIT-PGM-NAME     PIC  X(08).          
           05  BATCH-#-DELETES-BEFORE-SYNCPOINT  PIC  9(08) COMP.     
           05  BATCH-#-INSERTS-BEFORE-SYNCPOINT  PIC  9(08) COMP.     
           05  BATCH-#-UPDATES-BEFORE-SYNCPOINT  PIC  9(08) COMP.     
           05  FILLER01                          PIC  X(39).          
           05  ONLINE-CONFIRM-DATASET-DELETES    PIC  X(01).          
           05  ONLINE-CONFIRM-PDS-MEMBER-DEL     PIC  X(01).          
           05  ONLINE-COMMAND-CHAINING-EQ-W-FM   PIC  X(01).          
           05  ONLINE-CONFIRM-PRINT-CLASS-DEST   PIC  X(01).      
           05  ONLINE-SYSOUT-CLASS-DEFAULT       PIC  X(01).      
           05  ONLINE-SYSOUT-COPIES-DEFAULT      PIC  X(01).      
           05  COMMON-RESTRICT-IMS-ENV-DSN       PIC  X(44).      
           05  COMMON-RESTRICT-DL/I-RESLIB-OBJ   PIC  X(01).      
           05  COMMON-RESTRICT-DL/I-PSBLIB-OBJ   PIC  X(01).      
           05  COMMON-RESTRICT-DL/I-DBDLIB-OBJ   PIC  X(01).      
           05  COMMON-RESTRICT-DL/I-VSPARM-OBJ   PIC  X(01).      
           05  COMMON-RESTRICT-DL/I-IMSLOG-OBJ   PIC  X(01).      
           05  COMMON-RESTRICT-DL/I-CHLOG-OBJ    PIC  X(01).      
           05  COMMON-RESTRICT-DL/I-DBRC-OBJ     PIC  X(01).      
           05  COMMON-RESTRICT-DL/I-RECON-OBJ    PIC  X(01).      
           05  FILLER02                          PIC  X(02).      
           05  COMMON-RESTRICT-BMP-REGION-OBJ    PIC  X(01).      
           05  COMMON-RESTRICT-BMP-RESLIB-OBJ    PIC  X(01).      
           05  COMMON-RESTRICT-BMP-ACBLIB-OBJ    PIC  X(01).      
           05  COMMON-RESTRICT-BMP-DOPTLIB-OBJ   PIC  X(01).      
           05  COMMON-RESTRICT-BMP-DBDLIB-OBJ    PIC  X(01).      
           05  COMMON-RESTRICT-BMP-APPLGN-OBJ    PIC  X(01).      
           05  COMMON-RESTRICT-BMP-NBUF-OBJ      PIC  X(01).      
           05  COMMON-RESTRICT-BMP-OBUF-OBJ      PIC  X(01).      
           05  COMMON-RESTRICT-BMP-CHLOG-OBJ     PIC  X(01).      
           05  COMMON-RESTRICT-BMP-COPE-OBJ      PIC  X(01).      
           05  COMMON-ALLOW-COPE-SUPPORT         PIC  X(01).      
           05  FILLER03                          PIC  X(111).     
           05  ONLINE-WORKSPACE-DASDUNIT         PIC  X(08).      
           05  ONLINE-WORKSPACE-STORCLAS         PIC  X(08).      
           05  ONLINE-WORKSPACE-MAX-CYLINDERS    PIC  9(08) COMP. 
           05  ONLINE-AUTOCOMMIT-DEFAULT-VALUE   PIC  X(03).      
           05  ONLINE-AUTOCOMMIT-FORCE-VALUE     PIC  X(07).      
           05  ONLINE-FORCE-CHANGE-LOGGING       PIC  X(01).      
           05  ONLINE-CHANGE-LOG DATA-SET-NAME   PIC  X(44).      
           05  ONLINE-CHANGE-LOGGING-PRI-SPACE   PIC  9(08) COMP. 
           05  ONLINE-CHANGE-LOGGING-SEC-SPACE   PIC  9(08) COMP. 
           05  FILLER04                          PIC  X(1024).     
...
This is the CRL example:
...
*** CA File Master Plus             12.0.0   Custom Record Layout
"CA File Master Plus Options"                                    
* 12.0                                                           
  IF=()                                                          
    LAYOUTFILE=your.layout.dsn(CAWKOPTC)                       
    LAYOUTREC=OPT-INSTALL-EXEC-OPTIONS                           
    LAYOUTOFF=496                                                
*   LAYOUTOFF=480                                                
    SKIPFLD=FILLER01                                             
    SKIPFLD=FILLER02                                             
    SKIPFLD=FILLER03                                             
    SKIPFLD=FILLER04                                              
    DEFAULT                                                      
...
Change the layout DSN and the member name - which contains the COBOL copybook.
The layout offset can be different. It could be 480 or something else. Usually it starts after IEWP:
...
************
IEWP...┬║MOD=
************
...
How to browse the CAWAOPTS module:

--------------------  CA File Master Plus -- Browse Dataset -------------------
COMMAND ===>                                                                 
                                                                               
Specify Dataset to Browse:                                                    
  Dataset name   ===> 'your.FMMVS12.CDBILOAD'                                 
  Member name    ===> CAWKOPTS                                                
  Volume         ===>                  If dataset not cataloged               
                                                                              
Record Layout for Formatted Displays:                                          
  Layout dataset ===> 'your.layout.dsn'                                     
  Layout member  ===> CAWKOPTL                                                
                                                                               
Selection Criteria below or Sel. Criteria Member ===>          Scan gens ===> N
===>                                                                          
===>                                                                           
===>                                                                          
                                                                              
Display mode  ===> S ( C Character S Single-rec Format M Multi-rec Format )   
Browse  mode  ===> B ( V View B Browse )                                      
...

Result (an extract):
...

...

Attachments