How can I display the CA File Master Plus for IMS CAWKOPTS option settings?
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):
...
...