您正在浏览:主页 > 游戏新闻 > IBM MAINFRAME: how to resolve S0C7
作者：雷霆之怒公益服 来源：http://www.edmi.com.cn 时间：2019-04-19 11:32
0 000385C
10 TBLA-FILL74
PIC X(01).
BLF=00002+557,0000557 1C
RMODE(AUTO)
000341C
15 TBLA-FILL57
PIC X(02).
00142003 BLF=00002+3F6,00003F6 2C
000155C
05 TBBL-DIRECT-PAID-EXP-TOTAL PIC S9(13)V99 COMP-3.
00123000 BLF=00001+20D,000020D 8P
000366C
10 TBLA-FILL67
PIC X(01).
BLF=00002+4BD,00004BD 1C
000494C
05 TBLB-FILL44
PIC X(01).
BLF=00003+2FC,00002FC 1C
000139C
05 TBBL-DIRECT-OS-LAE-CURR
PIC S9(13)V99 COMP-3.
00123000 BLF=00001+1C5,00001C5 8P
000153C
05 TBBL-DIRECT-PAID-EXP-CURR PIC S9(13)V99 COMP-3.
00123000 BLF=00001+204,0000204 8P
000483C
05 TBLB-DIRECT-PREV-PTD
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+279,0000279 21C
000095C
10 TBBL-FILL14
PIC X(01).
BLF=00001+0C7,00000C7 1C
000461C
05 TBLB-DIRECT-OS-LOSS-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+187,0000187 21C
000163C
05 TBBL-REINSURER-NAME
PIC X(30).
00143003 BLF=00001+231,0000231 30C
000111C
05 TBBL-TERMS.
00141003 BLF=00001+105,0000105 0CL25
000266C
10 TBLA-FILL22
PIC X(01).
BLF=00002+0F1,00000F1 1C
000333C
15 TBLA-1-TREATY-NUM
PIC X(03).
BLF=00002+3BD,00003BD 3C
NODECK
000079C
05 TBBL-FILL7
PIC X(01).
BLF=00001+054,0000054 1C
000173C
05 TBBL-FILL51
PIC X(01).
BLF=00001+28B,000028B 1C
000118C
10 TBBL-RETENTION
PIC S9(13) COMP-3.
00123638 BLF=00001+117,0000117 7P
000224C
05 TBLA-FILL3
PIC X(01).
BLF=00002+012,0000012 1C
000395C
****************** CUSTOM COPYBOOK *******************************
000384C
10 TBLA-1-CEDED-CURR-BTD PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+542,0000542 21C
000482C
05 TBLB-FILL38
PIC X(01).
BLF=00003+278,0000278 1C
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7
000038
FILE STATUS IS BILLOUT5-STATUS.
1330
NODLL
000479C
05 TBLB-DIRECT-PAID-EXP-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+24D,000024D 21C
000087C
10 TBBL-ZIP-CODE
PIC X(09).
00142118 BLF=00001+08A,000008A 9C
000297C
05 TBLA-DIRECT-PREV-PTD
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+279,0000279 21C
000048
05 LOOKUP-KEY
PIC X(12).
BLF=00000+000,0000000 12C
000063C
******************************************************************
000489C
05 TBLB-CEDED-PAID-LOSS-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00003+2BB,00002BB 21C
000219C
10 TBLA-BILL-DAY
PIC 9(02).
BLF=00002+003,0000003 2C
000405C
10 TBLB-BILL-DAY
PIC 9(02).
BLF=00003+003,0000003 2C
000450C
10 TBLB-FILL23
PIC X(01).
BLF=00003+0EE,00000EE 1C
-+----8 Map and Cross Reference
000298C
05 TBLA-FILL39
PIC X(01).
BLF=00002+28E,000028E 1C
CODEPAGE(1140)
000336C
10 TBLA-FILL55
PIC X(01).
BLF=00002+3DF,00003DF 1C
-+----8 Map and Cross Reference
000330C
10 TBLA-1-REINSURER-NAME
PIC X(30).
00143003 BLF=00002+39E,000039E 30C
000309C
05 TBLA-CEDED-PAID-EXP-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+2FD,00002FD 21C
000077C
05 TBBL-FILL6
PIC X(01).
BLF=00001+03A,000003A 1C
000415C
05 TBLB-ADDRESS-LINE-1
PIC X(25).
00131009 BLF=00003+03B,000003B 25C
000134C
05 TBBL-FILL32
PIC X(01).
BLF=00001+1B2,00001B2 1C
000296C
05 TBLA-FILL38
PIC X(01).
BLF=00002+278,0000278 1C
000051
FD BILLIN
000238C
10 TBLA-ZIP-CODE
PIC X(09).
00142118 BLF=00002+08A,000008A 9C
000035
FILE STATUS IS BILLOUT4-STATUS.
1329
000329C
10 TBLA-FILL52
PIC X(01).
BLF=00002+39D,000039D 1C
000300C
05 TBLA-FILL40
PIC X(01).
BLF=00002+2A4,00002A4 1C
000105C
10 TBBL-POLICY-EXP-DAY
PIC 9(02).
BLF=00001+0D6,00000D6 2C
000232C
05 TBLA-FILL7
PIC X(01).
BLF=00002+06E,000006E 1C
000252C
05 TBLA-FILL17
PIC X(01).
BLF=00002+0D0,00000D0 1C
000414C
05 TBLB-FILL5
PIC X(01).
BLF=00003+03A,000003A 1C
000186C
05 TBBL-CEDED-PAID-LOSS-CURR PIC S9(13)V99 COMP-3.
00123438 BLF=00001+2C2,00002C2 8P
000363C
10 TBLA-FILL66
PIC X(01).
BLF=00002+4A7,00004A7 1C
000033
000248C
10 TBLA-FILL16
PIC X(01).
BLF=00002+0C8,00000C8 1C
-+----8 Map and Cross Reference
000467C
05 TBLB-DIRECT-PREV-RES
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+1C9,00001C9 21C
used.
000338C
10 TBLA-FILL56
PIC X(01).
BLF=00002+3EF,00003EF 1C
000241C
05 TBLA-FILL11
PIC X(01).
BLF=00002+0B2,00000B2 1C
000098C
10 TBBL-POLICY-EFF-DAY
PIC 9(02).
BLF=00001+0CB,00000CB 2C
NODBCS
000402C
05 TBLB-BILL-DATE.
00122332 BLF=00003+000,0000000 0CL10
000259C
10 TBLA-FILL19
PIC X(01).
BLF=00002+0E6,00000E6 1C
INTDATE(ANSI)
000250C
10 TBLA-FILL15
PIC X(01).
BLF=00002+0CB,00000CB 1C
000167C
10 TBBL-FILL48
PIC X(01).
BLF=00001+253,0000253 1C
000047
01 LOOKUP-REC.
BLF=00000+000
0CL100
000310C
05 TBLA-FILL45
PIC X(01).
BLF=00002+312,0000312 1C
000263C
10 TBLA-POLICY-EXP-MONTH
PIC 9(02).
BLF=00002+0EC,00000EC 2C
-+----8 Map and Cross Reference
000431C
05 TBLB-FILL14
PIC X(01).
BLF=00003+0C5,00000C5 1C
000172C
05 TBBL-CEDED-OS-LOSS-PRIOR PIC S9(13)V99 COMP-3.
00123238 BLF=00001+283,0000283 8P
000108C
05 TBBL-FILL20
PIC X(01).
BLF=00001+0E5,00000E5 1C
NOADV
000270C
05 TBLA-FILL25
PIC X(01).
BLF=00002+133,0000133 1C
000404C
10 TBLB-FILL2
PIC X(01).
BLF=00003+002,0000002 1C
000498C
05 TBLB-FILL46
PIC X(01).
BLF=00003+328,0000328 1C
000299C
05 TBLA-DIRECT-CURR-PTD
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+28F,000028F 21C
000258C
10 TBLA-POLICY-EFF-DAY
PIC 9(02).
BLF=00002+0E4,00000E4 2C
000465C
05 TBLB-DIRECT-OS-LAE-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+1B3,00001B3 21C
000181C
05 TBBL-FILL55
PIC X(01).
BLF=00001+2AF,00002AF 1C
NOOPTIMIZE
000054
RECORD CONTAINS 777 CHARACTERS
000023
FILE STATUS IS LOOKUP-STATUS.
CVDBAU03 1325
000011
CONFIGURATION SECTION.
CVDBAU03
000100C
05 TBBL-POLICY-EXP-DATE.
00122332 BLF=00001+0CE,00000CE 0CL10
000021
ACCESS IS DYNAMIC
CVDBAU03
000454C
05 TBLB-FILL24
PIC X(01).
BLF=00003+0F6,00000F6 1C
000249C
10 TBLA-LOSS-DAY
PIC 9(02).
BLF=00002+0C9,00000C9 2C
000496C
05 TBLB-FILL45
PIC X(01).
BLF=00003+312,0000312 1C
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1
TCXXXXX Date 04/15/2010 Time 09:29:56 Page 12
000008
*
OF REINSURERS (WMS : F18869AT)
*
000428C
05 TBLB-CLAIM-TYPE
PIC X(5).
00122500 BLF=00003+0B3,00000B3 5C
000090C
05 TBBL-FILL12
PIC X(01).
BLF=00001+0A3,00000A3 1C
0 000001
IDENTIFICATION DIVISION.
CVDBAU03
ARITH(COMPAT)
000444C
10 TBLB-POLICY-EFF-DAY
PIC 9(02).
BLF=00003+0E4,00000E4 2C
000455C
05 TBLB-LOSS-DESC-1
PIC X(60).
00122400 BLF=00003+0F7,00000F7 60C
000123C
05 TBBL-FILL27
PIC X(01).
BLF=00001+198,0000198 1C
000323C
DEPENDING ON TBLA-REINS-COUNT
*
LINECOUNT(60)
000486C
05 TBLB-FILL40
PIC X(01).
BLF=00003+2A4,00002A4 1C
000164C
05 TBBL-FILL47
PIC X(01).
BLF=00001+24F,000024F 1C
000093C
05 TBBL-POLICY-EFF-DATE.
00122332 BLF=00001+0C3,00000C3 0CL10
000407C
10 TBLB-BILL-YEAR
PIC 9(04).
BLF=00003+006,0000006 4C
000393
COPY TRC052B REPLACING ==:COM:== BY ==TBLB==.
000037
SELECT BILLOUT5 ASSIGN DA-BILLOUT5
CVDBAU03 946
000457C
05 TBLB-LOSS-DESC-2
PIC X(60).
00122400 BLF=00003+134,0000134 60C
OBJECT
000426C
05 TBLB-INSURED-NAME
PIC X(30).
00122400 BLF=00003+094,0000094 30C
000196C
05 TBBL-CEDED-PREV-BTD
PIC S9(13)V99 COMP-3.
00123438 BLF=00001+2EF,00002EF 8P
000202
FD BILLOUT1
000265C
10 TBLA-POLICY-EXP-DAY
PIC 9(02).
BLF=00002+0EF,00000EF 2C
000145C
05 TBBL-DIRECT-PAID-LOSS-PRIOR PIC S9(13)V99 COMP-3.
00123000 BLF=00001+1E0,00001E0 8P
000197C
05 TBBL-FILL63
PIC X(01).
BLF=00001+2F7,00002F7 1C
000170C
05 TBBL-CEDANT-CERT-NUM
PIC X(15).
00122009 BLF=00001+273,0000273 15C
000102C
10 TBBL-FILL17
PIC X(01).
BLF=00001+0D2,00000D2 1C
000154C
05 TBBL-FILL42
PIC X(01).
BLF=00001+20C,000020C 1C
000435C
10 TBLB-LOSS-DAY
PIC 9(02).
BLF=00003+0C9,00000C9 2C
000020
ORGANIZATION IS INDEXED
CVDBAU03
NOSEQUENCE
000104C
10 TBBL-FILL18
PIC X(01).
BLF=00001+0D5,00000D5 1C
000290C
05 TBLA-FILL35
PIC X(01).
BLF=00002+236,0000236 1C
0 000158C
05 TBBL-FILL44
PIC X(01).
BLF=00001+21E,000021E 1C
000069C
10 TBBL-FILL2
PIC X(01).
BLF=00001+007,0000007 1C
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1
TCXXXXX Date 04/15/2010 Time 09:29:56 Page
6
000458C
05 TBLB-FILL26
PIC X(01).
BLF=00003+170,0000170 1C
000344C
15 TBLA-1-LIMITS
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9. 00142003 BLF=00002+3FC,00003FC 17C
NOCICS
NOEXPORTALL
000364C
10 TBLA-1-CEDED-PAID-LOSS-PRIOR
00123438 BLF=00002+4A8,00004A8 21C
000334C
15 TBLA-FILL54-55
PIC X(01).
BLF=00002+3C0,00003C0 1C
000324C
INDEXED BY TBLA-RIX.
IDX=00001+000
-+----8 Map and Cross Reference
000221C
10 TBLA-BILL-YEAR
PIC 9(04).
BLF=00002+006,0000006 4C
000311C
05 TBLA-CEDED-PAID-EXP-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+313,0000313 21C
000331C
10 TBLA-FILL53
PIC X(01).
BLF=00002+3BC,00003BC 1C
000456C
05 TBLB-FILL25
PIC X(01).
BLF=00003+133,0000133 1C
000353C
10 TBLA-1-CEDED-OS-LOSS-CURR
00123238 BLF=00002+43A,000043A 21C
000055
BLOCK CONTAINS 0 RECORDS
000208C
******************************************************************
000376C
10 TBLA-1-CEDED-PAID-EXP-CURR
00123438 BLF=00002+500,0000500 21C
000050
000103C
10 TBBL-POLICY-EXP-MONTH PIC 9(02).
BLF=00001+0D3,00000D3 2C
000430C
05 TBLB-REINS-CLAIM
PIC X(12).
BLF=00003+0B9,00000B9 12C
000466C
05 TBLB-FILL30
PIC X(01).
BLF=00003+1C8,00001C8 1C
000171C
05 TBBL-FILL50
PIC X(01).
BLF=00001+282,0000282 1C
NOSSRANGE
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1
TCXXXXX Date 04/15/2010 Time 09:29:56 Page
5
000256C
10 TBLA-POLICY-EFF-MONTH
PIC 9(02).
BLF=00002+0E1,00000E1 2C
000481C
05 TBLB-DIRECT-PAID-EXP-TOTAL PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+263,0000263 21C
000348C
15 TBLA-1-RETENTION
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9. 00123638 BLF=00002+412,0000412 17C
000325C
10 TBLA-FILL50
PIC X(01).
BLF=00002+380,0000380 1C
000159C
05 TBBL-DIRECT-CURR-PTD
PIC S9(13)V99 COMP-3.
00123000 BLF=00001+21F,000021F 8P
000018
000133C
05 TBBL-DIRECT-OS-LOSS-PRIOR PIC S9(13)V99 COMP-3.
00123000 BLF=00001+1AA,00001AA 8P
000367C
10 TBLA-1-CEDED-PAID-LOSS-CURR
00123438 BLF=00002+4BE,00004BE 21C
000501C
05 TBLB-CEDED-PREV-BTD
PIC Z,ZZZ
000113C 10 TBBL-FILL22 PIC X(03). 00142003 BLF=00001+108,0000108 3C
000161C 05 TBBL-TOTAL-PAID PIC S9(13)V99 COMP-3. 00123000 BLF=00001+228,0000228 8P
0 000101C 10 TBBL-POLICY-EXP-YEAR PIC 9(04). BLF=00001+0CE,00000CE 4C
DATA(31)
000295C 05 TBLA-DIRECT-PAID-EXP-TOTAL PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+263,0000263 21C
000287C 05 TBLA-DIRECT-PAID-LOSS-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+20B,000020B 21C
000147C 05 TBBL-DIRECT-PAID-LOSS-CURR PIC S9(13)V99 COMP-3. 00123000 BLF=00001+1E9,00001E9 8P
000490C 05 TBLB-FILL42 PIC X(01). BLF=00003+2D0,00002D0 1C
000282C 05 TBLA-FILL31 PIC X(01). BLF=00002+1DE,00001DE 1C
000275C 05 TBLA-DIRECT-OS-LOSS-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+187,0000187 21C
000212C * THE NO OF REINSURERS *
000493C 05 TBLB-CEDED-PAID-LOSS-TOTAL PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00003+2E7,00002E7 21C
000291C 05 TBLA-DIRECT-PAID-EXP-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+237,0000237 21C
000424C 10 TBLB-ZIP-CODE PIC X(09). 00142118 BLF=00003+08A,000008A 9C
000231C 05 TBLA-ADDRESS-LINE-2 PIC X(25). 00140003 BLF=00002+055,0000055 25C
000206 RECORDING MODE IS V.
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7 000356C 10 TBLA-1-CEDED-OS-EXP-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123238 BLF=00002+450,0000450 21C
000492C 05 TBLB-FILL43 PIC X(01). BLF=00003+2E6,00002E6 1C
000473C 05 TBLB-DIRECT-PAID-LOSS-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+20B,000020B 21C
000306C 05 TBLA-FILL43 PIC X(01). BLF=00002+2E6,00002E6 1C
000271C 05 TBLA-LOSS-DESC-2 PIC X(60). 00122400 BLF=00002+134,0000134 60C
000067C 10 TBBL-FILL1 PIC X(01). BLF=00001+004,0000004 1C
000362C 10 TBLA-1-CEDED-CURR-RES PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123338 BLF=00002+492,0000492 21C
000488C 05 TBLB-FILL41 PIC X(01). BLF=00003+2BA,00002BA 1C
000192C 05 TBBL-CEDED-PAID-EXP-CURR PIC S9(13)V99 COMP-3. 00123438 BLF=00001+2DD,00002DD 8P
000399C * WMS : J22290AA *
0 SIZE(MAX)
000131C 05 TBBL-CLAIM-TYPE PIC X(5). 00122500 BLF=00001+1A4,00001A4 5C
000285C 05 TBLA-DIRECT-PAID-LOSS-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+1F5,00001F5 21C
000468C 05 TBLB-FILL31 PIC X(01). BLF=00003+1DE,00001DE 1C
000126C 10 TBBL-FILL28 PIC X(01). BLF=00001+19D,000019D 1C
000002 PROGRAM-ID. TCXXXXX. CVDBAU03
000019 SELECT LOOKUP ASSIGN DA-LOOKUP CVDBAU03 46
PGMNAME(COMPAT)
000401C 01 TBLB-BILLOUT-REC. BLF=00003+000 0CL3361
000307C 05 TBLA-CEDED-PAID-LOSS-TOTAL PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+2E7,00002E7 21C
000420C 10 TBLB-CITY PIC X(23). 00142003 BLF=00003+06F,000006F 23C
000152C 05 TBBL-FILL41 PIC X(01). BLF=00001+203,0000203 1C
000369C 10 TBLA-FILL68 PIC X(01). BLF=00002+4D3,00004D3 1C
000191C 05 TBBL-FILL60 PIC X(01). BLF=00001+2DC,00002DC 1C
000347C 15 TBLA-FILL59 PIC X(02). BLF=00002+410,0000410 2C
NOSQL
000193C 05 TBBL-FILL61 PIC X(01). BLF=00001+2E5,00002E5 1C
000434C 10 TBLB-FILL16 PIC X(01). BLF=00003+0C8,00000C8 1C
0 000328C 10 TBLA-1-CEDANT-POLICY-NUM PIC X(15). 00122500 BLF=00002+38E,000038E 15C
000236C 10 TBLA-STATE-PROVINCE PIC X(02). 00142003 BLF=00002+087,0000087 2C
000125C 10 TBBL-LOSS-YEAR PIC 9(04). BLF=00001+199,0000199 4C
000394C ******************************************************************
000083C 10 TBBL-CITY PIC X(23). 00142003 BLF=00001+06F,000006F 23C
000127C 10 TBBL-LOSS-MONTH PIC 9(02). BLF=00001+19E,000019E 2C
0 000442C 10 TBLB-POLICY-EFF-MONTH PIC 9(02). BLF=00003+0E1,00000E1 2C
000375C 10 TBLA-FILL70 PIC X(01). BLF=00002+4FF,00004FF 1C
000117C 10 TBBL-FILL24 PIC X(02). BLF=00001+115,0000115 2C
000162C 05 TBBL-FILL46 PIC X(01). BLF=00001+230,0000230 1C
NOOFFSET
000022 RECORD KEY IS LOOKUP-KEY CVDBAU03 48
000433C 10 TBLB-LOSS-MONTH PIC 9(02). BLF=00003+0C6,00000C6 2C
000097C 10 TBBL-FILL15 PIC X(01). BLF=00001+0CA,00000CA 1C
000135C 05 TBBL-DIRECT-OS-LOSS-CURR PIC S9(13)V99 COMP-3. 00123000 BLF=00001+1B3,00001B3 8P
000226C 05 TBLA-FILL4 PIC X(01). BLF=00002+01B,000001B 1C
0PROCESS(CBL) statements:
LANGUAGE(EN)
000174C 05 TBBL-CEDED-OS-LOSS-CURR PIC S9(13)V99 COMP-3. 00123238 BLF=00001+28C,000028C 8P
000143C 05 TBBL-DIRECT-CURR-RES PIC S9(13)V99 COMP-3. 00123000 BLF=00001+1D7,00001D7 8P
000460C 05 TBLB-FILL27 PIC X(01). BLF=00003+186,0000186 1C
000469C 05 TBLB-DIRECT-CURR-RES PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+1DF,00001DF 21C
000041 FILE STATUS IS BILLEXT-STATUS. 1331
000141C 05 TBBL-DIRECT-PREV-RES PIC S9(13)V99 COMP-3. 00123000 BLF=00001+1CE,00001CE 8P
000416C 05 TBLB-FILL6 PIC X(01). BLF=00003+054,0000054 1C
000084C 10 TBBL-FILL9 PIC X(01). 00142003 BLF=00001+086,0000086 1C
NOTHREAD
000005 ****************** CUSTOM PROGRAM ********************************
000056 DATA RECORD IS INPUT-REC. *
000016 SELECT BILLIN ASSIGN DA-BILLIN 51
000477C 05 TBLB-DIRECT-PAID-EXP-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+237,0000237 21C
000320C 05 TBLA-TOTAL-BILLED PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+36B,000036B 21C
NOVBREF
000064C 01 TBBL-BILLING-REC. BLF=00001+000 0CL777
IGYOS4046-I The "RESIDENT" option specification is no longer required. The resident runtime library support is always
000015 FILE-CONTROL. CVDBAU03
000044 FILE SECTION. CVDBAU03
000253C 05 TBLA-CEDANT-POLICY-NUM PIC X(15). 00122500 BLF=00002+0D1,00000D1 15C
000234C 10 TBLA-CITY PIC X(23). 00142003 BLF=00002+06F,000006F 23C
000326C 10 TBLA-1-REINS-CLAIM PIC X(12). BLF=00002+381,0000381 12C
000043 DATA DIVISION. CVDBAU03
000096C 10 TBBL-POLICY-EFF-MONTH PIC 9(02). BLF=00001+0C8,00000C8 2C
000448C 05 TBLB-POLICY-EXP-DATE. 00122332 BLF=00003+0EC,00000EC 0CL10
000119C 05 TBBL-FILL25 PIC X(01). BLF=00001+11E,000011E 1C
000358C 10 TBLA-1-CEDED-OS-EXP-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123338 BLF=00002+466,0000466 21C
-Options in effect:
000474C 05 TBLB-FILL34 PIC X(01). BLF=00003+220,0000220 1C
000184C 05 TBBL-CEDED-PAID-LOSS-PRIOR PIC S9(13)V99 COMP-3. 00123438 BLF=00001+2B9,00002B9 8P
000045 CVDBAU03
000303C 05 TBLA-CEDED-PAID-LOSS-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+2BB,00002BB 21C
000284C 05 TBLA-FILL32 PIC X(01). BLF=00002+1F4,00001F4 1C
000132C 05 TBBL-FILL31 PIC X(01). BLF=00001+1A9,00001A9 1C
000099C 05 TBBL-FILL16 PIC X(01). BLF=00001+0CD,00000CD 1C
000122C 05 TBBL-LOSS-DESC-2 PIC X(60). 00122400 BLF=00001+15C,000015C 60C
000397C * COPYBOOK FOR BILLOUT RECORD FOR BROKERED CLAIMS BASED ON *
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7 000094C 10 TBBL-POLICY-EFF-YEAR PIC 9(04). BLF=00001+0C3,00000C3 4C
000495C 05 TBLB-CEDED-PAID-EXP-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00003+2FD,00002FD 21C
NODATEPROC
000315C 05 TBLA-CEDED-PREV-BTD PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+33F,000033F 21C
000129C 10 TBBL-LOSS-DAY PIC 9(02). BLF=00001+1A1,00001A1 2C
XREF(FULL)
000176C 05 TBBL-CEDED-OS-EXP-PRIOR PIC S9(13)V99 COMP-3. 00123238 BLF=00001+295,0000295 8P
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 Date 04/15/2010 Time 09:29:56 Page 2
000068C 10 TBBL-BILL-MONTH PIC 9(02). BLF=00001+005,0000005 2C
000086C 10 TBBL-FILL10 PIC X(01). BLF=00001+089,0000089 1C
000223C 05 TBLA-CLAIM-NUM PIC X(07). BLF=00002+00B,000000B 7C
IGYOS4022-W The "OFFSET" option was discarded due to option conflict resolution. The "LIST" option from "PROCESS/CBL"
000419C 05 TBLB-CITY-STATE. 00141003 BLF=00003+06F,000006F 0CL36
000292C 05 TBLA-FILL36 PIC X(01). BLF=00002+24C,000024C 1C
000198C 05 TBBL-CEDED-CURR-BTD PIC S9(13)V99 COMP-3. 00123438 BLF=00001+2F8,00002F8 8P
000200C 05 TBBL-TOTAL-BILLED PIC S9(13)V99 COMP-3. 00123438 BLF=00001+301,0000301 8P
ZWB
000115C 10 TBBL-FILL23 PIC X(01). BLF=00001+112,0000112 1C
SOURCE
SPACE(1)
000380C PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438
000283C 05 TBLA-DIRECT-CURR-RES PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+1DF,00001DF 21C
000304C 05 TBLA-FILL42 PIC X(01). BLF=00002+2D0,00002D0 1C
000279C 05 TBLA-DIRECT-OS-LAE-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+1B3,00001B3 21C
000214C ******************************************************************
000264C 10 TBLA-FILL23 PIC X(01). BLF=00002+0EE,00000EE 1C
000120C 05 TBBL-LOSS-DESC-1 PIC X(60). 00122400 BLF=00001+11F,000011F 60C
000146C 05 TBBL-FILL38 PIC X(01). BLF=00001+1E8,00001E8 1C
000244C 05 TBLA-REINS-CLAIM PIC X(12). BLF=00002+0B9,00000B9 12C
000188C 05 TBBL-CEDED-PAID-LOSS-TOTAL PIC S9(13)V99 COMP-3. 00123438 BLF=00001+2CB,00002CB 8P
000361C 10 TBLA-FILL65 PIC X(01). BLF=00002+491,0000491 1C
000412C 05 TBLB-FILL4 PIC X(01). BLF=00003+01B,000001B 1C
000392 RECORDING MODE IS V.
000168C 10 TBBL-TREATY-NAME PIC X(30). BLF=00001+254,0000254 30C
000288C 05 TBLA-FILL34 PIC X(01). BLF=00002+220,0000220 1C
000410C 05 TBLB-FILL3 PIC X(01). BLF=00003+012,0000012 1C
000246C 05 TBLA-LOSS-DATE. 00122200 BLF=00002+0C6,00000C6 0CL10
000032 FILE STATUS IS BILLOUT3-STATUS. 1328
000254C 05 TBLA-FILL18 PIC X(01). BLF=00002+0E0,00000E0 1C
000071C 05 TBBL-FILL3 PIC X(01). BLF=00001+00A,000000A 1C
000107C 05 TBBL-REINS-CLAIM PIC X(12). BLF=00001+0D9,00000D9 12C
000312C 05 TBLA-FILL46 PIC X(01). BLF=00002+328,0000328 1C
000373C 10 TBLA-1-CEDED-PAID-EXP-PRIOR 00123438 BLF=00002+4EA,00004EA 21C
000012 SOURCE-COMPUTER. IBM-370-168. CVDBAU03
000459C 05 TBLB-DIRECT-OS-LOSS-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+171,0000171 21C
[code:1:8cf846cafa]1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 Date 04/15/2010 Time 09:29:56 Page 1
000370C 10 TBLA-1-CEDED-PAID-LOSS-TOTAL 00123438 BLF=00002+4D4,00004D4 21C
statement took precedence.
NOEXIT
000014 INPUT-OUTPUT SECTION. CVDBAU03
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7 000280C 05 TBLA-FILL30 PIC X(01). BLF=00002+1C8,00001C8 1C
000217C 10 TBLA-BILL-MONTH PIC 9(02). BLF=00002+000,0000000 2C
NONUMBER
000345C 15 TBLA-FILL58 PIC X(01). BLF=00002+40D,000040D 1C
NOTEST
000413C 05 TBLB-BILLTO PIC X(30). 00123838 BLF=00003+01C,000001C 30C
000229C 05 TBLA-ADDRESS-LINE-1 PIC X(25). 00131009 BLF=00002+03B,000003B 25C
000463C 05 TBLB-DIRECT-OS-LAE-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+19D,000019D 21C
000354C PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123238
0 000272C 05 TBLA-FILL26 PIC X(01). BLF=00002+170,0000170 1C
000452C 10 TBLB-FILL22 PIC X(01). BLF=00003+0F1,00000F1 1C
000205 DATA RECORD IS OUTPUT-REC *
NOFASTSRT
000049 05 FILLER PIC X(88). BLF=00000+00C,000000C 88C
000140C 05 TBBL-FILL35 PIC X(01). BLF=00001+1CD,00001CD 1C
000004 ******************************************************************
000166C 10 TBBL-TREATY-NUM PIC X(03). BLF=00001+250,0000250 3C
000230C 05 TBLA-FILL6 PIC X(01). BLF=00002+054,0000054 1C
000398C * THE NO OF REINSURERS *
000316C 05 TBLA-FILL48 PIC X(01). BLF=00002+354,0000354 1C
000204 BLOCK CONTAINS 0 RECORDS
000039
000190C 05 TBBL-CEDED-PAID-EXP-PRIOR PIC S9(13)V99 COMP-3. 00123438 BLF=00001+2D4,00002D4 8P
NOAWO
000222C 05 TBLA-FILL0 PIC X(01). BLF=00002+00A,000000A 1C
TRUNC(BIN)
MAP
NOTERM
000383C 10 TBLA-FILL73 PIC X(01). BLF=00002+541,0000541 1C
000183C 05 TBBL-FILL56 PIC X(01). BLF=00001+2B8,00002B8 1C
000242C 05 TBLA-CLAIM-TYPE PIC X(5). 00122500 BLF=00002+0B3,00000B3 5C
000177C 05 TBBL-FILL53 PIC X(01). BLF=00001+29D,000029D 1C
LIST
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 TCXXXXX Date 04/15/2010 Time 09:29:56 Page 3
000006 ******************************************************************
000216C 05 TBLA-BILL-DATE. 00122332 BLF=00002+000,0000000 0CL10
000024
NOTEST,NOXREF,NOMAP,NOLIST,LIB,DATA(31),NOADV,TRUNC(BIN),RES,OFFSET,APOST
000255C 05 TBLA-POLICY-EFF-DATE. 00122332 BLF=00002+0E1,00000E1 0CL10
000138C 05 TBBL-FILL34 PIC X(01). BLF=00001+1C4,00001C4 1C
000218C 10 TBLA-FILL2 PIC X(01). BLF=00002+002,0000002 1C
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 TCXXXXX Date 04/15/2010 Time 09:29:56 Page 7
000352C 10 TBLA-FILL61 PIC X(01). BLF=00002+439,0000439 1C
000438C 05 TBLB-FILL17 PIC X(01). BLF=00003+0D0,00000D0 1C
000476C 05 TBLB-FILL35 PIC X(01). BLF=00003+236,0000236 1C
000179C 05 TBBL-FILL54 PIC X(01). BLF=00001+2A6,00002A6 1C
FLAG(I,I)
000075C 05 TBBL-FILL5 PIC X(01). BLF=00001+01B,000001B 1C
NODYNAM
000211C * COPYBOOK FOR BILLOUT RECORD FOR BROKERED CLAIMS BASED ON *
000112C 10 TBBL-CEDED-PER PIC 9(03)V99 COMP-3. 00142003 BLF=00001+105,0000105 3P
000436C 10 TBLB-FILL15 PIC X(01). BLF=00003+0CB,00000CB 1C
000085C 10 TBBL-STATE-PROVINCE PIC X(02). 00142003 BLF=00001+087,0000087 2C
000408C 05 TBLB-FILL0 PIC X(01). BLF=00003+00A,000000A 1C
000351C PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123238
000182C 05 TBBL-CEDED-CURR-RES PIC S9(13)V99 COMP-3. 00123338 BLF=00001+2B0,00002B0 8P
000237C 10 TBLA-FILL9 PIC X(01). BLF=00002+089,0000089 1C
000058C ******************************************************************
000017 FILE STATUS IS BILLIN-STATUS. 1324
000142C 05 TBBL-FILL36 PIC X(01). BLF=00001+1D6,00001D6 1C
000160C 05 TBBL-FILL45 PIC X(01). BLF=00001+227,0000227 1C
000194C 05 TBBL-CEDED-PAID-EXP-TOTAL PIC S9(13)V99 COMP-3. 00123438 BLF=00001+2E6,00002E6 8P
000378C 10 TBLA-FILL71 PIC X(01). BLF=00002+515,0000515 1C
000026 FILE STATUS IS BILLOUT1-STATUS. 1326
000269C 05 TBLA-LOSS-DESC-1 PIC X(60). 00122400 BLF=00002+0F7,00000F7 60C
000400C ******************************************************************
000411C 05 TBLB-BILL-NUM PIC Z(07)9. BLF=00003+013,0000013 8C
000175C 05 TBBL-FILL52 PIC X(01). BLF=00001+294,0000294 1C
SQLCCSID
NUMPROC(NOPFD)
000446C 10 TBLB-POLICY-EFF-YEAR PIC 9(04). BLF=00003+0E7,00000E7 4C
000418C 05 TBLB-FILL7 PIC X(01). BLF=00003+06E,000006E 1C
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7 000335C 15 TBLA-1-TREATY-NAME PIC X(30). BLF=00002+3C1,00003C1 30C
000423C 10 TBLB-FILL9 PIC X(01). BLF=00003+089,0000089 1C
000010 ENVIRONMENT DIVISION. CVDBAU03
000165C 05 TBBL-TREATY. 00121732 BLF=00001+250,0000250 0CL34
000355C 10 TBLA-FILL62 PIC X(01). BLF=00002+44F,000044F 1C
000391 DATA RECORD IS BILLIN-REC *
-+----8 Map and Cross Reference
000066C 10 TBBL-BILL-YEAR PIC 9(04). BLF=00001+000,0000000 4C
000500C 05 TBLB-FILL47 PIC X(01). BLF=00003+33E,000033E 1C
000257C 10 TBLA-FILL20 PIC X(01). BLF=00002+0E3,00000E3 1C
000210C ******************************************************************
000149C 05 TBBL-DIRECT-PAID-LOSS-TOTAL PIC S9(13)V99 COMP-3. 00123000 BLF=00001+1F2,00001F2 8P
000374C PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438
000034 SELECT BILLOUT4 ASSIGN DA-BILLOUT4 CVDBAU03 760
000359C 10 TBLA-FILL64 PIC X(01). BLF=00002+47B,000047B 1C
000130C 05 TBBL-FILL30 PIC X(01). BLF=00001+1A3,00001A3 1C
NODUMP
000076C 05 TBBL-BILLTO PIC X(30). 00123838 BLF=00001+01C,000001C 30C
000243C 05 TBLA-FILL13 PIC X(01). BLF=00002+0B8,00000B8 1C
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7-+----8 Map and Cross Reference
000030
COMPILE
000235C 10 TBLA-FILL8 PIC X(01). 00142003 BLF=00002+086,0000086 1C
000036
000337C 10 TBLA-1-CEDANT-CERT-NUM PIC X(15). 00122009 BLF=00002+3E0,00003E0 15C
000302C 05 TBLA-FILL41 PIC X(01). BLF=00002+2BA,00002BA 1C
000294C 05 TBLA-FILL37 PIC X(01). BLF=00002+262,0000262 1C
000013 OBJECT-COMPUTER. IBM-370-168. CVDBAU03
318
000273C 05 TBLA-DIRECT-OS-LOSS-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+171,0000171 21C
000116C 10 TBBL-REINS-TYPE PIC X(02). 00142118 BLF=00001+113,0000113 2C
000060C ******************************************************************
000061C * COPYBOOK FOR BILLING RECORD FILE USED FOR FACULTATIVE BILLING *
000478C 05 TBLB-FILL36 PIC X(01). BLF=00003+24C,000024C 1C
000437C 10 TBLB-LOSS-YEAR PIC 9(04). BLF=00003+0CC,00000CC 4C
000110C 05 TBBL-FILL21 PIC X(01). BLF=00001+104,0000104 1C
000462C 05 TBLB-FILL28 PIC X(01). BLF=00003+19C,000019C 1C
-+----8 Map and Cross Reference
000046 FD LOOKUP.
000040 SELECT BILLEXT ASSIGN DA-BILLEXT CVDBAU03 1133
000124C 05 TBBL-LOSS-DATE. 00122200 BLF=00001+199,0000199 0CL10
000281C 05 TBLA-DIRECT-PREV-RES PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+1C9,00001C9 21C
000321C 05 TBLA-REINSURER-ARRAY BLF=00002+380,0000380 0CL493
000007 *REMARKS. TO CLASSIFY BILLED BROKERED CLAIMS BASED UPON THE NO. *
000072C 05 TBBL-CLAIM-NUM PIC X(07). BLF=00001+00B,000000B 7C
-+----8 Map and Cross Reference
000261C 05 TBLA-FILL21 PIC X(01). BLF=00002+0EB,00000EB 1C
000422C 10 TBLB-STATE-PROVINCE PIC X(02). 00142003 BLF=00003+087,0000087 2C
000360C 10 TBLA-1-CEDED-PREV-RES PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123338 BLF=00002+47C,000047C 21C
000025 SELECT BILLOUT1 ASSIGN DA-BILLOUT1 CVDBAU03 202
000377C PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438
000346C 15 TBLA-1-REINS-TYPE PIC X(02). 00142118 BLF=00002+40E,000040E 2C
000491C 05 TBLB-CEDED-PAID-LOSS-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00003+2D1,00002D1 21C
000286C 05 TBLA-FILL33 PIC X(01). BLF=00002+20A,000020A 1C
000081C 05 TBBL-FILL8 PIC X(01). BLF=00001+06E,000006E 1C
000342C 15 TBLA-1-REINS-TYPE-X PIC X(02). 00142118 BLF=00002+3F8,00003F8 2C
000340C 15 TBLA-1-CEDED-PER PIC ZZ9.99. 00142003 BLF=00002+3F0,00003F0 6C
000475C 05 TBLB-DIRECT-PAID-LOSS-TOTAL PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+221,0000221 21C
000251C 10 TBLA-LOSS-YEAR PIC 9(04). BLF=00002+0CC,00000CC 4C
000209C ****************** CUSTOM COPYBOOK *******************************
-+----8 Map and Cross Reference
000157C 05 TBBL-DIRECT-PREV-PTD PIC S9(13)V99 COMP-3. 00123000 BLF=00001+216,0000216 8P
0 000499C 05 TBLB-CEDED-PAID-EXP-TOTAL PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00003+329,0000329 21C
000314C 05 TBLA-FILL47 PIC X(01). BLF=00002+33E,000033E 1C
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 TCXXXXX Date 04/15/2010 Time 09:29:56 Page 10
000277C 05 TBLA-DIRECT-OS-LAE-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+19D,000019D 21C
YEARWINDOW(1900)
000088C 05 TBBL-FILL11 PIC X(01). BLF=00001+093,0000093 1C
000239C 05 TBLA-FILL10 PIC X(01). BLF=00002+093,0000093 1C
000121C 05 TBBL-FILL26 PIC X(01). BLF=00001+15B,000015B 1C
000443C 10 TBLB-FILL20 PIC X(01). BLF=00003+0E3,00000E3 1C
000052 RECORDING MODE IS F
000421C 10 TBLB-FILL8 PIC X(01). 00142003 BLF=00003+086,0000086 1C
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7 000485C 05 TBLB-DIRECT-CURR-PTD PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+28F,000028F 21C
000080C 05 TBBL-ADDRESS-LINE-2 PIC X(25). 00140003 BLF=00001+055,0000055 25C
000003 AUTHOR. CTS.
000379C 10 TBLA-1-CEDED-PAID-EXP-TOTAL 00123438 BLF=00002+516,0000516 21C
000114C 10 TBBL-LIMITS PIC S9(13) COMP-3. 00142003 BLF=00001+10B,000010B 7P
000180C 05 TBBL-CEDED-PREV-RES PIC S9(13)V99 COMP-3. 00123338 BLF=00001+2A7,00002A7 8P
000089C 05 TBBL-CEDANT-POLICY-NUM PIC X(15). 00122500 BLF=00001+094,0000094 15C
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 TCXXXXX Date 04/15/2010 Time 09:29:56 Page 8
000441C 05 TBLB-POLICY-EFF-DATE. 00122332 BLF=00003+0E1,00000E1 0CL10
000449C 10 TBLB-POLICY-EXP-MONTH PIC 9(02). BLF=00003+0EC,00000EC 2C
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7 000387
000386C 10 TBLA-1-TOTAL-BILLED PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+558,0000558 21C
000074C 05 TBBL-BILL-NUM PIC Z(07)9. BLF=00001+013,0000013 8C
000169C 05 TBBL-FILL49 PIC X(01). BLF=00001+272,0000272 1C
000031 SELECT BILLOUT3 ASSIGN DA-BILLOUT3 CVDBAU03 574
000065C 05 TBBL-BILL-DATE. 00122332 BLF=00001+000,0000000 0CL10
000227C 05 TBLA-BILLTO PIC X(30). 00123838 BLF=00002+01C,000001C 30C
000027
000185C 05 TBBL-FILL57 PIC X(01). BLF=00001+2C1,00002C1 1C
000268C 05 TBLA-FILL24 PIC X(01). BLF=00002+0F6,00000F6 1C
000371C PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438
NONAME
000267C 10 TBLA-POLICY-EXP-YEAR PIC 9(04). BLF=00002+0F2,00000F2 4C
000429C 05 TBLB-FILL13 PIC X(01). BLF=00003+0B8,00000B8 1C
000128C 10 TBBL-FILL29 PIC X(01). BLF=00001+1A0,00001A0 1C
000365C PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438
NSYMBOL(DBCS)
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7 000009 ******************************************************************
NODIAGTRUNC
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1 TCXXXXX Date 04/15/2010 Time 09:29:56 Page 9
000368C PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438
000484C 05 TBLB-FILL39 PIC X(01). BLF=00003+28E,000028E 1C
000028 SELECT BILLOUT2 ASSIGN DA-BILLOUT2 CVDBAU03 388
000245C 05 TBLA-FILL14 PIC X(01). BLF=00002+0C5,00000C5 1C
000372C 10 TBLA-FILL69 PIC X(01). BLF=00002+4E9,00004E9 1C
000144C 05 TBBL-FILL37 PIC X(01). BLF=00001+1DF,00001DF 1C
000350C 10 TBLA-1-CEDED-OS-LOSS-PRIOR 00123238 BLF=00002+424,0000424 21C
000091C 05 TBBL-INSURED-NAME PIC X(30). 00122400 BLF=00001+0A4,00000A4 30C
000260C 10 TBLA-POLICY-EFF-YEAR PIC 9(04). BLF=00002+0E7,00000E7 4C
000427C 05 TBLB-FILL11 PIC X(01). BLF=00003+0B2,00000B2 1C
000470C 05 TBLB-FILL32 PIC X(01). BLF=00003+1F4,00001F4 1C
Marso, I searched the dump with the offset 12DC but I don't see any verb or line no next to it.
000357C
10 TBLA-FILL63
PIC X(01).
BLF=00002+465,0000465 1C
000480C
05 TBLB-FILL37
PIC X(01).
BLF=00003+262,0000262 1C
000381C
10 TBLA-FILL72
PIC X(01).
BLF=00002+52B,000052B 1C
000057
COPY TRC052A REPLACING ==:TBBL:== BY ==TBBL==.
000432C
05 TBLB-LOSS-DATE.
00122200 BLF=00003+0C6,00000C6 0CL10
0Invocation parameters:
000382C
10 TBLA-1-CEDED-PREV-BTD PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+52C,000052C 21C
000262C
05 TBLA-POLICY-EXP-DATE.
00122332 BLF=00002+0EC,00000EC 0CL10
000322C
OCCURS 1 TO 05 TIMES
000396C
******************************************************************
000201
000308C
05 TBLA-FILL44
PIC X(01).
BLF=00002+2FC,00002FC 1C
000453C
10 TBLB-POLICY-EXP-YEAR
PIC 9(04).
BLF=00003+0F2,00000F2 4C
BUFSIZE(4096)
000053
LABEL RECORD IS STANDARD
000156C
05 TBBL-FILL43
PIC X(01).
BLF=00001+215,0000215 1C
000247C
10 TBLA-LOSS-MONTH
PIC 9(02).
BLF=00002+0C6,00000C6 2C
000062C
*
WMS : F18869AT
*
000276C
05 TBLA-FILL28
PIC X(01).
BLF=00002+19C,000019C 1C
000317C
05 TBLA-CEDED-CURR-BTD
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+355,0000355 21C
000327C
10 TBLA-FILL51
PIC X(01).
BLF=00002+38D,000038D 1C
000228C
05 TBLA-FILL5
PIC X(01).
BLF=00002+03A,000003A 1C
000445C
10 TBLB-FILL19
PIC X(01).
BLF=00003+0E6,00000E6 1C
000092C
05 TBBL-FILL13
PIC X(01).
BLF=00001+0C2,00000C2 1C
0 000215C
01 TBLA-BILLOUT-REC.
BLF=00002+000
0CL3361
000278C
05 TBLA-FILL29
PIC X(01).
BLF=00002+1B2,00001B2 1C
000207
COPY TRC052B REPLACING ==:COM:== BY ==TBLA==.
000388
FD BILLOUT2
000440C
05 TBLB-FILL18
PIC X(01).
BLF=00003+0E0,00000E0 1C
000073C
05 TBBL-FILL4
PIC X(01).
BLF=00001+012,0000012 1C
000425C
05 TBLB-FILL10
PIC X(01).
BLF=00003+093,0000093 1C
000319C
05 TBLA-REINS-COUNT REDEFINES TBLA-FILL49 PIC 9(01).
00123438 BLF=00002+36A,000036A 1C
000078C
05 TBBL-ADDRESS-LINE-1
PIC X(25).
00131009 BLF=00001+03B,000003B 25C
000403C
10 TBLB-BILL-MONTH
PIC 9(02).
BLF=00003+000,0000000 2C
000109C
05 TBBL-CLAIMANT-NAME
PIC X(30).
00122400 BLF=00001+0E6,00000E6 30C
000339C
10 TBLA-1-TERMS.
00141003 BLF=00002+3F0,00003F0 0CL51
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1
TCXXXXX Date 04/15/2010 Time 09:29:56 Page
4
000472C
05 TBLB-FILL33
PIC X(01).
BLF=00003+20A,000020A 1C
NOWORD
APOST
000406C
10 TBLB-FILL1
PIC X(01).
BLF=00003+005,0000005 1C
000195C
05 TBBL-FILL62
PIC X(01).
BLF=00001+2EE,00002EE 1C
000199C
05 TBBL-FILL64
PIC X(01).
BLF=00001+300,0000300 1C
000240C
05 TBLA-INSURED-NAME
PIC X(30).
00122400 BLF=00002+094,0000094 30C
000148C
05 TBBL-FILL39
PIC X(01).
BLF=00001+1F1,00001F1 1C
000451C
10 TBLB-POLICY-EXP-DAY
PIC 9(02).
BLF=00003+0EF,00000EF 2C
000332C
10 TBLA-1-TREATY.
00121732 BLF=00002+3BD,00003BD 0CL34
000390
BLOCK CONTAINS 0 RECORDS
000187C
05 TBBL-FILL58
PIC X(01).
BLF=00001+2CA,00002CA 1C
RENT
000464C
05 TBLB-FILL29
PIC X(01).
BLF=00003+1B2,00001B2 1C
000178C
05 TBBL-CEDED-OS-EXP-CURR
PIC S9(13)V99 COMP-3.
00123338 BLF=00001+29E,000029E 8P
NOADATA
NOMDECK
000349C
10 TBLA-FILL60
PIC X(01).
BLF=00002+423,0000423 1C
000289C
05 TBLA-DIRECT-PAID-LOSS-TOTAL PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+221,0000221 21C
000305C
05 TBLA-CEDED-PAID-LOSS-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+2D1,00002D1 21C
000070C
10 TBBL-BILL-DAY
PIC 9(02).
BLF=00001+008,0000008 2C
000439C
05 TBLB-CEDANT-POLICY-NUM
PIC X(15).
00122500 BLF=00003+0D1,00000D1 15C
000059C
****************** CUSTOM COPYBOOK *******************************
000471C
05 TBLB-DIRECT-PAID-LOSS-PRIOR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+1F5,00001F5 21C
NOCURRENCY
000151C
05 TBBL-DIRECT-PAID-EXP-PRIOR PIC S9(13)V99 COMP-3.
00123000 BLF=00001+1FB,00001FB 8P
000203
LABEL RECORD IS STANDARD
000313C
05 TBLA-CEDED-PAID-EXP-TOTAL PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00002+329,0000329 21C
000497C
05 TBLB-CEDED-PAID-EXP-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123438 BLF=00003+313,0000313 21C
000293C
05 TBLA-DIRECT-PAID-EXP-CURR PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+24D,000024D 21C
000029
FILE STATUS IS BILLOUT2-STATUS.
1327
NOFLAGSTD
000274C
05 TBLA-FILL27
PIC X(01).
BLF=00002+186,0000186 1C
000487C
05 TBLB-TOTAL-PAID
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00003+2A5,00002A5 21C
000106C
05 TBBL-FILL19
PIC X(01).
BLF=00001+0D8,00000D8 1C
OUTDD(SYSOUT)
000220C
10 TBLA-FILL1
PIC X(01).
BLF=00002+005,0000005 1C
000389
LABEL RECORD IS STANDARD
000233C
05 TBLA-CITY-STATE.
00141003 BLF=00002+06F,000006F 0CL36
000213C
* WMS : J22290AA
*
000301C
05 TBLA-TOTAL-PAID
PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-. 00123000 BLF=00002+2A5,00002A5 21C
000417C
05 TBLB-ADDRESS-LINE-2
PIC X(25).
00140003 BLF=00003+055,0000055 25C
CBL LIST XREF MAP
LIB
000447C
05 TBLB-FILL21
PIC X(01).
BLF=00003+0EB,00000EB 1C
000318C
05 TBLA-FILL49
PIC X(01).
BLF=00002+36A,000036A 1C
000136C
05 TBBL-FILL33
PIC X(01).
BLF=00001+1BB,00001BB 1C
000150C
05 TBBL-FILL40
PIC X(01).
BLF=00001+1FA,00001FA 1C
000225C
05 TBLA-BILL-NUM
PIC Z(07)9.
BLF=00002+013,0000013 8C
000343C
15 TBLA-FILL59-X
PIC X(02).
BLF=00002+3FA,00003FA 2C
000189C
05 TBBL-FILL59
PIC X(01).
BLF=00001+2D3,00002D3 1C
000082C
05 TBBL-CITY-STATE.
00141003 BLF=00001+06F,000006F 0CL36
1PP 5655-G53 IBM Enterprise COBOL for z/OS 3.4.1
TCXXXXX Date 04/15/2010 Time 09:29:56 Page 11
000409C
05 TBLB-CLAIM-NUM
PIC X(07).
BLF=00003+00B,000000B 7C
LineID PL SL ----+-*A-1-B--+----2----+----3----+----4----+----5----+----6----+----7，雷霆之怒网页游戏私服
<<上一篇：爱塑美童颜针微整形行业新宠! >>
<<下一篇：捣蛋小变态版雷霆之怒网页游戏雪怪小游戏 >>