HP3000-L Archives

October 2013, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Cobol: VPLUS/COBOL
From:
Michael Anderson <[log in to unmask]>
Reply To:
Michael Anderson <[log in to unmask]>
Date:
Tue, 22 Oct 2013 23:03:18 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (62 lines) 
Janet, Good point!

Also try running ENTRY.PUB.SYS to access the form, verify the file and 
form names that way.



On 10/22/2013 10:58 PM, janet hiller wrote:
> 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 *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2