How to display the CA Easytrieve sequence table values directly from the EZTPAQTT module

Products

PanAudit Plus Easytrieve Report Generator PAN/SQL

Issue/Introduction

How to display the CA Easytrieve sequence table values directly from the EZTPAQTT module on the CBAALOAD library via CA File Master.

Environment

Release:
Component: EZTRVE

Resolution

There is no Easytrieve function to display the active sequence table values from the EZTPAQTT module directly.
But you can use CA File Master and an appropriate LAYOUT.

The CUSTOM RECORD LAYOUT member

BROWSE    your.FM110.LAYOUT(EZTPAQL) - 01.03      Line 0000000000 Col 001 080
Command ===>                                                  Scroll ===> CSR
********************************* Top of Data **********************************
*** CA File Master Plus             11.0.0   Custom Record Layout
"CA File Master Plus Options"
* 11.0
IF=()
    LAYOUTFILE=your.FM110.LAYOUT(EZTPAQTT)
    LAYOUTREC=EZTPAQTT-RECORD
    LAYOUTOFF=480
    DEFAULT
******************************** Bottom of Data ********************************

The LAYOUT member

BROWSE    your.FM110.LAYOUT(EZTPAQTT) - 01.13     Line 0000000000 Col 001 080
Command ===>                                                  Scroll ===> CSR
********************************* Top of Data **********************************
       01 EZTPAQTT-RECORD.
           05 00-to-0F                   PIC S9(16).
           05 10-to-1F                   PIC S9(16).
           05 20-to-2F                   PIC S9(16).
           05 30-to-3F                   PIC S9(16).
           05 40-to-4F                   PIC S9(16).
           05 50-to-5F                   PIC S9(16).
           05 60-to-6F                   PIC S9(16).
           05 70-to-7F                   PIC S9(16).
           05 80-to-8F                   PIC S9(16).
           05 90-to-9F                   PIC S9(16).
           05 A0-to-AF                   PIC S9(16).
           05 B0-to-BF                   PIC S9(16).
           05 C0-to-CF                   PIC S9(16).
           05 D0-to-DF                   PIC S9(16).
           05 E0-to-EF                   PIC S9(16).
           05 F0-to-FF                   PIC S9(16).
******************************** Bottom of Data ********************************

Browse

-------------------- CA File Master Plus -- Browse Dataset -------------------
COMMAND ===>

Specify Dataset to Browse:
Dataset name   ===> 'your.EZTP.R116.CBAALOAD'
Member name    ===> EZTPAQTT
Volume         ===>                  If dataset not cataloged

Record Layout for Formatted Displays:
Layout dataset ===> 'your.FM110.LAYOUT'
Layout member ===> EZTPAQL

Selection Criteria below or Selection Criteria Member ===>
===>
===>
===>

Display mode ===> S ( C Character S Single-rec Format M Multi-rec Format )
Browse mode ===> B ( V View B Browse )

Result

Browse your.EZTP.R116.CBAALOAD(EZTPAQTT)
COMMAND ===>
Record Number: 1        Record Length: 4096 Record Layout: EZTPAQL
   Field Name                        Pos Format Value
01 EZTPAQTT-RECORD                   481     256
05 00-TO-0F                        481 NS   16 X'000102030405060708090A0B0C0D0E0F'
05 10-TO-1F                        497 NS   16 X'101112131415161718191A1B1C1D1E1F'
05 20-TO-2F                        513 NS   16 X'202122232425262728292A2B2C2D2E2F'
05 30-TO-3F                        529 NS   16 X'303132333435363738393A3B3C3D3E3F'
05 40-TO-4F                        545 NS   16 X'404142434445464748494A4B4C4D4E4F'
05 50-TO-5F                        561 NS   16 X'505152535455565758595A5B5C5D5E5F'
05 60-TO-6F                        577 NS   16 X'606162636465666768696A6B6C6D6E6F'
05 70-TO-7F                        593 NS   16 X'707172737475767778797A7B7C7D7E7F'
05 80-TO-8F                        609 NS   16 X'808182838485868788898A8B8C8D8E8F'
05 90-TO-9F                        625 NS   16 X'909192939495969798999A9B9C9D9E9F'
05 A0-TO-AF                        641 NS   16 X'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'
05 B0-TO-BF                        657 NS   16 X'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'
05 C0-TO-CF                        673 NS   16 X'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'
05 D0-TO-DF                        689 NS   16 X'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'
05 E0-TO-EF                        705 NS   16 X'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'
  05 F0-TO-FF                        721 NS   16 X'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'

Please note that this sample was used for CA Easytrieve 11.6 and there is no guaranty that this will work for good and all. Perhaps you have to customize the offsets in a future release.

Additional Information

See KB000121729 for additional information, please.