HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)
444 AppendixA
SAMPLE PROGRAMS
FORTRAN 77
FORTRAN 77
$CONTROL list on, tables on
!
! This application collects employee payroll deduction
! transactions and places the edited transactions into
! a file.
!
! For this application: Enter key = edit and file
! transaction;
!
! f8 = exit application;
!
! all other f keys = redo transaction.
!
! Each transaction entered by the operator is subjected to the
! data edits embedded within the input form.
!
! The application continues to collect transactions until either
! the operator signals to exit or a system error is detected.
!
$TITLE ’ Main Program’
!***************************************************************!
! !
! Main Program !
! !
!***************************************************************!
!
PROGRAM FTNEXMP
!
IMPLICIT NONE
!
COMMON /COMO1/ COMAREA
COMMON /COMll/ STOP_NOW
COMMON /COM12/ DONE WITH TXNS
COMMON /COM13/ NBR_TXN_COLLECTED
COMMON /COM21/ FIEEDINFO
COMMON /COM22/ INFOBUFLEN
COMMON /COM81/ MSGBUF
COMMON /COM82/ MSGBUFLEN
COMMON /COM83/ ERRMSGLEN
COMMON /COM91/ ERROR_LOCATION
!
INTEGER*2 COMAREA(60)
INTEGER*2 STOP_NOW
INTEGER*2 DONE_WITH_TXNS
INTEGER*2 NBR_TXN_COLLECTED
INTEGER*2 FIELDINFO(37)
INTEGER*2 INFOBUFLEN
CHARACTER*150 MSGBUF