Joined: 15 Dec 2005 Posts: 72 Location: RALEIGH NC, USA
I have input record and want to reformat the FIRST-NAME field to remove the blanks between FIRST-NAME and INITIAL. Everything else should remain in teh same position.
We do not have the SQZ option so I would prefer to use OUTREC if possible...as I'm just learning that option
INPUT LRECL = 188 RECFM=FB
00002JAMES AMONG WILKERSON OB/GYN
00003HUGH JGRANT USE # 139410
00006JOE CELLINGTON KERNODLE CLINIC
Output to hopefully look like this LRECL = 188 RECFM=FB
DO00002JAMES A MONG WILKERSON OB/GYN
DO00003HUGH J GRANT USE # 139410
DO00006JOE C ELLINGTON KERNODLE CLINIC
I'm just learning OUTREC, but do not know how to remove blanks/spaces
and so on
Joined: 23 Nov 2006 Posts: 19270 Location: Inside the Matrix
If this is something you need soon, i'd suggest putting together a small program to do this. I'm not sure that OUTREC will do what you want. Also, consider that when there is any additional requirement, you may need to write code then.
You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use DFSORT's SQZ function. If you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free).
You could probably do the same thing with a lot of IFTHEN statements, but it would be better to get your System Programmer to install the PTF so you can use SQZ.