how to resolve S0C7 - have offset

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

I am trying to resolve a S0C 7 abend. I have the offset value with me which I got from the sysout of the abended step. I have been trying to locate the statement in my program by seeing the compile listing in SDSF. But I am unable to zero down to the exact place. I have compiled my program using endevaour. Can anyone suggest how can I get to find the bug in my program using footprints or any better idea.

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

i am not able to see any cobol reserved word near my offset in the compile listing. So unable to locate the abend location. Compile listing with the offset is below: offset is +000012DC

0012B2 5850 D128 L 5,296(0,13)

0012C2 5830 D14C L 3,332(0,13)
0012C6 07F3 BCR 15,3
0012C8 GN=17 EQU *
0012C8 5820 D12C L 2,300(0,13)
0012CC 4E20 D1B8 CVD 2,440(0,13)
0012D0 F200 D1C0 848A PACK 448(1,13),1162(
0012D6 D100 D1C0 C024 MVN 448(1,13),36(12
0012DC F940 D1BB D1C0 CP 443(5,13),448(1
0012E2 4770 B28A BC 7,650(0,11)
0012E6 47F0 B2B2 BC 15,690(0,11)

Bill O'Boyle · Posted: Thu Apr 15, 2010 6:28 pm

I'm assuming this is Batch COBOL? Is the PSW information displayed, which includes the "ILC" (Instruction Length Code)?

The PSW represents the address of the NSI "Next Sequential Instruction". If you subtract the ILC from this address, it should take you to the failing instruction.

Many times (but not always), the failed instruction will be a packed-decimal instruction, such as a ZAP (Op Code F8), AP (Op Code FA), etc.

Once you find the failed instruction, you need to break it down and find the actual data found in Operand 1 and Operand 2.

Click below for the z/Architecture Reference Summary -

publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/download/DZ9ZS004.pdf?DT=20080216193251&XKS=DZ9ZBK08

Also, it would be a good idea to recompile the program using the LIST,NOOFFSET options, to produce the Assembler expansion.

This way, you can pinpoint the actual instruction within your COBOL program.

Bill

Bill O'Boyle · Posted: Thu Apr 15, 2010 6:42 pm

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

Where can I find these details? I am compiling my program by adding it to endeavour.

Bill O'Boyle · Posted: Thu Apr 15, 2010 7:29 pm

I'm not sure what details you're taking about?

You provided the Assembler expansion and posted the failed instruction and (AFAIK), you also got a DUMP.

I don't know what else you need?

Please elaborate....

Bill

CICS Guy · Posted: Thu Apr 15, 2010 7:38 pm

Even better Bill, look at the source of the CP operands.

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

I was trying to find the value of the register as per Bill's advise. But not successful. I am not very good at reading dumps.

Bill O'Boyle · Posted: Thu Apr 15, 2010 8:19 pm

When I was five, I crashed my bicycle because I didn't know how to ride it. But, I kept practicing until I stopped crashing.

Keep looking, you'll find what you're looking for.

Then if you haven't touched this for a while, it will all come back to you.

It's like riding a bicycle....

Bill

Marso · Posted: Thu Apr 15, 2010 8:20 pm

Question: can you reproduce this S0C7 at will ?

If yes, I suggest you recompile your program with the OFFSET option.

OFFSET will generate in the output listing a list of all the procedure division statements:

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

I have attached the compile listing dump for my program in this post.

And I believe nothing wrong with the job. Issue is with my program. The job control messages are as follows:

sysout:
------------

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

Marso, I searched the dump with the offset 12DC but I don't see any verb or line no next to it.

[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
0Invocation parameters:
NOTEST,NOXREF,NOMAP,NOLIST,LIB,DATA(31),NOADV,TRUNC(BIN),RES,OFFSET,APOST

IGYOS4046-I The "RESIDENT" option specification is no longer required. The resident runtime library support is always
used.

0PROCESS(CBL) statements:
CBL LIST XREF MAP

IGYOS4022-W The "OFFSET" option was discarded due to option conflict resolution. The "LIST" option from "PROCESS/CBL"
statement took precedence.

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

CICS Guy · Posted: Thu Apr 15, 2010 9:08 pm

Try and display "COM-REINS-COUNT" before the abend.

CICS Guy · Posted: Thu Apr 15, 2010 9:31 pm

Better yet.....
In COM-BILLOUT-REC:

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

the pgm abends in same fashion with following display. It is not able to reach the write statement. Before that it abends I gave a display for the
COM-BILLOUT-REC and verified.

Sysout:
-----------

CICS Guy · Posted: Thu Apr 15, 2010 9:56 pm

Try putting the display in just before you WRITE TBLX-BILLOUT-REC FROM COM-BILLOUT-REC.
By the way, why is the statement prior to the WRITE/FROM commented out?

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

I have a question. Since my output file is a VB. I have in total 6 output files which are using a common layout depending upon the count WS-REINS-NUM. Before writing is it necessary for me to move the ODO count into the 'depending on variable'. In my program i am writing the record from a common record COM-BILLOUT-REC into different files depending on the ODO count in WS-REINS-NUM. Please correct me if my approach is wrong.

I had moved the ODO count in the common record in the following statement in the begining of the para:

MOVE WS-REINS-NUM TO COM-REINS-COUNT

So again before writing into the O/P files I guess it is not necessary to use teh ODO count. Pls advise

CICS Guy · Posted: Thu Apr 15, 2010 10:08 pm

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

By the way, why is the statement prior to the WRITE/FROM commented out?

your question - It is related to my previous query. Shld I write the record

WRITE TBLX-BILLOUT-REC FROM COM-BILLOUT-REC

after moving the ODO count for it or it is not necessary.

CICS Guy · Posted: Thu Apr 15, 2010 10:11 pm

See prior reply....grin....

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

Bingo

My job ran successfully. You are absolutely right. I made the following code changes:

MOVE '*' TO COM-FILL48
* MOVE '*' TO COM-FILL49
ARIJIT EVALUATE WS-REINS-NUM
ARIJIT WHEN 01
ARIJIT IF WS-TRTYNO-GT5 = 'Y'
ARIJIT DISPLAY '**COM-BILLOUT-REC**' COM-BILLOUT-REC
ARIJIT MOVE WS-REINS-NUM TO TBLX-FILL49
ARIJIT WRITE TBLX-BILLOUT-REC FROM COM-BILLOUT-REC

I had redefined the filler as a numeric item and used it as an odo object to write the records into the O/P file. But since ' * ' is an alphanumeric field so it is giving a S0C7.

Let me describe the copybook layout which I had defined:

05 :COM:-FILL49 PIC X(01).
05 :COM:-REINS-COUNT REDEFINES :COM:-FILL49 PIC 9(01).
05 :COM:-TOTAL-BILLED PIC Z,ZZZ,ZZZ,ZZZ,ZZ9.99-.
05 :COM:-REINSURER-ARRAY
OCCURS 1 TO 05 TIMES
DEPENDING ON :COM:-REINS-COUNT
INDEXED BY :COM:-RIX.

** I have one last query:
==============
But I want to know one thing. I want a * to be displayed in that filler since it is the report format. But if I declare an extra ODO variable in the copybook then the length of the report will change. If I don't move the * into the fill49 the ODO object value i.e. fill49 wil also get written which is not correct . So I am puzzled how to generate the report - so that the filler * should also be there but the ODO value is not written in the report.

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

To elaborate on this:

Also the part of the JCl which I used is :
//SYSOUT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//LOOKUP DD DSN=T.XXXX.R040.VS.BILL.MAIN,DISP=SHR
//BILLIN DD DSN=T.XXXX.R040.REINS.BROK,DISP=SHR
//BILLOUT1 DD DSN=T.XXXX.R040.BROKER.BILL1,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(300,150),RLSE),AVGREC=K,
// DCB=(LRECL=3365,BLKSIZE=0,RECFM=VB)
//* DCB=(LRECL=1389,BLKSIZE=0,RECFM=FB)

i checked my output file T.XXXX.R040.BROKER.BILL1. It has a LRECL of 3365. But in the file the record is only till 1389th byte. Is there a way that this O/P file has a lesser LRECL i;e something like ( 1389 + 4) = 1393 bytes? So that the unused bytes can be free..

CICS Guy · Posted: Thu Apr 15, 2010 11:00 pm

Several points.....
When you move the proper count to an of the FILL49s, move it to the actual ODO count, not the X(1) FILL49.
In every copybook that you are using FILL49 as a redefine to an ODO count, rename the FILL49 to something like FILL49-X.
After compiling the program, comment all 'dataname not found' error in the move to statements.
In any program that you get that error and the program is doing a move from, replace the FILL49 in the move with '*'.
Report programs that are not recompiled will not error, they will just show the count instead of the '*' and as noted by users those programs can be recompiled and fixed on an as needed basis.
Place in all copybooks that use FILL49 as the redefine of the count, at the FILL49 line, a comment stating that the moves of the FILL49 need to be replaced by an '*'.

Needless to say, at some point before the FILL49 will actually be needed, you are going to have to redefine the copybook and associated files to allow a proper space for the count.
An aid to reversing these changes will be a comment just above any FILL49 changes you make that has a unique identifier that will allow a source PDS search for all the programs that need changing back.

CICS Guy · Posted: Thu Apr 15, 2010 11:08 pm

Rijit · Active User Joined: 15 Apr 2010 Posts: 168 Location: Pune

Many thanks for your valuable advise!! Cheers!

I shall go ahead an use a separate ODO count variable instead of that redefining mess!!