MACRO -- $#JCT -- JCT RESIDENCE MANAGEMENT                     AN002000
&NAME    $#JCT &OPTN,&REFRESH=NO                                    R41 AN004000
         AIF   ('&OPTN' NE 'READ').JCT01 BRANCH IF NOT READ             AN006000
&NAME    L     R15,$JCTRDR         LOAD JCT READER BASE                 AN008000
         AIF   ('&REFRESH' NE 'YES').JCTBALR  BR IF NOT REFRESH     R41 AN010000
         BAL   R14,0(,R15)         BR TO READ LATEST JCT            R41 AN010200
         MEXIT                                                      R41 AN010400
.JCT01   ANOP                                                           AN012000
         AIF   ('&OPTN' NE 'WRITE').JCT02 BRANCH IF NOT WRITE           AN014000
&NAME    L     R15,$JCTWTR         LOAD JCT WRITER BASE                 AN016000
         AGO   .JCTBALR                                                 AN018000
.JCT02   ANOP                                                           AN020000
         AIF   ('&OPTN' NE 'FREE').JCT03 BRANCH IF NOT FREE             AN022000
&NAME    L     R15,$JCTFRE         LOAD JCT FREE BASE                   AN024000
         AGO   .JCTBALR                                                 AN026000
.JCT03   ANOP                                                           AN028000
         MNOTE 8,'OPTION &OPTN INVALID - (READ, WRITE, OR FREE)'        AN030000
         MEXIT                                                          AN032000
.JCTBALR ANOP                                                           AN034000
         BALR  R14,R15             BRANCH TO JCT RESIDENCE MANAGEMENT   AN036000
         MEND                                                           AN038000