Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

IDENTIFICATION DIVISION.
*
* THIS IS THE VET-ROUTINE ENTRY POINT AND MUST REFLECT THE
* REAL NAME OF THE VET-ROUTINE - I.E. THE 'XXX' MUST BE
* REPLACED BY A 3 DIGIT NUMBER, E.G. VET011.
*
PROGRAM-ID.   VETXXX.
*
*
ENVIRONMENT DIVISION.
*
*
DATA DIVISION.
LINKAGE SECTION.
*
* USER-DATA CONTAINS THE DATA READ FROM THE SCREEN. IT IS
* AVAILABLE TO THIS SUBPROGRAM FOR EITHER READ (FOR VERIFICATION)
* OR WRITE (FOR MODIFICATION). THE PICTURE MUST REFLECT THE 
* SCREEN IMAGE.
*
01  USER-DATA     USAGE IS DISPLAY-7      PICTURE IS X(XX).
*
* ERROR-STATUS IS THE RETURN STATUS CODE FROM THIS SUBPROGRAM.
* IT MAY BE SET TO ANY OF THE FOLLOWING:
*   ERROR-STATUS =  1     REWRITE THE FIELD ON THE SCREEN
*   ERROR-STATUS =  0     NORMAL RETURN
*   ERROR-STATUS = -1     REWRITE FIELD AND ISSUE MESSAGE
*   ERROR-STATUS = -2     ISSUE MESSAGE ONLY
*   ERROR-STATUS = -3     ISSUE MESSAGE AND REREAD THE FIELD
*   ERROR-STATUS = -4     ISSUE MESSAGE AND FORCE CARRIAGE RETURN (END IND =8)
*
01  ERROR-STATUS  USAGE IS COMPUTATIONAL  PICTURE IS S9.
*
* ERROR-MESSAGE IS AVAILABLE FOR SENDING MESSAGES TO THE USER
* VIA THE ERROR LINE OF THE FORM. IN ORDER FOR THE MESSAGE TO
* BE SENT THE ERROR-STATUS MUST BE NEGATIVE.
*
01  ERROR-MESSAGE USAGE IS DISPLAY-7      PICTURE IS X(80).
*
* FIELD-NAME CONTAINS THE NAME OF THE FIELD WHOSE DATA HAS BEEN
* PLACED IN USER-DATA. THIS CAN BE USED TO DETERMINE THE SPECIFIC
* TESTING REQUIRED.
*
01  FIELD-NAME	  USAGE IS DISPLAY-7	PICTURE IS X(30).
*
*
PROCEDURE DIVISION USING USER-DATA ERROR-STATUS ERROR-MESSAGE FIELD-NAME.
*
*
*
*
GOBACK.