IDENTIFICATION  DIVISION.

       PROGRAM-ID.     ZZZ.
       DATE-COMPILED.

       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.

       SOURCE-COMPUTER. IBM.
       OBJECT-COMPUTER. IBM.

       INPUT-OUTPUT SECTION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01  ZZZ-CSECT.
         03  FOO.
           05  FILLER                       PIC X(725) VALUE SPACES.

         03  BAR REDEFINES FOO.
           05  NMB                          PIC X(725).

         03  BAR-DEF-1 REDEFINES BAR.
           05  FILLER                       PIC X(725).

         03  UID1                           PIC X(9).


       LINKAGE SECTION.

       01  L-SML-PAR-1                      PIC X(4096).

       PROCEDURE DIVISION USING L-SML-PAR-1.

       MAIN                           SECTION.

       QUIT-PROGRAM SECTION.
           GOBACK.