I am working in mainframe testing for a banking project. I have a requirement where i have to find accounts in my database.
Below is a JCL that we normally use for updating something in our IMSDB but now i need only the accounts to be displayed ..can someone please help me with that?
//WBYSECOM JOB(21765,UNKN),'BTS', CLASS=7,LINES=99999,SCHENV=DET1,MSGCLASS=T
//PROCS JCLLIB ORDER=(WBYSTE.SHOT2.JOBPDS,
SOME OTHER LIBRARIES)
//INCLUDE MEMBER=JOBLIB
//S01DADJ EXEC IMSBATCH, MBR = KGPXDAP0,PSB=KGZXDAPE,NBA=30,OBA=25
//SMFCIVE DD DUMMY
//DDPRT01W DD SYSOUT=*
//DDSEQ01W DD SYSOUT=*
//DDRDR01R DD *
RUN UPDATE
DBID BASE
GU SGNPBRT0(FGNBRKE0EQHEX'MY KEY')
GHNP SGNPBDY0
DATA SGNPBDY0 00022 002 X A35B
REPL SGNPBDY0
SYNC
*
//PROCS JCLLIB ORDER=(WBYSTE.SHOT2.JOBPDS,
SOME OTHER LIBRARIES)
//INCLUDE MEMBER=JOBLIB
//S01DADJ EXEC IMSBATCH, MBR = KGPXDAP0,PSB=KGZXDAPE,NBA=30,OBA=25
//SMFCIVE DD DUMMY
//DDPRT01W DD SYSOUT=*
//DDSEQ01W DD SYSOUT=*
//DDRDR01R DD *
RUN UPDATE
DBID BASE
GU SGNPBRT0(FGNBRKE0EQHEX'MY KEY')
GHNP SGNPBDY0
DATA SGNPBDY0 00022 002 X A35B
REPL SGNPBDY0
SYNC
*
coded
