Converting all PD Fields in a dataset to ZD.

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

Hi,

I have a PS dataset with below specification,
Record format: FB
Record length: 5609
Block size: 16827

It has around 50 PD fields (probably more than that) at different positions.
I want to convert all those PD fields to ZD.

One way to do this is, providing all PD field's positions in the OUTREC FIELDS. But it is very tough to mention all the PS fields positions.

Is there any other way??

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

as far as I know, NO.

Frank Yaeger · Posted: Thu May 17, 2007 8:06 pm

You could create a layout of the record using DFSORT Symbols and then give the symbol names rather than the positions. For complete information on using DFSORT Symbols, see:

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CA20/7.0?DT=20060615185603

If you have a COBOL Copy book for the record layout, you can create the DFSORT Symbols automatically. For details, see the "Create DFSORT Symbols from COBOL COPYs" Smart DFSORT Trick at:

www.ibm.com/servers/storage/support/software/sort/mvs/tricks/

dick scherrer · Posted: Fri May 18, 2007 2:58 am

Hello,

For a record that size, i imagine there is a COBOL copybook.

If this were my task, i'd clone the copybook with the packed fields to another with the same field names, but with zoned pic's rather than packed.

Then i'd code a simple read, move corresponding, write bit of code and be done with it.

Using field names is a lot smoother than keeping track of displacement/length in bytes for the whole record.

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

Hi Dick,

Can we move Group Item which contains Elemenrary level Packed fields to another Group Item??

It is giving SOC4 Abend, if I use MOVE CORRESPONDING.

William Thompson · Posted: Tue May 22, 2007 3:29 pm

A group move will not do what you want.
The 0C4 says you are referencing storage you don't own, can you post a small example of how you are defining the source and destination for the move corresponding?

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

Hi,

For example...

My Source Copybook contains below fields,

01 INPUT-REC.
02 VAR1.
05 VAR3 PIC XX.
05 VAR4 PIC XX.
05 VAR5 PIC XX.
02 VAR 6.
05 VAR7 PIC S9(7)V99 COMP-3.
05 VAR8 PIC X.
05 VAR9 PIC S9(7) COMP-3.

Destination Copybook contains below fields,

01 OUTPUT-REC.
02 VAR1.
05 VAR3 PIC XX.
05 VAR4 PIC XX.
05 VAR5 PIC XX.
02 VAR 6.
05 VAR7 PIC S9(7)V99.
05 VAR8 PIC X.
05 VAR9 PIC S9(7).

In Procudere Division,

MOVE CORR INPUT-REC TO OUTPUT-REC.

William Thompson · Posted: Tue May 22, 2007 5:26 pm

Looks reasonable, where are "INPUT-REC" and "OUTPUT-REC" defined, FD or WS?
Is there any additional information with the S0C4?

dick scherrer · Posted: Tue May 22, 2007 7:07 pm

Hello,

Does this program only have the 2 file definitions, reads/writes, and the move corr?

I would not expect that to cause an 0c4.

Are you by chance using an internal sort in the program?

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

Yes Dick,

My program have only 2 file definitions (one for Input file and other for Output file), Read the Input file, Move Corr to Output file rec and write Output file. This is all my program does.

It doesnot contain any internal SORT.

William,

INPUT-REC & OUTPUT-REC are defined in FD.

This is message displayed in SYSOUT.
"CEE3204S The system detected a protection exception (System Completion Code=0C4).

William Thompson · Posted: Tue May 22, 2007 9:00 pm

Splurge a little, post the COBOL code......

dick scherrer · Posted: Wed May 23, 2007 12:40 am

Hello,

Posting the code would be helpful.

This is a stand-alone batch job run thru jcl?

Does it abend right away or after some amount of data has been processed (if you specify (,catlg,catlg) for the output file, you can see how far it processed before abending).

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

HI,

My Prgram is ,

Code:

IDENTIFICATION DIVISION.
PROGRAM-ID. PRGPD2ZD.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT EPAY-IN ASSIGN TO EPAYIN.
SELECT EPAY-OUT ASSIGN TO EPAYOUT.

DATA DIVISION.
FILE SECTION.

FD EPAY-IN
RECORDING MODE IS F
LABEL RECORDS ARE STANDARD.
COPY CFEUNETB.

FD EPAY-OUT
RECORDING MODE IS V
LABEL RECORDS ARE STANDARD.
COPY SRISCOPY.

WORKING-STORAGE SECTION.
77 EOF PIC X VALUE 'N'.

PROCEDURE DIVISION.
1000-MAIN-PARA.
OPEN INPUT EPAY-IN
OUTPUT EPAY-OUT.
PERFORM 2000-READ-PARA
UNTIL EOF = 'Y'.
IF EOF NOT = 'Y'
PERFORM 2100-WRITE-PARA
END-IF
CLOSE EPAY-IN
EPAY-OUT.
STOP RUN.

2000-READ-PARA.
READ EPAY-IN
AT END MOVE 'Y' TO EOF.

2100-WRITE-PARA.
MOVE CORR TOPS-EXTRACT-EMPLOYEE-INFO
TO EPAY-OUT-REC.
WRITE EPAY-OUT-REC.

Copybook 'CFEUNETB' is of lenth 5609 bytes, contains some Comp-3 fields. Copybook 'SRISCOPY' is just a copy of 'CFEUNETB', where all Comp-3 fields are defined as Normal ZD fields.

My JCL is:

//TSUA6UIS JOB ('META0102'),CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
//*
//JOBLIB DD DSN=TSUA6UI.LOAD,DISP=SHR
//STEP1 EXEC PGM=PRGPD2ZD
//SYSOUT DD SYSOUT=*
//EPAYIN DD DSN=TSUA6UI.EMPCORE.DATA,DISP=SHR
//EPAYOUT DD DSN=TSUA6UI.EMPCORE.DATA1,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(10,3),RLSE)
/*

It got abended right away, I mean no data has been processed.

William Thompson · Posted: Fri May 25, 2007 3:48 pm

Code works better than color.
Why did the recfm change from fixed to variable?
Stick a display in after the open and before the perform to see if you survived the open.
Your program logic is slightly lacking, try it this way:

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

Thanks a lot William for correcting me.

I have put a DISPLAY Statement after OPENing the files.
However, the DISPLAY Statement is not execueted. There is no message from program in SYSOUT.

Still am getting the same '0C4' abend.

William Thompson · Posted: Fri May 25, 2007 8:14 pm

Why did the recfm change from fixed input to variable output?

dick scherrer · Posted: Fri May 25, 2007 9:35 pm

Hello,

As an experiment, please add another DISPLAY 'ENTERING PROCEDURE DIVISION' as the first statement in the procedure division. Follow that DISPLAY with a few DISPLAY ' ' statements. If this display is not in sysout, you may have a problem with how the module was link edited.

You might look at the output of the compile for any warnings - things that are not an error may still cause run-time problems.

After your job executes, look at each of the jes outputs and see if there is any diagnostic information.

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

Hi,

I have done slight modifications to my code in Procudure division.

murmohk1 · Posted: Mon May 28, 2007 12:22 pm

dick scherrer · Posted: Mon May 28, 2007 4:20 pm

Hello,

You are missing periods at multiple places in the code - this should not cause an 0c4, but should be corrected.

What messages are in the output from the link edit? The link edit does specify the correct module name(s)?

If the 0c4 is raised on the open, i doubt that the file-status check/display will be executed.

Please split the open into 2 separate statements and issue a DISPLAY after each.

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

Hello,

0C4 problem has been solved. It was the problem while Link editing.

However,

dick scherrer · Posted: Mon May 28, 2007 10:54 pm

Hello,

If you are getting an s0c7, most likely either the data is invalid or the input record layout is invalid.

Anuj Dhawan · Posted: Tue May 29, 2007 12:23 pm

Jonnala,

Before writing to output, initialize the output record. Try to use below code, it should work.

Jonnala · New User Joined: 22 Sep 2006 Posts: 12

Hi Anuj, No change in the result.

dick scherrer · Posted: Tue May 29, 2007 7:11 pm

Hello,

Initializing the receiving area for a move will not correct an 0c7 when there is bad input data to the move.

Please check the contents of each field against the "sending" data layout.