      ******************************************************
      * *** DOMAIN BUILDTDB PROGRAM - BUFFER SIZE IS LARGER*
      * ALL INPUT DATA IS PASSED AND RETURNED IN DATA      *
      * BUFFERS THEN WRITTEN TO AN OUTPUT FILE             *
      ******************************************************
      * THIS PROGRAM IS USED TO READ THE CMS DRG V38 RECORD*
      * AND CALL OO COBOL PROGRAM TO CALL THE JAVA PROJECT *
      * ALL BUFFERS THEN WRITTEN TO AN OUTPUT FILE         *
      * 02/19/2021                                         *
      ******************************************************
       IDENTIFICATION DIVISION.
       PROGRAM-ID. DRG381RN.
      ************************
      * ENV / DATA DIVISIONS *
      ************************
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER. IBM-370.
       OBJECT-COMPUTER. IBM-370.
      **********************************
      * INPUT OUTPUT LAYOUTS           *
      **********************************
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
      ************************
      * DISK INPUT           *
      ************************
           SELECT INPUT-FILE ASSIGN TO SYS020-DA-3380-INUSER
                ACCESS IS SEQUENTIAL
                FILE STATUS IS IN-STAT.
      ************************
      * DISK OUTPUT          *
      ************************
           SELECT OTPUT-FILE ASSIGN TO SYS020-DA-3380-OTUSER
                ACCESS IS SEQUENTIAL
                FILE STATUS IS OT-STAT.
      ************************
      * OPTIONAL FILE SELECT *
      * FOLLOW THIS AREA     *
      ************************
       DATA DIVISION.
       FILE SECTION.
      ************************
      * SAMPLE DISK INPUT    *
      ************************
       FD  INPUT-FILE
           LABEL RECORDS ARE OMITTED
           RECORDING MODE IS F
           RECORD CONTAINS 638 CHARACTERS.
       01  INPUT-RECORD.
           03 INPUT-REC-LAYOUT                   PIC X(638).
           03 CLAIM-INPUT-RECORD REDEFINES INPUT-REC-LAYOUT.
      ************************
      * CLAIM DATA RECORD    *
      ************************
                 07 CLAIM-AGE                    PIC X(03).
                 07 CLAIM-SEX                    PIC X(01).
                 07 CLAIM-DISCHARGE-STATUS       PIC X(02).
                 07 CLAIM-POA                    PIC X(01).
                 07 CLAIM-ADMIT-DATE             PIC X(08).
                 07 CLAIM-DISCHARGE-DATE         PIC X(08).
                 07 DIAG-CODES                   PIC X(200).
                 07 DIAG-CODES-R REDEFINES DIAG-CODES.
                    09 DIAG-CODE OCCURS 25 TIMES PIC X(08).
                 07 DIAG-CODES-R2 REDEFINES DIAG-CODES.
                    09 ADX                       PIC X(07).
                    09 ADX-POA                   PIC X(01).
                    09 PDX                       PIC X(07).
                    09 PDX-POA                   PIC X(01).
                    09 SDX01                     PIC X(07).
                    09 SDX01-POA                 PIC X(01).
                    09 SDX02                     PIC X(07).
                    09 SDX02-POA                 PIC X(01).
                    09 SDX03                     PIC X(07).
                    09 SDX03-POA                 PIC X(01).
                    09 SDX04                     PIC X(07).
                    09 SDX04-POA                 PIC X(01).
                    09 SDX05                     PIC X(07).
                    09 SDX05-POA                 PIC X(01).
                    09 SDX06                     PIC X(07).
                    09 SDX06-POA                 PIC X(01).
                    09 SDX07                     PIC X(07).
                    09 SDX07-POA                 PIC X(01).
                    09 SDX08                     PIC X(07).
                    09 SDX08-POA                 PIC X(01).
                    09 SDX09                     PIC X(07).
                    09 SDX09-POA                 PIC X(01).
                    09 SDX10                     PIC X(07).
                    09 SDX10-POA                 PIC X(01).
                    09 SDX11                     PIC X(07).
                    09 SDX11-POA                 PIC X(01).
                    09 SDX12                     PIC X(07).
                    09 SDX12-POA                 PIC X(01).
                    09 SDX13                     PIC X(07).
                    09 SDX13-POA                 PIC X(01).
                    09 SDX14                     PIC X(07).
                    09 SDX14-POA                 PIC X(01).
                    09 SDX15                     PIC X(07).
                    09 SDX15-POA                 PIC X(01).
                    09 SDX16                     PIC X(07).
                    09 SDX16-POA                 PIC X(01).
                    09 SDX17                     PIC X(07).
                    09 SDX17-POA                 PIC X(01).
                    09 SDX18                     PIC X(07).
                    09 SDX18-POA                 PIC X(01).
                    09 SDX19                     PIC X(07).
                    09 SDX19-POA                 PIC X(01).
                    09 SDX20                     PIC X(07).
                    09 SDX20-POA                 PIC X(01).
                    09 SDX21                     PIC X(07).
                    09 SDX21-POA                 PIC X(01).
                    09 SDX22                     PIC X(07).
                    09 SDX22-POA                 PIC X(01).
                    09 SDX23                     PIC X(07).
                    09 SDX23-POA                 PIC X(01).
                 07 PROC-CODES                   PIC X(175).
                 07 PROC-CODES-R REDEFINES PROC-CODES.
                    09 PROC-CODE OCCURS 25 TIMES PIC X(07).
                 07 PROC-CODES-R2 REDEFINES PROC-CODES.
                    09 PROC01                    PIC X(07).
                    09 PROC02                    PIC X(07).
                    09 PROC03                    PIC X(07).
                    09 PROC04                    PIC X(07).
                    09 PROC05                    PIC X(07).
                    09 PROC06                    PIC X(07).
                    09 PROC07                    PIC X(07).
                    09 PROC08                    PIC X(07).
                    09 PROC09                    PIC X(07).
                    09 PROC10                    PIC X(07).
                    09 PROC11                    PIC X(07).
                    09 PROC12                    PIC X(07).
                    09 PROC13                    PIC X(07).
                    09 PROC14                    PIC X(07).
                    09 PROC15                    PIC X(07).
                    09 PROC16                    PIC X(07).
                    09 PROC17                    PIC X(07).
                    09 PROC18                    PIC X(07).
                    09 PROC19                    PIC X(07).
                    09 PROC20                    PIC X(07).
                    09 PROC21                    PIC X(07).
                    09 PROC22                    PIC X(07).
                    09 PROC23                    PIC X(07).
                    09 PROC24                    PIC X(07).
                    09 PROC25                    PIC X(07).
                 07 CLAIM-PROCDATES              PIC X(200).
                 07 CLAIM-OPT-DATA               PIC X(40).
                 07 CLAIM-OPT-DATA-RR REDEFINES CLAIM-OPT-DATA.
                    09 FILLER                    PIC X(39).
                    09 DEBUG-IND                 PIC X(01).
      *
      ************************
      * SAMPLE DISK OUTPUT   *
      ************************
       FD  OTPUT-FILE
           LABEL RECORDS ARE OMITTED
           RECORDING MODE IS F
           RECORD CONTAINS 2000 CHARACTERS.
       01  OUTPUT-RECORD.
           03 OUTPUT-REC-LAYOUT                  PIC X(2000).
           03 CLAIM-OUTPUT-RECORD REDEFINES OUTPUT-REC-LAYOUT.
      ***************************************************************
      *   OUTPUT RECORD LAYOUT                                      *
      ***************************************************************
              05 OUTPUT-REC-LAYOUT-IN               PIC X(638).
              05 FILLER                             PIC X(200).
      * CMSDRG RETURN DATA 1162 BYTES
              05 CMSDRG-OUTPUT-DATA.
                 07 OUT-CMSDRG-RTC                  PIC X(02).
                 07 OUT-CMSDRG-MDC                  PIC X(02).
                 07 OUT-CMSDRG-DRG                  PIC X(04).
                 07 OUT-CMSDRG-OUTGRFLGS            PIC X(05).
                 07 OUT-CMSDRG-OUTDXFLGS            PIC X(625).
                 07 OUT-CMSDRG-OUTDXFLGS-R REDEFINES
                    OUT-CMSDRG-OUTDXFLGS.
                    09 OUT-CMSDRG-OUTDXFLGS-PER-DX
                                    OCCURS 25 TIMES PIC X(25).
                 07 OUT-CMSDRG-OUTPRFLGS            PIC X(500).
                 07 OUT-CMSDRG-OUTPRFLGS-R REDEFINES
                    OUT-CMSDRG-OUTPRFLGS.
                    09 OUT-CMSDRG-OUTPRFLGS-PER-SG
                                    OCCURS 25 TIMES PIC X(20).
                 07 OUT-CMSDRG-OUTBUFF              PIC X(24).
      *
      ******************************************************
      * WORKING STORAGE                                    *
      ******************************************************
       WORKING-STORAGE SECTION.
      *
      ************************
      * PROGRAM VARIABLES    *
      ************************
       01  PROGRAM-VARIABLES.
           03 CLAIM-COUNT                     PIC 9(8) COMP.
           03 WS-RPORT-EQUAL-LINE             PIC X(80) VALUE ALL '='.
           03 EOF-FLAG                        PIC X(01) VALUE 'N'.
           03 PROCDATES                       PIC X(200).
           03 IN-STAT                         PIC X(02) VALUE '00'.
           03 OT-STAT                         PIC X(02) VALUE '00'.
           03 DRG381JV                     PIC X(08) VALUE 'DRG381JV'.
           03 DISP-IND                        PIC X(01).
      *
           03 OUTPUT-RECORD-LINES.
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 01                              *
      ***************************************************************
              05 OUT-LINE-01.
                 07 OUT01-REC-TAG           PIC X(04) VALUE 'REC:'.
                 07 OUT01-REC-NUM           PIC 9(05).
                 07 FILLER                  PIC X(01) VALUE SPACE.
                 07 OUT01-AGE-TAG           PIC X(04) VALUE 'AGE:'.
                 07 OUT01-AGE               PIC X(03).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT01-SEX-TAG           PIC X(04) VALUE 'SEX:'.
                 07 OUT01-SEX               PIC X(01).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT01-DSTAT-TAG         PIC X(06) VALUE 'DSTAT:'.
                 07 OUT01-DSTAT             PIC X(02).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT01-INFO-TAG          PIC X(05) VALUE 'INFO:'.
                 07 OUT01-INFO              PIC X(25).
                 07 FILLER                  PIC X(15) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 02 DX 01 TO 09                  *
      ***************************************************************
              05 OUT-LINE-02.
                 07 OUT02-DX-TAG            PIC X(03) VALUE 'DX:'.
                 07 OUT02-ADX               PIC X(07).
                 07 OUT02-ADX-POA           PIC X(01).
                 07 OUT02-PDX               PIC X(07).
                 07 OUT02-PDX-POA           PIC X(01).
                 07 OUT02-SDX01             PIC X(07).
                 07 OUT02-SDX01-POA         PIC X(01).
                 07 OUT02-SDX02             PIC X(07).
                 07 OUT02-SDX02-POA         PIC X(01).
                 07 OUT02-SDX03             PIC X(07).
                 07 OUT02-SDX03-POA         PIC X(01).
                 07 OUT02-SDX04             PIC X(07).
                 07 OUT02-SDX04-POA         PIC X(01).
                 07 OUT02-SDX05             PIC X(07).
                 07 OUT02-SDX05-POA         PIC X(01).
                 07 OUT02-SDX06             PIC X(07).
                 07 OUT02-SDX06-POA         PIC X(01).
                 07 OUT02-SDX07             PIC X(07).
                 07 OUT02-SDX07-POA         PIC X(01).
                 07 FILLER                  PIC X(05) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 03 DX 10 TO 18                  *
      ***************************************************************
              05 OUT-LINE-03.
                 07 OUT03-DX-TAG            PIC X(03) VALUE 'DX:'.
                 07 OUT03-SDX08             PIC X(07).
                 07 OUT03-SDX08-POA         PIC X(01).
                 07 OUT03-SDX09             PIC X(07).
                 07 OUT03-SDX09-POA         PIC X(01).
                 07 OUT03-SDX10             PIC X(07).
                 07 OUT03-SDX10-POA         PIC X(01).
                 07 OUT03-SDX11             PIC X(07).
                 07 OUT03-SDX11-POA         PIC X(01).
                 07 OUT03-SDX12             PIC X(07).
                 07 OUT03-SDX12-POA         PIC X(01).
                 07 OUT03-SDX13             PIC X(07).
                 07 OUT03-SDX13-POA         PIC X(01).
                 07 OUT03-SDX14             PIC X(07).
                 07 OUT03-SDX14-POA         PIC X(01).
                 07 OUT03-SDX15             PIC X(07).
                 07 OUT03-SDX15-POA         PIC X(01).
                 07 OUT03-SDX16             PIC X(07).
                 07 OUT03-SDX16-POA         PIC X(01).
                 07 FILLER                  PIC X(05) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 04 DX 19 TO 25                  *
      ***************************************************************
              05 OUT-LINE-04.
                 07 OUT04-DX-TAG            PIC X(03) VALUE 'DX:'.
                 07 OUT04-SDX17             PIC X(07).
                 07 OUT04-SDX17-POA         PIC X(01).
                 07 OUT04-SDX18             PIC X(07).
                 07 OUT04-SDX18-POA         PIC X(01).
                 07 OUT04-SDX19             PIC X(07).
                 07 OUT04-SDX19-POA         PIC X(01).
                 07 OUT04-SDX20             PIC X(07).
                 07 OUT04-SDX20-POA         PIC X(01).
                 07 OUT04-SDX21             PIC X(07).
                 07 OUT04-SDX21-POA         PIC X(01).
                 07 OUT04-SDX22             PIC X(07).
                 07 OUT04-SDX22-POA         PIC X(01).
                 07 OUT04-SDX23             PIC X(07).
                 07 OUT04-SDX23-POA         PIC X(01).
                 07 FILLER                  PIC X(21) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 05 SG 01 TO 09                  *
      ***************************************************************
              05 OUT-LINE-05.
                 07 OUT05-SG-TAG            PIC X(03) VALUE 'SG:'.
                 07 OUT05-SG01              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT05-SG02              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT05-SG03              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT05-SG04              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT05-SG05              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT05-SG06              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT05-SG07              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT05-SG08              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT05-SG09              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 FILLER                  PIC X(05) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 06 SG 10 TO 18                  *
      ***************************************************************
              05 OUT-LINE-06.
                 07 OUT06-SG-TAG            PIC X(03) VALUE 'SG:'.
                 07 OUT06-SG10              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT06-SG11              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT06-SG12              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT06-SG13              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT06-SG14              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT06-SG15              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT06-SG16              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT06-SG17              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT06-SG18              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 FILLER                  PIC X(05) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 07 SG 19 TO 25                  *
      ***************************************************************
              05 OUT-LINE-07.
                 07 OUT07-SG-TAG            PIC X(03) VALUE 'SG:'.
                 07 OUT07-SG19              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT07-SG20              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT07-SG21              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT07-SG22              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT07-SG23              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT07-SG24              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT07-SG25              PIC X(07).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 FILLER                  PIC X(21) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 08                              *
      ***************************************************************
              05 OUT-LINE-08.
                 07 OUT08-DRG-TAG           PIC X(05) VALUE 'DRG: '.
                 07 OUT08-DRG-NUM           PIC X(04).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT08-MDC-TAG           PIC X(04) VALUE 'MDC:'.
                 07 OUT08-MDC-NUM           PIC X(02).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT08-RTC-TAG           PIC X(04) VALUE 'RTC:'.
                 07 OUT08-RTC-NUM           PIC X(02).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT08-GFLAGS-TAG        PIC X(07) VALUE 'GFLAGS:'.
                 07 OUT08-GFLAGS            PIC X(05).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT08-DRGINFO-TAG       PIC X(09) VALUE
                                            'DRG INFO:'.
                 07 OUT08-DRGINFO           PIC X(24).
                 07 FILLER                  PIC X(10) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 09 DX GROUPER FLAGS 01-03       *
      ***************************************************************
              05 OUT-LINE-09.
                 07 OUT09-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT09-DXFLGS01          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT09-DXFLGS02          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT09-DXFLGS03          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 10 DX GROUPER FLAGS 04-06       *
      ***************************************************************
              05 OUT-LINE-10.
                 07 OUT10-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT10-DXFLGS04          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT10-DXFLGS05          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT10-DXFLGS06          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 11 DX GROUPER FLAGS 07-09       *
      ***************************************************************
              05 OUT-LINE-11.
                 07 OUT11-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT11-DXFLGS07          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT11-DXFLGS08          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT11-DXFLGS09          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 12 DX GROUPER FLAGS 10-12       *
      ***************************************************************
              05 OUT-LINE-12.
                 07 OUT12-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT12-DXFLGS10          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT12-DXFLGS11          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT12-DXFLGS12          PIC X(25).
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 13 DX GROUPER FLAGS 13-15       *
      ***************************************************************
              05 OUT-LINE-13.
                 07 OUT13-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT13-DXFLGS13          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT13-DXFLGS14          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT13-DXFLGS15          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 14 DX GROUPER FLAGS 16-18       *
      ***************************************************************
              05 OUT-LINE-14.
                 07 OUT14-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT14-DXFLGS16          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT14-DXFLGS17          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT14-DXFLGS18          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 15 DX GROUPER FLAGS 19-21       *
      ***************************************************************
              05 OUT-LINE-15.
                 07 OUT15-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT15-DXFLGS19          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT15-DXFLGS20          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT15-DXFLGS21          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 16 DX GROUPER FLAGS 22-24       *
      ***************************************************************
              05 OUT-LINE-16.
                 07 OUT16-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT16-DXFLGS22          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT16-DXFLGS23          PIC X(25).
                 07 FILLER                  PIC X(01) VALUE SPACES.
                 07 OUT16-DXFLGS24          PIC X(25).
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 17 DX GROUPER FLAGS 25          *
      ***************************************************************
              05 OUT-LINE-17.
                 07 OUT17-DXF-TAG           PIC X(03) VALUE 'DF:'.
                 07 OUT17-DXFLGS25          PIC X(25).
                 07 FILLER                  PIC X(52) VALUE SPACES.
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 18 SG GROUPER FLAGS 01-03       *
      ***************************************************************
              05 OUT-LINE-18.
                 07 OUT18-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT18-SGFLGS01          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT18-SGFLGS02          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT18-SGFLGS03          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 19 SG GROUPER FLAGS 04-06       *
      ***************************************************************
              05 OUT-LINE-19.
                 07 OUT19-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT19-SGFLGS04          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT19-SGFLGS05          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT19-SGFLGS06          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 20 SG GROUPER FLAGS 07-09       *
      ***************************************************************
              05 OUT-LINE-20.
                 07 OUT20-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT20-SGFLGS07          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT20-SGFLGS08          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT20-SGFLGS09          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 21 SG GROUPER FLAGS 10-12       *
      ***************************************************************
              05 OUT-LINE-21.
                 07 OUT21-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT21-SGFLGS10          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT21-SGFLGS11          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT21-SGFLGS12          PIC X(25).
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 22 SG GROUPER FLAGS 13-15       *
      ***************************************************************
              05 OUT-LINE-22.
                 07 OUT22-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT22-SGFLGS13          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT22-SGFLGS14          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT22-SGFLGS15          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 23 SG GROUPER FLAGS 16-18       *
      ***************************************************************
              05 OUT-LINE-23.
                 07 OUT23-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT23-SGFLGS16          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT23-SGFLGS17          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT23-SGFLGS18          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 24 SG GROUPER FLAGS 19-21       *
      ***************************************************************
              05 OUT-LINE-24.
                 07 OUT24-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT24-SGFLGS19          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT24-SGFLGS20          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT24-SGFLGS21          PIC X(25).
      *
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 25 SG GROUPER FLAGS 22-24       *
      ***************************************************************
              05 OUT-LINE-25.
                 07 OUT25-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT25-SGFLGS22          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT25-SGFLGS23          PIC X(20).
                 07 FILLER                  PIC X(06) VALUE SPACES.
                 07 OUT25-SGFLGS24          PIC X(25).
      ***************************************************************
      *   OUTPUT RECORD LAYOUT LINE 26 DX GROUPER FLAGS 25          *
      ***************************************************************
              05 OUT-LINE-26.
                 07 OUT26-SGF-TAG           PIC X(03) VALUE 'SF:'.
                 07 OUT26-SGFLGS25          PIC X(20).
                 07 FILLER                  PIC X(57) VALUE SPACES.
      *
      ******************************************************
      * HOLD AREA FOR INPUT CLAIM                          *
      ******************************************************
       01  IN-CLAIM-HOLD-AREA                    PIC X(638).
      *
      ************************
      * INTERFACE BUFFER 1   *
      ************************
       01  INTERFACE-AREA-1                  PIC X(638).
       01  INTERFACE-AREA-1-REDEF REDEFINES
           INTERFACE-AREA-1.
      ******************************************************
      * CMS DRG     INPUT BUFFER LAYOUT                    *
      * COMMUNICATION INPUT AREAS SECTION 1.    638  BYTES *
      ******************************************************
              05 CI-CMSDRG-CLAIM             PIC X(638).
      ******************************************************
      * CMS DRG     OUTPUT BUFFER LAYOUT (1162)            *
      *            COMMUNICATION OUTPUT AREAS              *
      ******************************************************
      ************************
      * INTERFACE BUFFER 2   *
      ************************
       01  INTERFACE-AREA-2                  PIC X(1162).
       01  INTERFACE-AREA-2-REDEF REDEFINES
           INTERFACE-AREA-2.
              05 CO-CMSDRG-CLAIM             PIC X(1162).
      ******************************************************
      * PROGRAM EXECUTION                                  *
      ******************************************************
       PROCEDURE DIVISION.
       0100-MAINLINE.
           MOVE 'N'       TO DISP-IND.
      ************************
      * OPEN INPUT / OUTPUT  *
      ************************
       0110-OPEN.
           OPEN INPUT  INPUT-FILE
                OUTPUT OTPUT-FILE.
           IF IN-STAT > '00'
              DISPLAY 'IN-STAT      ' IN-STAT
              DISPLAY ' IN-FILE-ERROR   --- EXITING ---'
              GO TO 0999-EXIT.
           IF OT-STAT > '00'
              DISPLAY 'OT-STAT      ' OT-STAT
              DISPLAY 'OUT-FILE-ERROR   --- EXITING ---'
              GO TO 0999-EXIT.
           IF DISP-IND = 'Y'
              DISPLAY '0110-OPEN-OK '.
      ************************
      * CONTROL PARAGRAPH    *
      ************************
           PERFORM 310-READ-PROCESS     THRU   310-EXIT
                   UNTIL EOF-FLAG = 'Y'.
           GO TO 0999-EXIT.
      *
      ******************************
      * READ AND CALL PROCESS MOD  *
      ******************************
       310-READ-PROCESS.
           PERFORM 90000-INITIALIZE         THRU 99999-EXIT.
           READ INPUT-FILE
                AT END MOVE 'Y' TO EOF-FLAG
                       GO TO 310-EXIT.
           ADD 1 TO CLAIM-COUNT.
           MOVE DEBUG-IND TO DISP-IND.
           IF DISP-IND = 'Y'
              DISPLAY '0100 BUILDTDB PROGRAM       '
              DISPLAY '0100 COMPILE DATE 01/25/2021'
              DISPLAY '0310 INPUT-REC ' INPUT-RECORD.
           MOVE INPUT-RECORD TO IN-CLAIM-HOLD-AREA
                                CI-CMSDRG-CLAIM.
           PERFORM 10000-CALLS                   THRU 19999-EXIT.
           PERFORM 40000-FORMAT-OUT-RECS         THRU 49999-EXIT.
           PERFORM 80000-WRITE                   THRU 89999-EXIT.
CHGJAV*    PERFORM 30000-FORMAT-OUT-RECS         THRU 39999-EXIT.
       310-EXIT.
      *
      ******************************
      * EOF, CLEAR AND CLOSE FILES *
      ******************************
       0999-EXIT.
           CLOSE INPUT-FILE OTPUT-FILE.
           IF DISP-IND = 'Y'
              DISPLAY 'RETURN-CODE               ' RETURN-CODE
              DISPLAY '0999-SUCCESSFUL FILE CLOSE'.
           MOVE ZEROS TO RETURN-CODE.
           STOP RUN.
      *
      ******************************************************
      * EXTERNAL PROGRAM CALLS                             *
      ******************************************************
       10000-CALLS.
           IF DISP-IND = 'Y'
              DISPLAY '10000-CALLS      '
              DISPLAY 'DIAG-CODES       ' DIAG-CODES
              DISPLAY 'PROC-CODES       ' PROC-CODES
              DISPLAY 'CLAIM-AGE        ' CLAIM-AGE
              DISPLAY 'CLAIM-SEX        ' CLAIM-SEX
              DISPLAY 'CLAIM-DISCH-STAT ' CLAIM-DISCHARGE-STATUS
              DISPLAY 'CLAIM-POA        ' CLAIM-POA
              DISPLAY 'CLAIM-ADMIT-DATE ' CLAIM-ADMIT-DATE
              DISPLAY 'CLAIM-DISCH-DATE ' CLAIM-DISCHARGE-DATE.
           IF DISP-IND = 'Y'
              DISPLAY 'BUILDTDB IS ABOUT TO CALL DRG381JV'.
      *
           CALL DRG381JV  USING   INTERFACE-AREA-1
                                  INTERFACE-AREA-2.
           IF DISP-IND = 'Y'
              DISPLAY 'RETURNED FROM DRG381JV TO BUILDTDB'.
      *
           MOVE INTERFACE-AREA-2 TO CMSDRG-OUTPUT-DATA.
      *
           IF DISP-IND = 'Y'
              DISPLAY 'CALL RETURN '
              DISPLAY 'OUTRTC           ' OUT-CMSDRG-RTC
              DISPLAY 'OUTMDC           ' OUT-CMSDRG-MDC
              DISPLAY 'OUTDRG           ' OUT-CMSDRG-DRG
              DISPLAY 'OUTGRFLGS        ' OUT-CMSDRG-OUTGRFLGS
              DISPLAY 'OUTDXFLGS        ' OUT-CMSDRG-OUTDXFLGS
              DISPLAY 'OUTPRFLGS        ' OUT-CMSDRG-OUTPRFLGS
              DISPLAY 'OUTBUFF          ' OUT-CMSDRG-OUTBUFF.
       19999-EXIT. EXIT.
      *
      ******************************************************
      * FORMAT OUTPUT RECORD LAYOUT AND CALL WRITE MODULE  *
      ******************************************************
       30000-FORMAT-OUT-RECS.
           IF DISP-IND = 'Y'
              DISPLAY '30000-FORMAT'.
       31001-FORMAT-OUT01-LINES.
           MOVE CLAIM-COUNT            TO OUT01-REC-NUM.
           MOVE CLAIM-AGE              TO OUT01-AGE.
           MOVE CLAIM-SEX              TO OUT01-SEX.
           MOVE CLAIM-DISCHARGE-STATUS TO OUT01-DSTAT.
           MOVE CLAIM-OPT-DATA         TO OUT01-INFO.
           MOVE SPACES                 TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-01            TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31002-FORMAT-OUT02-LINES.
           MOVE ADX                   TO OUT02-ADX.
           MOVE ADX-POA               TO OUT02-ADX-POA.
           MOVE PDX                   TO OUT02-PDX.
           MOVE PDX-POA               TO OUT02-PDX-POA.
           MOVE SDX01                 TO OUT02-SDX01
           MOVE SDX01-POA             TO OUT02-SDX01-POA.
           MOVE SDX02                 TO OUT02-SDX02
           MOVE SDX02-POA             TO OUT02-SDX02-POA.
           MOVE SDX03                 TO OUT02-SDX03
           MOVE SDX03-POA             TO OUT02-SDX03-POA.
           MOVE SDX04                 TO OUT02-SDX04
           MOVE SDX04-POA             TO OUT02-SDX04-POA.
           MOVE SDX05                 TO OUT02-SDX05
           MOVE SDX05-POA             TO OUT02-SDX05-POA.
           MOVE SDX06                 TO OUT02-SDX06
           MOVE SDX06-POA             TO OUT02-SDX06-POA.
           MOVE SDX07                 TO OUT02-SDX07
           MOVE SDX07-POA             TO OUT02-SDX07-POA.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-02           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31003-FORMAT-OUT03-LINES.
           MOVE SDX08                 TO OUT03-SDX08
           MOVE SDX08-POA             TO OUT03-SDX08-POA.
           MOVE SDX09                 TO OUT03-SDX09
           MOVE SDX09-POA             TO OUT03-SDX09-POA.
           MOVE SDX10                 TO OUT03-SDX10
           MOVE SDX10-POA             TO OUT03-SDX10-POA.
           MOVE SDX11                 TO OUT03-SDX11
           MOVE SDX11-POA             TO OUT03-SDX11-POA.
           MOVE SDX12                 TO OUT03-SDX12
           MOVE SDX12-POA             TO OUT03-SDX12-POA.
           MOVE SDX13                 TO OUT03-SDX13
           MOVE SDX13-POA             TO OUT03-SDX13-POA.
           MOVE SDX14                 TO OUT03-SDX14
           MOVE SDX14-POA             TO OUT03-SDX14-POA.
           MOVE SDX15                 TO OUT03-SDX15
           MOVE SDX15-POA             TO OUT03-SDX15-POA.
           MOVE SDX16                 TO OUT03-SDX16
           MOVE SDX16-POA             TO OUT03-SDX16-POA.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-03           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31004-FORMAT-OUT04-LINES.
           MOVE SDX17                 TO OUT04-SDX17
           MOVE SDX17-POA             TO OUT04-SDX17-POA.
           MOVE SDX18                 TO OUT04-SDX18
           MOVE SDX18-POA             TO OUT04-SDX18-POA.
           MOVE SDX19                 TO OUT04-SDX19
           MOVE SDX19-POA             TO OUT04-SDX19-POA.
           MOVE SDX20                 TO OUT04-SDX20
           MOVE SDX20-POA             TO OUT04-SDX20-POA.
           MOVE SDX21                 TO OUT04-SDX21
           MOVE SDX21-POA             TO OUT04-SDX21-POA.
           MOVE SDX22                 TO OUT04-SDX22
           MOVE SDX22-POA             TO OUT04-SDX22-POA.
           MOVE SDX23                 TO OUT04-SDX23
           MOVE SDX23-POA             TO OUT04-SDX23-POA.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-04           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31005-FORMAT-OUT05-LINES.
           MOVE PROC01                TO OUT05-SG01
           MOVE PROC02                TO OUT05-SG02
           MOVE PROC03                TO OUT05-SG03
           MOVE PROC04                TO OUT05-SG04
           MOVE PROC05                TO OUT05-SG05
           MOVE PROC06                TO OUT05-SG06
           MOVE PROC07                TO OUT05-SG07
           MOVE PROC08                TO OUT05-SG08
           MOVE PROC09                TO OUT05-SG09
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-05           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31006-FORMAT-OUT06-LINES.
           MOVE PROC10                TO OUT06-SG10
           MOVE PROC11                TO OUT06-SG11
           MOVE PROC12                TO OUT06-SG12
           MOVE PROC13                TO OUT06-SG13
           MOVE PROC14                TO OUT06-SG14
           MOVE PROC15                TO OUT06-SG15
           MOVE PROC16                TO OUT06-SG16
           MOVE PROC17                TO OUT06-SG17
           MOVE PROC18                TO OUT06-SG18
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-06           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31007-FORMAT-OUT07-LINES.
           MOVE PROC19                TO OUT07-SG19
           MOVE PROC20                TO OUT07-SG20
           MOVE PROC21                TO OUT07-SG21
           MOVE PROC22                TO OUT07-SG22
           MOVE PROC23                TO OUT07-SG23
           MOVE PROC24                TO OUT07-SG24
           MOVE PROC25                TO OUT07-SG25
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-07           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
      ***************************************
      * FORMAT OUTPUT DATA                  *
      ***************************************
       31008-FORMAT-OUT08-LINES.
           MOVE OUT-CMSDRG-DRG        TO OUT08-DRG-NUM
           MOVE OUT-CMSDRG-MDC        TO OUT08-MDC-NUM
           MOVE OUT-CMSDRG-RTC        TO OUT08-RTC-NUM
           MOVE OUT-CMSDRG-OUTGRFLGS  TO OUT08-GFLAGS
           MOVE OUT-CMSDRG-OUTBUFF    TO OUT08-DRGINFO
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-08           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31009-FORMAT-OUT09-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (01)
                                      TO OUT09-DXFLGS01
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (02)
                                      TO OUT09-DXFLGS02
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (03)
                                      TO OUT09-DXFLGS03
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-09           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31010-FORMAT-OUT10-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (04)
                                      TO OUT10-DXFLGS04
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (05)
                                      TO OUT10-DXFLGS05
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (06)
                                      TO OUT10-DXFLGS06
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-10           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31011-FORMAT-OUT11-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (07)
                                      TO OUT11-DXFLGS07
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (08)
                                      TO OUT11-DXFLGS08
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (09)
                                      TO OUT11-DXFLGS09
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-11           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31012-FORMAT-OUT12-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (10)
                                      TO OUT12-DXFLGS10
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (11)
                                      TO OUT12-DXFLGS11
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (12)
                                      TO OUT12-DXFLGS12
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-12           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31013-FORMAT-OUT13-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (13)
                                      TO OUT13-DXFLGS13
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (14)
                                      TO OUT13-DXFLGS14
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (15)
                                      TO OUT13-DXFLGS15
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-13           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31014-FORMAT-OUT14-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (16)
                                      TO OUT14-DXFLGS16
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (17)
                                      TO OUT14-DXFLGS17
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (18)
                                      TO OUT14-DXFLGS18
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-14           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31015-FORMAT-OUT15-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (19)
                                      TO OUT15-DXFLGS19
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (20)
                                      TO OUT15-DXFLGS20
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (21)
                                      TO OUT15-DXFLGS21
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-15           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31016-FORMAT-OUT16-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (22)
                                      TO OUT16-DXFLGS22
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (23)
                                      TO OUT16-DXFLGS23
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (24)
                                      TO OUT16-DXFLGS24
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-16           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31017-FORMAT-OUT17-LINES.
           MOVE OUT-CMSDRG-OUTDXFLGS-PER-DX (25)
                                      TO OUT17-DXFLGS25
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-17           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31018-FORMAT-OUT18-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (01)
                                      TO OUT18-SGFLGS01.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (02)
                                      TO OUT18-SGFLGS02.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (03)
                                      TO OUT18-SGFLGS03.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-18           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31019-FORMAT-OUT19-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (04)
                                      TO OUT19-SGFLGS04.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (05)
                                      TO OUT19-SGFLGS05.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (06)
                                      TO OUT19-SGFLGS06.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-19           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31020-FORMAT-OUT20-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (07)
                                      TO OUT20-SGFLGS07.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (08)
                                      TO OUT20-SGFLGS08.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (09)
                                      TO OUT20-SGFLGS09.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-20           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31021-FORMAT-OUT21-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (10)
                                      TO OUT21-SGFLGS10.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (11)
                                      TO OUT21-SGFLGS11.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (12)
                                      TO OUT21-SGFLGS12.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-21           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31022-FORMAT-OUT22-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (13)
                                      TO OUT22-SGFLGS13.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (14)
                                      TO OUT22-SGFLGS14.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (15)
                                      TO OUT22-SGFLGS15.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-22           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31023-FORMAT-OUT23-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (16)
                                      TO OUT23-SGFLGS16.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (17)
                                      TO OUT23-SGFLGS17.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (18)
                                      TO OUT23-SGFLGS18.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-23           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31024-FORMAT-OUT24-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (19)
                                      TO OUT24-SGFLGS19.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (20)
                                      TO OUT24-SGFLGS20.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (21)
                                      TO OUT24-SGFLGS21.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-24           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31025-FORMAT-OUT25-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (22)
                                      TO OUT25-SGFLGS22.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (23)
                                      TO OUT25-SGFLGS23.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (24)
                                      TO OUT25-SGFLGS24.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-25           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31026-FORMAT-OUT26-LINES.
           MOVE OUT-CMSDRG-OUTPRFLGS-PER-SG (25)
                                      TO OUT26-SGFLGS25.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE OUT-LINE-26           TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       31027-FORMAT-OUT27-SEP.
           MOVE SPACES                TO OUTPUT-REC-LAYOUT.
           MOVE WS-RPORT-EQUAL-LINE   TO OUTPUT-REC-LAYOUT.
           PERFORM 80000-WRITE        THRU 89999-EXIT.
       39999-EXIT. EXIT.
      *
      ******************************************************
      * FORMAT OUTPUT RECORD LAYOUT AND CALL WRITE MODULE  *
      ******************************************************
       40000-FORMAT-OUT-RECS.
           IF DISP-IND = 'Y'
              DISPLAY '40000-FORMAT'.
           MOVE SPACES             TO OUTPUT-REC-LAYOUT.
           MOVE IN-CLAIM-HOLD-AREA TO OUTPUT-REC-LAYOUT-IN.
           MOVE CO-CMSDRG-CLAIM    TO CMSDRG-OUTPUT-DATA.
       49999-EXIT. EXIT.
      *
      ******************************************************
      * WRITE RECORDS                                      *
      ******************************************************
       80000-WRITE.
           WRITE OUTPUT-RECORD.
           IF DISP-IND = 'Y'
              DISPLAY '80000-WRITE ' OUTPUT-RECORD.
       89999-EXIT. EXIT.
      *
      ******************************************************
      * INITIALIZE                                         *
      ******************************************************
       90000-INITIALIZE.
           IF DISP-IND = 'Y'
              DISPLAY '90000-INITIALIZE'.
           MOVE SPACES TO INTERFACE-AREA-1 INTERFACE-AREA-2
                          CO-CMSDRG-CLAIM  CMSDRG-OUTPUT-DATA.
           INITIALIZE CMSDRG-OUTPUT-DATA.
       99999-EXIT. EXIT.
