//K1P6TST2 JOB (BFNCBA26580,B110),'K1P6  KUNKEL',MSGCLASS=Q,
//             MSGLEVEL=1,
//             CLASS=C,NOTIFY=K1P6
//*
/*JOBPARM FORMS=PX24,COPIES=1,LINECT=0
//*
//JOBLIB    DD DSN=SYS1.@CEE.SCEERUN,DISP=SHR
//**================================================================***
//* ADD A JOBLIB OR STEPLIB STMT FOR 'SYS1.@CEE.SCEERUN'  *           *
//*  TO YOUR RUNSTREAM JCL.                               *           *
//**================================================================***
//*
//STEP02  EXEC PGM=IEFBR14
//*
//DD1       DD DSN=K1P6.@BFN2699.HOSPTEST.HONDM130.RATE130,
//             SPACE=(TRK,(1)),
//             DISP=(MOD,DELETE)
//*
//DD2       DD DSN=K1P6.@BFN2699.HOSPTEST.HONDM130.SASLIST,
//             SPACE=(TRK,(1)),
//             DISP=(MOD,DELETE)
/*
//*
//**================================================================***
//RUN     EXEC PGM=HOSOP130,REGION=6M
//STEPLIB   DD DSN=K1P6.@BFN2699.HOSLOAD,DISP=SHR
//SYSUDUMP  DD SYSOUT=*
//SYSPUNCH  DD SYSOUT=*
//SYSOUT    DD SYSOUT=*
//SYSOUR    DD SYSOUT=*
//SYSABOUT  DD SYSOUT=*
//ZDSTATS   DD SYSOUT=*
//**================================================================***
//*
//BILLFILE  DD DSN=K1P6.@BFN2699.HOSPTEST.HONDM130.BILL130,
//             DISP=SHR
//*
//**================================================================***
//*
//MSAFILE   DD DSN=K1P6.@BFN2699.HOSPTEST.HONDM130.MSAH050,
//             DISP=SHR
//*
//**================================================================***
//*
//CBSAFILE  DD DSN=K1P6.@BFN2699.HOSPRICE.CBSA130.DATA.SRTED,
//             DISP=SHR
//**================================================================***
//*
//PROVFILE  DD DSN=K1P6.@BFN2699.HOSPTEST.HONDM130.PROV130,
//             DISP=SHR
//**================================================================***
//**                                                                ***
//**================================================================***
//*
//RATEFILE  DD DSN=K1P6.@BFN2699.HOSPTEST.HONDM130.RATE130,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(20,10),RLSE),
//             DCB=(RECFM=FB,LRECL=135)
/*
//*
//LIST    EXEC SAS9,WORK='500,100'
//*
//INDD      DD DSN=K1P6.@BFN2699.HOSPTEST.HONDM130.RATE130,
//             DISP=SHR
//*
//**================================================================***
//*                                                                   *
//*                                                                   *
//**================================================================***
//**================================================================***
//*SAS.SASLIST DD SYSOUT=(Y,,PX16),COPIES=1,FREE=CLOSE (STARTED HERE) *
//**================================================================***
//*
//SAS.SASLIST DD DSN=K1P6.@BFN2699.HOSPTEST.HONDM130.SASLIST,
//             DISP=(NEW,CATLG,DELETE),
//             SPACE=(TRK,(20,10),RLSE),
//             DCB=(LRECL=137,BLKSIZE=7398,RECFM=VBA)
//*            RECFM=FB,LRECL=133
//*
//SYSIN     DD *
 DATA AA;
 INFILE INDD;
    INPUT
      NPI      $ 01-10
      PROV     $ 11-16
      FROMDATE $ 17-24
      PRMSALUG $ 25-29
      PROVMSA  $ 25-28
      PROVLUG  $ 29
      PROVCBSA $ 25-29
      BNMSALUG $ 30-34
      BENEMSA  $ 30-33
      BENELUGR $ 34
      BENECBSA $ 30-34
      PROVWGIN $ 35-40
      BENEWGIN $ 41-46
      REV1     $ 47-50
      UNITS1   $ 51-57
      THRPYCG1 $ 58-65
      REV2     $ 66-69
      UNITS2   $ 70-76
      THRPYCG2 $ 77-84
      REV3     $ 85-88
      UNITS3   $ 89-95
      THRPYCG3 $ 96-103
      REV4     $ 104-107
      UNITS4   $ 108-114
      THRPYCG4 $ 115-122
      RETDATA  $ 123-135
      PAYAMT   $ 123-130
      RTC      $ 131-132
      FILLER   $ 133-135;
  PROC PRINT;
/*
//
