>This works, I have just tested it.
Bingo! Absolutely outstanding, my thanks and compliments to all who
gave
this bit of trivia time and effort. The job I cobbled together to do
this
in batch has the guts of:
//STEP020 EXEC PGM=IKJEFT01,REGION=512K
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//EBCIN DD DSN=NODE1.NODE2.EBCDIC.DATA,DISP=SHR
//ASCOUT DD DSN=NODE1.NODE2.ASCII.DATA,
// DISP=(,CATLG,CATLG),
// UNIT=FILE,
// SPACE=(CYL,(168,25),RLSE),
// DCB=(NODE1.NODE2.EBCDIC.DATA)
//SYSTSIN DD *
OCOPY INDD(EBCIN) OUTDD(ASCOUT) CONVERT((BPXFX311)) FROM1047
/*
Now... there's still a bit of jiggery-pokery needed; it seems that
there
in one of the fields (surname) they want X'7D' EBC (') to be
translated
as X'20' ASC (space)... I'm sure there is a Very Good Reason for this
but
I believe I can get DFSORT to deal with it using ALTSEQ, viz.
OPTION COPY
ALTSEQ CODE=(7D40)
OUTFIL FNAMES=SORTOUT,
OUTREC=(1:1,18,19:19,16,TRAN=ALTSEQ,35:35,5966)
... to create an &&TEMP with X'40' EBC in the right place which is
then
used as input instead of NODE1.NODE2.EBCDIC.DATA.
Thanks again!
DD
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
