//JOBBNKC JOB
//JOBLIB DD DSN=&DAISROOT..EXAMPLES.C.BANK,DISP=SHR
//       DD DSN=&DAISROOT..BIN,DISP=SHR
//CREATE EXEC PGM=ECORBA,PARM='BankClt'
//SYSIN DD *
C
S.Jones
1000
C
A.Sih
2000
C
A.Thomas
3000
q
/*
//BALANCE EXEC PGM=ECORBA,PARM='BankClt'
//SYSIN DD *
b
1001
b
1002
b
1003
q
/*
//DEPOSIT EXEC PGM=ECORBA,PARM='BankClt'
//SYSIN DD *
d
1001
255
d
1002
455
d
1003
655
q
/*
//BALANCE2 EXEC PGM=ECORBA,PARM='BankClt'
//SYSIN DD *
b
1001
b
1002
b
1003
q
/*
//
