MVSFORUMS.com

[rathanraya]

Hi Friends,

I have expanded a file of LRECL=400 to LRECL=528. I want to initialize all numeric fields with zeros. The data types of all the numeric fields are different. Could some one give me the sort card, to initialize the following structure.

05 STRUCTURE 1- 400 ----------- PIC X(400).
05 New-Data.
10 filler ----------- PIC X(01).
10 DOB ----------- PIC 9(08.
10 Numeric ----------- PIC S9(05).
10 filler ----------- PIC X(02).
10 HOURLY-WAGE ----------- PIC 9(03)V99.
10 MONTHLY-BENEFITS ----------- PIC S9(05)V99.
05 Filler ----------- PIC X(100).

Thanks for your help in advance.

Regards,
Raya

[souvik_225]

If this is a COBOL program in which u have defined this , then use the VALUE clause to intialize the variables(do it if this is in the working storage only and not FD section) ....

for runtime initialization , use INITIALIZE New-data.

BTW , how are u initializing STRUCTURE ???
_________________
Thanks and Regards,
Souvik Upadhyay

[kolusu]

Ratanraya,

Assuming that your input file is 400 bytes and you want to expand it to 528 bytes then the following JCL will give you the desired results.

DOB, NUMERIC, HOURLY-WAGE, MONTHLY-BENEFITS are all numeric fields which are of ZD format in sort. To initialize them you just populate them with zeroes.

DOB starts at pos 402 for 8 bytes which of zd format. To initialize it we code 8c'0'
NUMERIC starts at pos 410 for 5 bytes which of ZD format. To initialize it we code 5c'0'
HOURLY-WAGE starts at pos 417 for 5 bytes which is of ZD format. To initialize it we code 5c'0'
MONTHLY-BENEFITS starts at pos 422 for 7 bytes which is of ZD format. To initialize it we code 7c'0'

I have initialized the filler values with spaces(x)

[Frank Yaeger]

Note that if you have DFSORT R14 PTF UQ90053 (Feb, 2003), you can use INREC, OUTREC or OUTFIL OUTREC to initialize any field to zeros of the correct format as follows:

[rathanraya]

Hi Kolusu & Frank,

Sorry for late reply