MOve Hex values from one file to another file.

kapiltamrakar · New User Joined: 24 May 2009 Posts: 41 Location: Hyderabad

Hi all,
I have a below requirement.

I am reading a file which is having below layout.

FD FILE1.
01 FILE1-REC.
03 DATA-REC1 PIC 9(10).

after reading from file1 I am writing record to below file

FD FILE2.
01 FILE2-REC.
03 DATA-REC2 PIC 9(10).

In file1, If we are not having any data then 0 is written in file2.
I want to write same Hexadecimals values which are present in file1.
say for example if x'00' is present in file1 same should be written in file2.

Please Help. Thanks In advance.

Regards,
Kapil.

Nic Clouston · Posted: Mon Apr 04, 2011 2:17 pm

Use PIC X(n) where n is the field length

kapiltamrakar · New User Joined: 24 May 2009 Posts: 41 Location: Hyderabad

Hi Nic,
I cant use alpha numeric clause, the file1 is having the layout which is already given, i cant change the datatype here.

Thanks for your quick suggestion.

Regards,
Kapil.

dbzTHEdinosauer · Posted: Mon Apr 04, 2011 2:37 pm

????

WRITE FILE2-REC FROM FILE1-REC
END-WRITE

By the way, x'00' would be invalid for a PIC 9 field.

kapiltamrakar · New User Joined: 24 May 2009 Posts: 41 Location: Hyderabad

Hi Dick,
For some records in file1 we are not having any data for DATA-REC1, in this case in file2, 0 would be written, that is the problem. I want exactly same records in file 2 which are in file 1. for clerifying this i have given the above hex value example.

Thanks for your attention.

Regards,
Kapil.

Robert Sample · Posted: Mon Apr 04, 2011 2:49 pm

UmeySan · Posted: Mon Apr 04, 2011 4:23 pm

@kapiltamrakar

>> if you don't have data in file 1, you should not write anything to file 2.

You should not create File-2. One emty Dataset is enougth!

Nic Clouston · Posted: Mon Apr 04, 2011 4:41 pm

I think you mean that if you have no data in FILE1 then you need to write an indicator to FILE2. The best way to do this is to write a header and/or trailer record with date and number of records - 0 in this case. Whatever, what you write must be in a format that is acceptable to the program that is going to read FILE2.

Marso · Posted: Mon Apr 04, 2011 9:07 pm

rakesh1155 · New User Joined: 21 Jan 2009 Posts: 84 Location: India

Hi Kapil,

When you say X'00' is present for some records, it does NOT mean that the file1 doesnt have any data. It actually has data i.e. null values... its not numeric though.

As Mr Robert suggested:

Bill Woodger · Posted: Wed Apr 06, 2011 8:51 pm

Hi Kapil,

I can't understand what you want.

Could you put together some representative values on file1 and then show us how those would be reflected on file2, including anything generated for file2?

kapiltamrakar · New User Joined: 24 May 2009 Posts: 41 Location: Hyderabad

Hi all,
I apologize for late reply,
@Robert Sample:
I agree with you, but the record layout has been in use since last several years and we have to use the same one, other wise there may be inconsistency happen(say for future if any data will come in that field). That was the reason i was not preferring to change the layout.

@ UmeySan
The example which is have shown in the post was just for simplicity of the requirement, in actuals we have this prob in just one field of a 600 byte record. so we have to write the record.

@ Marso
IN this requirement, I wanted to have same data in file 2 which is in file 1 wheather it is Low values or any Numeric values. but if your file 1 is having low values and you are using simple write, the, in file two 0 gets written.

and I have used reference modification, for solving above prob, it is working fine now. I regret if any one of you have faced any inconvenience. Thanks for Your time and Patience.

Regards,
Kapil.

kapiltamrakar · New User Joined: 24 May 2009 Posts: 41 Location: Hyderabad

@ Bill Woodger,
I am posting below code, JCL, Input file,Output file and SYSOUT which may help you.
Code:

FILE SECTION.
FD FILE1.
01 FILE1-REC.
03 DATA-REC1 PIC 9(10).
FD FILE2.
01 FILE2-REC.
03 DATA-REC2 PIC 9(10).

WORKING-STORAGE SECTION.
01 WS-FS1 PIC 9(02).
01 WS-FS2 PIC 9(02).
01 WS-FILE-REC PIC X(80).
01 TEMP-REC1 PIC 9(10).
01 TEMP-REC2 REDEFINES TEMP-REC1 PIC 9(10) COMP.

PROCEDURE DIVISION.

PERFORM 1000-MAIN.
1000-MAIN.
OPEN INPUT FILE1.
OPEN OUTPUT FILE2.
DISPLAY 'BEFORE1'.
DISPLAY 'DATA-REC1', DATA-REC1.
DISPLAY 'DATA-REC2', DATA-REC2.
READ FILE1.
MOVE DATA-REC1 TO DATA-REC2.
DISPLAY 'AFTER'.
DISPLAY 'FILE1-REC', FILE1-REC.
DISPLAY 'FILE2-REC', FILE2-REC.
DISPLAY 'DATA-REC1', DATA-REC1.
DISPLAY 'DATA-REC2', DATA-REC2.
WRITE FILE2-REC.
CLOSE FILE1.
CLOSE FILE2.
STOP RUN.

JCL :

//JOBLIB DD DSN=XXXXXXX.MY.LOAD1,DISP=SHR
//*
//STEP010 EXEC PGM=FILEPGM
//DDF1 DD DSN=XXXXXXX.MY.TEST.INPUT,DISP=(MOD,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=10,BLKSIZE=800)
//DDF2 DD DSN=XXXXXXX.MY.TEST.OUTPUT,DISP=(MOD,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=10,BLKSIZE=800)
//SYSOUT DD SYSOUT=*
/*

INput file
EDIT XXXXXXX.MY.TEST.INPUT Columns 00001 00010
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001
****** **************************** Bottom of Data ****************************

OUTPUT file :

EDIT XXXXXXX.MY.TEST.OUTPUT Columns 00001 00010
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 0
****** **************************** Bottom of Data ****************************

Sysout:

BEFORE1
DATA-REC1
DATA-REC2 z3
AFTER
FILE1-REC
FILE2-REC 0
DATA-REC1
DATA-REC2 0

I hope it will Help you while understanding the prob.

Regards,
Kapil.

Bill Woodger · Posted: Wed Apr 06, 2011 9:36 pm

Kapil,

You are displaying a field in your input record before reading the first record and displaying a field in your output record before putting anything into it. The values at this time are pretty much rubbish. It doesn't so much matter that they are rubbish, just don't try to expect much before you read a record or put something in your output record.

I don't understand how you get "0" and 9 "something" from this program. 9 "something" then zero would make sense, as you have an unsigned field and you are probably using, knowingly or otherwise, some "sign fixing". Do the displays look exactly like that (the AFTER ones) on the SYSLIST? Or when you put them into the post did it remove a string of blanks?

kapiltamrakar · New User Joined: 24 May 2009 Posts: 41 Location: Hyderabad

Hi Bill,
I didn't do any modification while posting here.

Regards,
Kapil.

Bill Woodger · Posted: Wed Apr 06, 2011 11:49 pm

Hi Kapil,

Interesting. A couple of things. In your JCL you have DISP=(MOD,CATLG,DELETE). You might want to change those. When the step finishes, the system would attempt to catalog the file, which is already in the catalog. If you step fails, both your input and output files will be deleted automatically. You are not MODifying your input file, and probably not MODifying your output either. Have your input file as just SHR or OLD. Your output can be the same, unless you want to delete (IEFBR14 with DISP=(OLD,DELETE,DELETE) it each time and specify it as NEW.

In your little program, you can remove the BEFORE displays. They just don't mean anything. Or put them after the READ if you like.

I find it good to put ">" data-name "<" when DISPLAYing, so you see exactly the position/size in the field.

So like

kapiltamrakar · New User Joined: 24 May 2009 Posts: 41 Location: Hyderabad

Hi Bill,
Below is select Statement used in program.

FILE-CONTROL.
SELECT FILE1 ASSIGN TO DDF1
ORGANIZATION IS SEQUENTIAL
FILE STATUS IS WS-FS1.
SELECT FILE2 ASSIGN TO DDF2
ORGANIZATION IS SEQUENTIAL
FILE STATUS IS WS-FS2.

Regards,
Kapil.

Bill Woodger · Posted: Thu Apr 07, 2011 2:51 pm

'morning Kapil,

Can you change the second set of displays in your little program, and add the extra lines please.

Robert Sample · Posted: Thu Apr 07, 2011 3:07 pm

Your program is doing exactly and precisely what you told it to do:
1. There's no loop, so you only process one record.
2. Your MOVE DATA-REC1 TO DATA-REC2 takes the 10 bytes of spaces (or LOW-VALUES -- since you did not do a HEXADECIMAL display, we don't know for sure what is in DATA-REC1), moves them to DATA-REC2, then forces the last byte of DATA-REC2 to be unsigned. Forcing the value to be unsigned means the last byte now has a zero (x'F0') instead of space (x'40') or LOW-VALUES (x'00').
3. You should be using file status codes on every file, you should check for end of file before doing the move, and in general your code is very amateurish.