fork(2) download

//SELAR JOB BDWP,'',MSGCLASS=H,CLASS=9,MSGLEVEL=(1,1),
//* TYPRUN=SCAN,
// REGION=4M, NOTIFY=DWEXTD1, TIME=1440
//*
// STEP010 EXEC PGM =IKJEFT01, REGION=5M, COND=(4,LT)
//* ouput will have only be available in the spool.
//SYSREC00 DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DB0W)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIB71) - 
LIB('TSGS.DSN710.DBDW.RUNLIB.LOAD') PARMS('SQL')
END
//SYSIN DD * 
SELECT
   AR_ID
,  DECIMAL(SUM(CASE WHEN CHRG_TYPE_ID = 'SCHRG' THEN CHRG_AMNT ELSE 0 END),17,2) S_CHRG
, DECIMAL (SUM(CASE WHEN CHRG_TYPE_ID = 'LHRG' THEN  CHRG_AMNT ELSE 0 END),17,2) L_CHG_COLL
, DECIMAL (SUM(CASE WHEN CHRG_TYPE_ID = 'AFEE' THEN CHRG_AMNT ELSE 0 END),17,2) A_FEE
FROM BDWP.TABLE_A A
INNER JOIN BDWP.TABLE_B B
, ON A.PART_COLUMN= B.PART_COLUMN
AND B.MEASURE_PRD='2011-12-31'
GROUP BY AR_ID
;
//SYSTSPRT DD SYSOUT=*
//SYSPUNCH DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*

prog.cob:1: Warning: Invalid indicator 'R' at column 7
prog.cob:5: Warning: Invalid indicator 'p' at column 7
prog.cob:13: Warning: Invalid indicator 'I' at column 7
prog.cob:15: Warning: Invalid indicator 'I' at column 7
prog.cob:20: Warning: Invalid indicator '.' at column 7
prog.cob:25: Warning: Invalid indicator 'U' at column 7
prog.cob:26: Warning: File not terminated by a newline
prog.cob:1: Error: syntax error, unexpected WORD, expecting PROGRAM_ID

Standard output is empty