//IMSC    JOB CARD INFO                                                 00000131
//*                                                                     00000231
//*             COPYRIGHT (C) 1996, SAS INSTITUTE INC.                  00000333
//*               UNPUBLISHED - ALL RIGHTS RESERVED                     00000431
//*                                                                     00000531
//*  NAME:     IMSC                                                     00000631
//*                                                                     00000731
//*  PURPOSE:  Demonstrate calls to IMS and to read all of the          00000831
//*            checking account information for all customers having    00000931
//*            a particular ZIP code and print the information to       00001031
//*            STDOUT. This example is a simple DL/I batch program.     00001131
//*            The data base upon which it operates is a simplified     00001231
//*            banking data base which has two segments: CUSTOMER,      00001331
//*            which describes the bank's customers, and CHCKACCT,      00001431
//*            which contains the customer's checking account           00001531
//*            information. One of the fields in the CUSTOMER           00001631
//*            segment contains the customer's ZIP code.                00001731
//*                                                                     00001831
//*          * See Technical Support Programmer's Report, entitled,     00001931
//*            DEVELOPING IMS-DLI APPLICATIONS IN C WITH THE SAS/C      00002031
//*            COMPILER, for more information on this example as        00002131
//*            well as general IMS - SAS/C information.                 00002231
//*                                                                     00003931
//*  FUNCTION: Compile and link source files listed below.              00004031
//*                                                                     00004231
//*  SOURCE:   see prefix.SAMPLE.C members -                            00004331
//*            IMSC                                                     00004431
//*                                                                     00004531
//*                                                                     00004628
//*                                                                     00004700
//C       EXEC LC370CL,ENTRY=NONE,                                      00004826
//          PARM.C='OMD,AT,RENT,SNAME(IMSC) ',                          00004910
//          PARM.LKED='RENT,REUS,LIST,MAP,XREF'                         00005000
//C.SYSLIN  DD DSN=your.object.library(IMSC),DISP=OLD                   00005131
//C.H       DD DSN=prefix.SAMPLE.H,DISP=OLD                             00005231
//C.SYSIN   DD DSN=prefix.SAMPLE.C(IMSC),DISP=SHR                       00005331
//LKED.SYSLMOD DD DSN=your.load.library,DISP=OLD                        00005431
//LKED.RESLIB DD DSN=IMS.V130.RESLIB,DISP=SHR                           00005500
//USER DD DSN=your.object.library,DISP=SHR                              00005631
//SYSIN DD *                                                            00005700
   INCLUDE USER(IMSC)                                                   00005800
   LIBRARY RESLIB(ASMTDLI)        DL/I LANGUAGE INTERFACE               00005927
   ENTRY $MAINC                                                         00006000
   NAME IMSC(R)                                                         00006100
/*                                                                      00007000
//RUNIMSC EXEC DBBBATCH,MBR=IMSC,PSB=acctrcrd,DBRC=N,                   00008031
//             AMP=DBVSAMP,CORE=4096K                                   00009028
//IMS.STEPLIB DD DSN=ims.v130.library,DISP=SHR                          00010031
//          DD DSN=your.load.library,DISP=SHR                           00020031
//          DD DSN=prefix.LINKLIB,DISP=SHR                              00030031
//IMS.SYSUDUMP DD DUMMY                                                 00040025
//ACCTDD    DD DSN=ims.acctrcrd.database,DISP=SHR                       00070031
//DLIOUT    DD SYSOUT=*                                                 00080025
//SYSPRINT  DD SYSOUT=*                                                 00090025
//SYSTERM   DD SYSOUT=*                                                 00100025
//                                                                      00110025