In the example provided, VTS2 is the name of the VTS-TSR the table EXMPCAT is loaded into. To access multiple records, an alternate index may need to be created on a field that will act as an alternate key.
In the EXMPCAT table, the “Product Description” field meets this criteria. EXMPCATA is an alternate index beginning in position 5, with a record length of 40. Use of this table is discussed with Designing APIs for Multiple Record Retrieval.
//CRTALTS EXEC PGM=DK1TDRV,COND=(4,LT)
//STEPLIB DD DISP=SHR,DSN=your.prefix.tableBASE.LOAD
//TBRPT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//TBDUMP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//MAINLIB DD DISP=SHR,DSN=your.prefix.tableBASE.MAINLIB
//TBOPT DD *
TSRSIZE=50M
/*
//CMD DD *
CA EXMPCATA,EXMPCAT,S,B,1,5,40
/*
When the copybook is mapped for multiple responses in z/OS Connect, it will retrieve data using EXMPCATA.