Re: Sample program using STL Container (MAP)


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]

Posted by Grant Foraker on August 22, 2018 at 10:04:05:

In Reply to: Re: Sample program using STL Container (MAP) posted by Barbara Brazil on August 22, 2018 at 09:31:11:

Put the EXCP where it belongs. But I'm getting an E50 instead of the expected E32 on the stlGet.

===============================================================
AccumulateJCC2Totals:
IF (JARDATE$ LT DATEBEG$) OR (JARDATE$ GT DATEEND$) GOTO A2T90 ! OUT OF DATE RANGE
!------------------- 08/22/2018 ------------------------------------------------
LET JCC2KEY$ = JDJOB$ + JXAITEM$ + JXMITEM$ + JXITEM$
!!!!! INQUIRE (22,1100) KEY = JCC2KEY$, EXCP = A2T80
LET DATA$ = stlGet(JCC2STL, JCC2KEY$, EXCP = A2T80)
WRITE (#,1300)
INQUIRE (#,1100)
!-------------------------------------------------------------------------------
IF CANCEL$ EQ 'Y' GOTO A2T90 ! USER CANCELLED REPORT
A2T10:
GOSUB UpdateWorkTotals
!------------------- 08/22/2018 ------------------------------------------------
!!!!! WRITE (22,1100) KEY = JCC2KEY$
WRITE (#,1100)
INQUIRE (#,1300)
stlSet (JCC2STL, JCC2KEY$, DATA$)
!-------------------------------------------------------------------------------
GOTO A2T90
A2T80:
LET MBMSG$ = STR(EXCP)
MSGBOX MBMSG$

IF EXCP NE 32 GOTO ProgramError
GOSUB ZeroWorkFields
GOTO A2T10
A2T90:
RETURN




Follow Ups:



Post a Followup

Name:
E-Mail:

Subject:

What is the name of the main Signature System's Product?  

Comments:

Optional Link URL:
Link Title:
Optional Image URL:

You may attach up to 5 files to your followup (see below):





Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.


[ Follow Ups ] [ Post Followup ] [ Signature.net Forum ]