==================== STL (MAP) =================================================
     JTE.IBS
     
     USED TO PRODUCE A CSV FILE OR DRIVER FILE FOR REPORT
--------------------------------------------------------------------------------     
     LENGTH 500 & LOCAL DATA$                             
--------------------------------------------------------------------------------     
JTESTL: MAP

0400 FORMAT DATA$
--------------------------------------------------------------------------------
     stlClear(JTESTL)
--------------------------------------------------------------------------------     
     WRITE (#,0300)
     INQUIRE (#,0400)
     stlSet(JTESTL SORTKEY$ DATA$)
--------------------------------------------------------------------------------     
     LET TOTREC = stlSize(JTESTL)                           ! RECORDS IN STL
--------------------------------------------------------------------------------     
     stlBegin(JTESTL)                                       ! STL BOF     
--------------------------------------------------------------------------------     
     LET DATA$ = stlRead(JTESTL)
     WRITE (#,0400)
     INQUIRE (#,0300)
--------------------------------------------------------------------------------         
     stlNext(JTESTL) EXCP = EST80                           ! ADVANCE STL POINTER
     
================================================================================
     JCC.IBS
     
     USED TO PRODUCE TWO STL FILES THAT ARE ACCUMULATOR FILES THAT GET EXPORTED
     AS TXT/CSV     
--------------------------------------------------------------------------------     
     LENGTH 500 & LOCAL DATA$
--------------------------------------------------------------------------------     
JCC1STL: MAP

JCC2STL: MAP

1300 FORMAT DATA$
--------------------------------------------------------------------------------
     stlClear(JCC1STL)
     stlClear(JCC2STL)
--------------------------------------------------------------------------------
     WRITE (#,1100)
     INQUIRE (#,1300)
     stlSet(JCC2STL JCC2KEY$ DATA$)
     
     WRITE (#,1100)
     INQUIRE (#,1300)
     stlSet(JCC1STL JCC2KEY$ DATA$)
--------------------------------------------------------------------------------
     LET DATA$ = stlGet(JCC2STL, JCC2KEY$, EXCP = A2T80)    ! E50
     WRITE (#,1300)
     INQUIRE (#,1100)
     
     WRITE (#,1100)
     INQUIRE (#,1300)
     stlSet (JCC2STL, JCC2KEY$, DATA$)
--------------------------------------------------------------------------------
     LET DATA$ = stlGet(JCC1STL, JCC2KEY$, EXCP = A1T80)    ! E50
     WRITE (#,1300)
     INQUIRE (#,1100)
     
     WRITE (#,1100)
     INQUIRE (#,1300)
     stlSet (JCC1STL, JCC2KEY$, DATA$)
--------------------------------------------------------------------------------
     LET TOTREC = stlSize(JCC2STL)                          ! RECORDS IN STL
--------------------------------------------------------------------------------
     stlBegin(JCC2STL)                                      ! STL BOF
--------------------------------------------------------------------------------
     LET DATA$ = stlRead(JCC2STL)
     WRITE (#,1300)
     INQUIRE (#,1100)
--------------------------------------------------------------------------------     
     stlNext(JCC2STL) EXCP = CTT80                          ! ADVANCE STL POINTER
--------------------------------------------------------------------------------
     LET TOTREC = stlSize(JCC1STL)                          ! RECORDS IN STL
--------------------------------------------------------------------------------
     stlBegin(JCC1STL)                                       ! STL BOF
--------------------------------------------------------------------------------
     LET DATA$ = stlRead(JCC1STL)
     WRITE (#,1300)
     INQUIRE (#,1100)
--------------------------------------------------------------------------------     
     stlNext(JCC1STL) EXCP = CTY80                          ! ADVANCE STL POINTER
================================================================================