Subject: | |
From: | |
Reply To: | |
Date: | Tue, 22 Oct 2013 23:58:37 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Is it possible that you have a version of the forms file in your current group.account that is empty?
You may want to fully qualify the forms file name(testfile.group.account) in your program to point to the forms file that contains the correct form.
Sent from my iPad
Janet Hiller ‗^..^‗
On Oct 22, 2013, at 11:36 PM, Paul Richards <[log in to unmask]> wrote:
> 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|