DEPLEN

Change length of window dependency index

Source

S.DEPEND

CALL DEPLEN USING Window Length

Parameters

Window

The two character is of the window whose dependency length is to be changed.

Length

The new length to be used for the dependency index

Copybooks

None

Other Requirements

None

Purpose

The new length to be used for the dependency index

Exceptions

None

Example

01 K-RTKEY
   03 K-COID		PIC X(2)
   03 K-SUCD		PIC X(7)
   03 K-STAT		PIC X
WINDOW W1 USING RTID-A DEPENDENT ON (K-COID, K-SUCD, K-STAT)
...
ENDWINDOW
PROCEDURE DIVISION

MOVE COCOID TO K-COID
MOVE RCSUCD TO K-SUCD
MOVE "C"	TO K-STAT
ENTER WINDOW W1	        * Display all RT records with status "C" for
ON EXCEPTION		* selected company/supplier.
END
		
CALL DEPLEN USING W1 9
ENTER WINDOW W1	        * Window is now only dependent on first two 
ON EXCEPTION 		* K- fields, i.e. show all RT records for
END			* company/supplier regardless of status.