HP Data Entry and Forms Management System (VPLUS) Reference Manual (32209-90024)

Appendix A 433
SAMPLE PROGRAMS
COBOL
05 WINDOWENH PIC S9(4) COMP VALUE 0.
05 MULTIUSAGE PIC S9(4) COMP VALUE 0.
05 LABELOPTIONS PIC S9(4) COMP VALUE 0.
05 CFNAME PIC X(16) VALUE SPACES.
05 NFNAME PIC X(16) VALUE SPACES.
05 REPEATAPP PIC S9(4) COMP VALUE 0.
05 FREEZEAPP PIC S9(4) COMP VALUE 0.
05 CFNUMLINES PIC S9(4) COMP VALUE 0.
05 DBUFLEN PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 LOOKAHEAD PIC S9(4) COMP VALUE 0.
05 DELETEFLAG PIC S9(4) COMP VALUE 0.
05 SHOWCONTROL PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 PRINTFILENUM PIC S9(4) COMP VALUE 0.
05 FILERRNUM PIC S9(4) COMP VALUE 0.
05 ERRFILENUM PIC S9(4) COMP VALUE 0.
05 FORMSTORESIZE PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 NUMRECS PIC S9(8) COMP VALUE 0.
05 RECNUM PIC S9(8) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 TERMFILEN PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 FILLER PIC S9(4) COMP VALUE 0.
05 RETRIES PIC S9(4) COMP VALUE 0.
05 TERMOPTIONS PIC S9(4) COMP VALUE 0.
05 ENVIRON PIC S9(4) COMP VALUE 0.
05 USERTIME PIC S9(4) COMP VALUE 0.
05 IDENTIFIER PIC S9(4) COMP VALUE 0.
05 LABELINFO PIC S9(4) COMP VALUE 0.
01 FIELDINFO.
05 NUM-ENTRIES PIC S9(4) COMP.
05 ENTRY-LEN PIC S9(4) COMP.
05 FORM-NAME PIC X(16).
05 FIELD-ENTRY OCCURS 3 TIMES.
10 FIELD-NAME PIC X(16).
10 SCREEN-ORDER PIC S9(4) COMP.
01 FIELDSPECS.
05 SPEC-ENTRY OCCURS 3 TIMES.
10 FIELD-ID PIC S9(4) COMP.
10 CHANGE-TYPE PIC S9(4) COMP.
10 CHANGE-SPEC PIC X(4).
01 DATABUF PIC X(200).
01 DATABUFLEN PIC S9(4) COMP.
01 DONE-WITH-TRANSACTIONS PIC X.