Re: Sample program using STL Container (MAP)

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:

• Re: Sample program using STL Container (MAP) Barbara Brazil 10:32:15 08/22/18 (2)
  • Re: Sample program using STL Container (MAP) Grant Foraker 10:40:38 08/22/18 (1)
    • Re: Sample program using STL Container (MAP) Barbara Brazil 10:48:53 08/22/18 (0)

Post a Followup

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