Thanks a lot Kolusu.. it worked like a charm !
Could you please help me to understand the below card as to how it is picking
the store_nbr and create
NREC PARSE=(%=(REPEAT=2,ENDAT=C'}'),
%01=(ENDBEFR=C'{',
ENDBEFR=C' ',
FIXLEN=8)),
BUILD=(C' SPUT ''',
C'K01.BB.RST.PTEM.FUTR.RTLDTA.REPT01''',
C' FUTRETAIL_',
DATE1(-)-1,
%01,JFY=(SHIFT=LEFT,
LEAD=C'_',
TRAIL=C'.CSV',
LENGTH=16))
Regards
Ron T
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
