fork download

 
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 'S' at column 7
prog.cob:6: Warning: Invalid indicator 'I' at column 7
prog.cob:8: Warning: Invalid indicator 'I' at column 7
prog.cob:13: Warning: Invalid indicator '.' at column 7
prog.cob:18: Warning: Invalid indicator 'U' at column 7
prog.cob:19: Warning: File not terminated by a newline
prog.cob:2: Error: syntax error, unexpected WORD, expecting PROGRAM_ID

Standard output is empty