>> Here is my code...can someone help me to get rid of the spaces in the name,
>> before the (#### value?
Don,
You are complicating a simple request. First build Only the fields you need,
and you can add the static characters using LEAD on the SQZ operator.
Also, you don't have to get a seqnum in zd format and then convert that into a
Alphabet, you can directly use a BINARY format with sequence starting at 193
and it would be the EBCDIC characters.
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=Your.Input.FB.file
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INCLUDE COND=(1,1,CH,EQ,C'>')
INREC BUILD=(55,32,SQZ=(SHIFT=LEFT),
88,06,
C',',
49,03,
04,04,UFF,EDIT=(TTTT),
SEQNUM,1,BI,START=193,RESTART=(55,32),
80:X)
OUTREC BUILD=(01,80,SQZ=(SHIFT=LEFT,
LEAD=C'-UTL COPY,TABLE,'))
/*
The output from this is
-UTL COPY,TABLE,B400-BRANCH-BLDG(1001),BRN0400A
-UTL COPY,TABLE,B400-TRANHIST(0003),HST0400A
-UTL COPY,TABLE,B400-TRANHIST(0004),HST0400B
-UTL COPY,TABLE,B400-TRANHIST(0005),HST0400C
Thanks,
Kolusu
DFSORT Development
IBM Corporation
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
