IVP or Test for the IMS Interface option

Document ID : KB000014191
Last Modified Date : 14/02/2018
Show Technical Document Details
Introduction:

Using IMS with Easytrieve 

Question:

Do you have an IVP job to run Easytrieve using IMS?

Environment:
Running DFSRRC00 with Easytrieve
Answer:

//$$$$$$@ EXEC PGM=DFSRRC00,REGION=4096K,                        

//        PARM=(DLI,EZTPA00,DFSSAM03,,0000,,0,,N,,,,,N)          

//STEPLIB  DD  DISP=SHR,DSN=IMSSYS11.GA.RSU1006.SDFSRESL 

//              DD  DISP=SHR,DSN=CSRS.R116.SP0.PUBPTFS.CBAALOAD   

//IMS        DD  DISP=SHR,DSN=CSRS.A04IC1CS.IMS31.PSBLIB           

//             DD  DISP=SHR,DSN=CSRS.A04IC1CS.IMS31.DBDLIB           

//DFSRESLB DD  DISP=SHR,DSN=IMSSYS11.GA.RSU1006.SDFSRESL         

//DFSVSAMP DD *                                                  

2048,6                                                           

/*                                                               

//DI21PART DD  DSN=VCSRS.A04IC1CS.IMS31.DI21PART,DISP=SHR        

//EZOPTBL  DD  DSN=CSRS.R11.SP4.BASE.EZOPTBL,DISP=SHR            

//SYSLIN   DD  DISP=(,PASS),DSN=&&OBJECT,                        

//         UNIT=SYSDA,SPACE=(TRK,(16,4),RLSE),                   

//         DCB=(BLKSIZE=3120,LRECL=80,RECFM=FB)                  

//SYSPRINT DD  SYSOUT=*                                          

//OUTPUT   DD  SYSOUT=*                                          

//EZTVFM   DD UNIT=SYSDA,SPACE=(CYL,(10,2))                      

//SYSIN    DD *                                                  

PARM ABEXIT NO LIST(FILE) DEBUG(PMAP DMAP STATE XREF LONG)       

FILE PARTFILE DLI (DI21PART 1)                                   

  DBD-NAME           1  8 A                                      

  SEG-LEVEL          9  2 A                                      

  STATUS-CODE       11  2 A                                      

  PROC-OPTIONS      13  4 A                                      

  RESERVE-DL1       17  4 B                                      

  SEG-NAME-FB       21  8 A                                      

RECORD PARTROOT  50  KEY (PARTKEY 1 17)                          

  PARTKEY            1 17 A                                      

DEFINE XSTATUS W 1 A                                 

JOB INPUT (PARTFILE)                     

  RETRIEVE PARTFILE +                    

    SELECT (PARTROOT ID 'A'  +           

           ). * STANINFO ID 'B' )        

  IF PATH-ID = 'A'                       

    DISPLAY 'ROOT NOT FOUND FOR ' PARTKEY

    DISPLAY 'PATH-ID = ' PATH-ID         

    DISPLAY HEX PATH-ID                  

  ELSE                                   

    DISPLAY 'PATH-ID = ' PATH-ID         

    DISPLAY HEX PATH-ID                  

  END-IF                                 

    DLI CHKP XSTATUS                     

DISPLAY 'CHKP-STATUS = ' CHKP-STATUS     

DISPLAY HEX CHKP-STATUS                  

STOP                                                 

***************************************************       

Additional Information:

See https://docops.ca.com/ca-easytrieve/11-6/en/programming/ims-dli-database-processing/test-database. it's not a CA data base - "The database is a portion of the PARTS test database provided by IBM with the IMS system. " 

 

Test Database 

Last update March 14, 2016 

The source statement samples that follow show database definition statements (DBD) and program specification block (PSB) statements that describe the database referenced throughout this chapter. The database is a portion of the PARTS test database provided by IBM with the IMS system. For more information about the database, see IBM's IMS/VS Installation Guide. For information about the test database for DLI DOS/VS, see IBM's Guide for New Users. This section uses only the OS/IMS test database that is shown in the diagram in Test Database Structure.

See https://docops.ca.com/ca-easytrieve/11-6/en/programming/ims-dli-database-processing/test-database

DBD Source Statements 

 

DBD NAME=DI21PART,ACCESS=(HISAM,ISAM) 

DATASET DD1=DI21PART,DEVICE=3330,OVFLW=DI21PARO 

SEGM NAME=PARTROOT,PARENT=0,BYTES=50,FREQ=250 

FIELD NAME=(PARTKEY,SEQ),TYPE=C,BYTES=17,START=1 

SEGM NAME=STANINFO,PARENT=PARTROOT,BYTES=85,FREQ=1 

FIELD NAME=(STANKEY,SEQ),TYPE=C,BYTES=2,START=1 

SEGM NAME=STOKSTAT,PARENT=PARTROOT,BYTES=160,FREQ=2 

FIELD NAME=(STOCKEY,SEQ),TYPE=C,BYTES=16,START=1 

SEGM NAME=CYCCOUNT,PARENT=STOKSTAT,BYTES=25,FREQ=1 

FIELD NAME=(CYCLKEY,SEQ),TYPE=C,BYTES=2,START=1 

SEGM NAME=BACKORDR,PARENT=STOKSTAT,BYTES=75,FREQ=0 

FIELD NAME=(BACKKEY,SEQ),TYPE=C,BYTES=10,START=1 

DBDGEN 

 

PSB Source Statements 

 

PCB TYPE=DB,DBDNAME=DI21PART,PROCOPT=A,KEYLEN=43 

SENSEG PARTROOT 

SENSEG STANINFO,PARTROOT 

SENSEG STOKSTAT,PARTROOT 

SENSEG CYCCOUNT,STOKSTAT 

SENSEG BACKORDR,STOKSTAT 

PSBGEN LANG=ASSEM,PSBNAME=EZTPPSBA