Frank,
i wanted to create the simple way to create the report against any flat file,
without hours and hours calculation positions in, positions out, headers, slashes etc.
my simple rexx prog runs against copybook and creates the following skeleton:
now I can quickly play what to print what filters etc. the only my problem for now is
how to do the following:
i would like FLD1, FLD2, FLD3, FLD4 are printed on the first line of report
and FLD5, FLD6, FLD7 - on the second line of the report.
//STEP01 EXEC PGM=ICETOOL
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYMNOUT DD SYSOUT=*
//IN1 DD DISP=SHR,DSN=FILE.NAME
//TEMP DD DSN=&&TEMP,
// DCB=*.IN1,UNIT=SYSDA,
// DISP=(,DELETE,DELETE),SPACE=(CYL,(1,1),RLSE)
//SYMNAMES DD *
SS-HD1,S'ANY COMPANY'
SS-HD2,S'ANY FILE'
STATUS_CODE,1,2,CH
SETTLE_LOCATION,3,3,CH
SETTLE_DESCRIPTION,6,40,CH
RGS0120_DESCRIP,46,15,CH
RGS0130_DESCRIP,61,30,CH
ISO_COUNTRY_CODE,91,3,CH
REG_AFF_AVAIL_OVER,94,1,CH
FLD1,S'STATUS_CODE'
FLD2,S'SETTLE_LOCATION'
FLD3,S'SETTLE_DESCRIPTION'
FLD4,S'RGS0120_DESCRIP'
FLD5,S'RGS0130_DESCRIP'
FLD6,S'ISO_COUNTRY_CODE'
FLD7,S'REG_AFF_AVAIL_OVER'
/*
//TOOLIN DD *
COPY FROM(IN1) USING(CNTL)
DISPLAY FROM(TEMP) LIST(SYSPRINT) -
DATE(4MD/) TIME TITLE(SS-HD1) PAGE -
TITLE(SS-HD2) TBETWEEN(20) -
HEADER(FLD1) ON(STATUS_CODE) -
HEADER(FLD2) ON(SETTLE_LOCATION) -
HEADER(FLD3) ON(SETTLE_DESCRIPTION) -
HEADER(FLD4) ON(RGS0120_DESCRIP) -
HEADER(FLD5) ON(RGS0130_DESCRIP) -
HEADER(FLD6) ON(ISO_COUNTRY_CODE) -
HEADER(FLD7) ON(REG_AFF_AVAIL_OVER)
/*
//CNTLCNTL DD *
OUTFIL FNAMES=TEMP,
INCLUDE=(STATUS_CODE,GT,C' ')
/*
//
Now i would like FLD1, FLD2, FLD3, FLD4 are printed on the one line of report
and FLD5, FLD6, FLD7 - on the second line the report.