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

Document ID : KB000122162
Last Modified Date : 03/12/2018
Show Technical Document Details
Introduction:
How to display the CA Easytrieve sequence table values directly from the EZTPAQTT module on the CBAALOAD library via CA File Master.
Instructions:
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.
 
  1. 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 ********************************
 
  1. 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 ********************************
 
  1. 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 )                                      
                                                                               
 
  1. 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.