00001 *****                                                             04/12/12
00002 *                                                                 DTSIRSK5
00003 *    DTSIRSK5    REPORT FILE SKELETAL RECORD DESCRIPTION             LV007
00004 *                (4089 BYTE VERSION).                             DTSIRSK5
00005 *                                                                 DTSIRSK5
00006 *                                                                    CL**2
00007 *                04/12/2012  NEW VERSION FOR DTSBD140. CREATE A      CL**7
00008 *                            NEW BATCH ON EACH BREAK IN THE          CL**7
00009 *                            RSK5-KEY-AREA.                          CL**7
00010 *****                                                             DTSIRSK5
00011                                                                      CL**2
00012          10  RSK5-LENGTH             PIC S9(04)  COMP.               CL**5
00013          10  RSK5-KEY-AREA.                                          CL**5
00014              15  RSK5-REC-TYPE       PIC  X(03).                     CL**6
00015              15  RSK5-TRN-TYPE       PIC  X(01).                     CL**5
00016          10  FILLER                  PIC  X(4083).                   CL**7