* ------------------------------------------------------------- *
       IDENTIFICATION DIVISION.
      * ------------------------------------------------------------- *
       PROGRAM-ID. USERID.
       AUTHOR. Kevin Ferguson.
       INSTALLATION. Abbydale Systems LLC.
      * ------------------------------------------------------------- *
       ENVIRONMENT DIVISION.
      * ------------------------------------------------------------- *
       INPUT-OUTPUT SECTION.
      * ------------------------------------------------------------- *
       DATA DIVISION.
      * ------------------------------------------------------------- *
       WORKING-STORAGE SECTION.
       01 USER-IDENT           PIC X(8).
      * ------------------------------------------------------------- *
       LINKAGE SECTION.
      * ------------------------------------------------------------- *
       01  CVT-ADRS                     USAGE IS POINTER.
       01 PSA.
          05 FILLER     PIC X(16).
          05 CVTADDR    POINTER.
          05 FILLER     PIC X(520).
          05 PSATOLD    POINTER.
          05 FILLER     PIC X(4).
          05 PSAAOLD    POINTER.
       01 ASCB.
          05 FILLER     PIC X(108).
          05 ASCBASXB   POINTER.
       01 ASXB.
          05 FILLER     PIC X(200).
          05 ASXBSENV   POINTER.
       01 ACEE.
          05 FILLER     PIC X(21).
          05 USER-ID    PIC X(8).
      * ------------------------------------------------------------- *
       PROCEDURE DIVISION.
      * ------------------------------------------------------------- *
       A-MAIN SECTION.
      * ------------------------------------------------------------- *
      *    Address PSA
           SET ADDRESS OF PSA TO NULL.
      *    Address ASCB
           SET ADDRESS OF ASCB TO PSAAOLD IN PSA.
           SET ADDRESS OF ASXB TO ASCBASXB IN ASCB.
           SET ADDRESS OF ACEE TO ASXBSENV IN ASXB.
           DISPLAY 'Userid       = ' USER-ID
           STOP RUN.