Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Quote: |
I have tried to use PAIR=QUOTE and PAIR=APOST but if I have in field MYSTRING1 apostrophes and quotes how can I reformat this file?
|
With both apostrophes and quotes in MYSTRING1, it is quite tricky, but I believe this DFSORT job will do what you want. I allowed MYSTRING2 to have both apostrophes and quotes too just for completeness. I also assumed you didn't have X'FF' in your strings.
Code: |
//S1 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/54)
//SORTOUT DD DSN=... output file (FB/57)
//SYSIN DD *
OPTION COPY
INREC IFOUTLEN=57,
IFTHEN=(WHEN=INIT,
FINDREP=(STARTPOS=8,ENDPOS=27,IN=X'7F',OUT=X'FF')),
IFTHEN=(WHEN=INIT,
FINDREP=(STARTPOS=35,ENDPOS=54,IN=X'7F',OUT=X'FF')),
IFTHEN=(WHEN=INIT,
BUILD=(1,7,ZD,EDIT=(SIIIIT.TT),SIGNS=(,-),
8,20,JFY=(SHIFT=LEFT,LEAD=C';"',TRAIL=C'";',LENGTH=22),
28,7,ZD,EDIT=(SIIIIT.TT),SIGNS=(,-),
35,20,JFY=(SHIFT=LEFT,LEAD=C';"',TRAIL=C'"',LENGTH=22))),
IFTHEN=(WHEN=INIT,
BUILD=(1,64,SQZ=(SHIFT=LEFT,PAIR=QUOTE))),
IFTHEN=(WHEN=INIT,
FINDREP=(INOUT=(X'7F',C'',X'FF',X'7F')))
/*
|
|
|