|
123456789101112131415161718192021222324252627282930313233343536373839404142434445 |
- //BWBGEN JOB CLASS=C,REGION=0K
- //*
- //RUNBW PROC BWBPREF='BWBASIC'
- //BWBASIC EXEC PGM=BWBASIC,PARM='DD:INPUT'
- //STEPLIB DD DSN=&BWBPREF..LINKLIB,DISP=SHR
- //SYSIN DD DUMMY
- //SYSPRINT DD SYSOUT=*
- //SYSTERM DD SYSOUT=*
- // PEND
- //*
- //RUNRE PROC BWBPREF='BWBASIC'
- //BWBASIC EXEC PGM=RENUM,PARM='DD:INPUT'
- //STEPLIB DD DSN=&BWBPREF..LINKLIB,DISP=SHR
- //SYSIN DD DUMMY
- //SYSPRINT DD SYSOUT=*
- //SYSTERM DD SYSOUT=*
- // PEND
- //*
- //CLEAN PROC BWBPREF='BWBASIC'
- //DELETE EXEC PGM=IEFBR14
- //DD0 DD DSN=&BWBPREF..ALLZIPS,DISP=(MOD,DELETE),
- // UNIT=SYSALLDA,SPACE=(TRK,(0))
- //DD3 DD DSN=&BWBPREF..NCALIB,DISP=(MOD,DELETE),
- // UNIT=SYSALLDA,SPACE=(TRK,(0))
- // PEND
- //*
- //S1 EXEC RUNBW
- //INPUT DD *
- x = 1
- print "hello, world",x
- x = 2
- print "hello, world",x
- end
- /*
- //*
- //S2 EXEC RUNRE
- //INPUT DD *
- 5 hi
- 7 folks
- 9 there
- /*
- //EDITFL DD SYSOUT=*
- //*
- //S3 EXEC CLEAN
- //
|