High-Level Screen Management Intrinsic Library Reference Manual (32424-90002)

C- 14

INTEGER*2 ARRAY_INDEX

! Init Unused Parm which is used whenever intrinsic input

! parameter is not active.

UNUSED_PARM = 0

! Init Comarea to all zeros.

ARRAY_INDEX = 1

DO WHILE (ARRAY_INDEX.LE.75)

COMAREA(ARRAY_INDEX) = 0

ARRAY_INDEX = ARRAY_INDEX + 1

END DO

! Set Expected HP32424A Version.

EXPECTEDVUF = "A.00.00 "

! Set Language for FORTRAN-77.

CALLPROTOCOL = 210

! Set Comarealen for 300 bytes.

COMAREALEN = 300

! Open the Transaction File:

OPEN (UNIT = 10,

+ FILE = 'PAYTXN',

+ ACCESS = 'DIRECT',

+ RECL = 200,

+ FORM = 'UNFORMATTED',

+ STATUS = 'NEW',

+ ERR = 110)

GOTO 120

110 STOP_NOW = 1

ERROR_LOCATION =

+ "**** Routine: Setup For Work - Open Transaction File"

MSGAREA =

+ "**** File open failed!"

! Open the Forms File.

120 IF (STOP_NOW.EQ.0) THEN

FFNAME = "PAYROLL.WORK.ADMIN"

CALL HPDOPENFORMS (GLOBALPAK,

+ RETURNPAK,

+ FORMSFILE)

IF (RETURNSTATUS.NE.0) THEN

STOP_NOW = 1

ERROR_LOCATION =

+ "**** Routine: Setup For Work - Forms File Open"

CALL UNBLOCK_MSG

END IF

! Open the Terminal.

IF (STOP_NOW.EQ.0) THEN