Whats the answer for this SUBROUTINE program

maheshk84 · New User Joined: 04 Jan 2006 Posts: 22 Location: Chennai

1) IN THE CALLING PROGRAM I USED,

CALL SUB1 USING DD MM YY .

DD, MM, YY ARE DESCRIBED AS PIC 9(2).

IN THE CALLED PROGRAM,

PROCEDURE DIVISION USING DATE.

DATE IS DESCRIBED AS PIC 9(6) WHICH IS JUST A DATA ITEM.

WILL THE VALUE OF DD,MM,YY GET PASSED TO DATE ?

2)

IN THE CALLING PROGRAM I USED,

CALL SUB1 USING DD MM YY .

DD, MM, YY ARE DESCRIBED AS PIC 9(2).

IN THE CALLED PROGRAM,

WHETHER THESE DATA ITEMS SHOULD CORRESPOND TO DATA

ITEMS IN LINKAGE SECTION OR DATA ITEMS USED IN THE PROCEDURE

DIVISION USING PHRASE ?

LINKAGE SECTION.

77 DD PIC 9(2).

77 MM PIC 9(2).

77 YY PIC 9(2).

(OR)

PROCEDURE DIVISION USING DD MM YY .

WHICH OF THE ABOVE IS NECESSARY ?

DavidatK · Posted: Mon Jan 09, 2006 8:49 pm

Good Monday maheshk84,

The answers to Q#1 are: NO, Maybe, But you won?t like it.

NO ? For each using and linkage 01 in the Called program you need to have a corresponding argument in the calling program. The pointers for the linkage 01?s are set to the working storage area in the calling programs working storage.

The linkage section PIC 9(6) will look at 6 contiguous bytes from the storage pointer. If the DD,MM,YY are not in contiguous storage it will not pick up the date you expect.

Maybe ? If the DD,MM,YY are in contiguous storage the linkage PIC 9(6) will pick up the date, but this is dangerous.

But you won?t like it ? When the Calling program calls the subroutine with augments, the location of the NSI (Next Sequential Instruction) is based on the number of arguments in the argument list. If the Calling and Called programs do not match, the Called program will return control to the incorrect address in the Calling program.

The answer to Q#2. You need both, they must correspond to each other. i.e. the first 01 in the linkage section MUST correspond the first USING on the PROCEDURE DIVISION, the second to the second, etc. AND they must correspond to the arguments in the Calling program.