Subject: | |
From: | |
Reply To: | |
Date: | Tue, 22 Oct 2013 23:36:51 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
I am trying to use VPLUS with COBOL (on the Charon HP3000 emulator.) I have used the COBOL example in the Sample Programs section of the HP Data Entry and Forms Management System reference manual with changes to reflect my usage: I have a forms file (TESTFILE) with one form contained in it viz ADDRFORM.
In the COBOL program I have made changes to the File Section and Working Storage Section as appropriate and changed the following lines in the Procedure Division:
....
move "testfile" to filename (was "payroll.work.admin")
call "VOPENFORMF" using comarea
filename
..
move "addrform" to form-name of fieldinfo (was "deduction")
and modified the fieldinfo and fieldspecs definitions to my usage.
As can be seen from the error message below the problem appears to be in this paragraph:
A-500-COLLECT-TRANSACTIONS.
* ***** Setup for and get transaction data entry form.
MOVE ZERO TO REPEATAPP OF COMAREA
FREEZEAPP OF COMAREA
move "addrform" to nfname of comarea
CALL "VGETNEXTFORM" USING COMAREA.
IF CSTATUS OF COMAREA NOT = 0
MOVE "Y" TO STOP-NOW
MOVE
"***** Paragraph: A-500-COLLECTION-TRANSACTION - Form Retrieval"
TO ERROR-LOCATION
PERFORM Z-100-GET-ERROR-MESSAGE.
.....
**** Transaction entry facility detected system error at:
***** Paragraph: A-500-COLLECTION-TRANSACTION - Form Retrieval
**** The error message returned is:
**** Can't find the next form. (FSERR 172)
As I only have 1 form I'm a bit confused by this message particularly, as far as I can see, I'm not doing anything fundamentally different from the example in the manual.
Enlightenment welcomed :-)
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|