IBM Mainframe Forum

[longfall]

Hi All,

I am trying to pull data from a file with delimiter (;).
I could achieve this by using-
INREC PARSE=(%00=(ENDBEFR=C';',FIXLEN=8),%02=(FIXLEN=10)),
BUILD=(%00,%02)

Input-
X1234567;08/03/2023

Output-
X123456708/03/2023

Now I need to add, preceding zero to the first column, to make it of length 16-
for this I tried using
BUILD=(%00,UFF,M11,LENGTH=16,%02)
But as its alphanumeric filed the first byte is ignored-

Input-
X1234567;08/03/2023
X124123;08/03/2023

Output-
000000000123456708/03/2023
000000000012412308/03/2023

Exptect output-
00000000X123456708/03/2023
000000000X12412308/03/2023

Can someone guide me on this?

[sergeyken]

PLEASE!!!!!!

Learn how to format your messages, to allow other to understand something

Hi All,

I am trying to pull data from a file with delimiter (;).
I could achieve this by using-

Select all

INREC PARSE=(%00=(ENDBEFR=C';',FIXLEN=8),%02=(FIXLEN=10)),
         BUILD=(%00,%02)

Input-

Select all

X1234567;08/03/2023

Output-

Select all

X123456708/03/2023

Now I need to add, preceding zero to the first column, to make it of length 16-
for this I tried using

Select all

        BUILD=(%00,UFF,M11,LENGTH=16,%02)

But as its alphanumeric filed the first byte is ignored-

Input-

Select all

X1234567;08/03/2023
X124123;08/03/2023
 

Output-

Select all

000000000123456708/03/2023
000000000012412308/03/2023
 

Exptect output-

Select all

00000000X123456708/03/2023
000000000X12412308/03/2023

Can someone guide me on this?

You need simple thing, like this

Select all

INREC PARSE=(%00=(ENDBEFR=C';',FIXLEN=8),%02=(FIXLEN=10)),
      BUILD=(%00,JFY=(SHIFT=RIGHT,LENGTH=16,LEAD=C'000000000000'),
             %02)