-
Notifications
You must be signed in to change notification settings - Fork 0
/
DMTGEN2.SQL
9170 lines (9170 loc) · 447 KB
/
DMTGEN2.SQL
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
#IFNDEF TABLE_CLTGAR2
#DEFINE TABLE_CLTGAR2
EXEC SQL DECLARE CLTGAR2 TABLE
(
COLL_NO DEC(10, 0) NOT NULL,
R_TYPE CHAR(1) NOT NULL,
SIGNING_DT DEC(8, 0) NOT NULL,
COUNTER_TYP CHAR(1) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTGAR2 *
******************************************************************
01 CLR:GAR2:.
03 :GAR2:_KEY.
05 :GAR2:_COLL_NO DIC(GTEE_NO, P).
03 :GAR2:_R_TYPE DIC(TYP).
88 :GAR2:_R_N VALUE 'N'.
88 :GAR2:_R_D VALUE 'D'.
03 :GAR2:_SIGNING_DT DIC(DT, P).
03 :GAR2:_COUNTER_TYP DIC(TYP).
03 :GAR2:_CRT_DATE DIC(DT, P).
03 :GAR2:_CRT_TLR DIC(TLR_NO).
03 :GAR2:_UPDTBL_DATE DIC(DT, P).
03 :GAR2:_UPDTBL_TLR DIC(TLR_NO).
03 :GAR2:_TS PIC X(26).
*@*CHECKSUM _1987345705
#IFNDEF TABLE_CLTGOGA2
#DEFINE TABLE_CLTGOGA2
EXEC SQL DECLARE CLTGOGA2 TABLE
(
COLL_NO DEC(10, 0) NOT NULL,
R_TYPE CHAR(1) NOT NULL,
GUAR_CI_NO CHAR(12) NOT NULL,
GUAR_ENG_NAME CHAR(140) NOT NULL,
REF_NO CHAR(60) NOT NULL,
CAN_DATE DEC(8, 0) NOT NULL,
GOVER_GUAR_PCT DEC(5, 2) NOT NULL,
EFF_DATE DEC(8, 0) NOT NULL,
EXP_DATE DEC(8, 0) NOT NULL,
GUAR_TYP CHAR(4) NOT NULL,
PREM_TYP CHAR(1) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTGOGA2 *
******************************************************************
01 CLR:GOGA2:.
03 :GOGA2:_KEY.
05 :GOGA2:_COLL_NO DIC(GTEE_NO, P).
03 :GOGA2:_R_TYPE DIC(TYP).
88 :GOGA2:_R_N VALUE 'N'.
88 :GOGA2:_R_D VALUE 'D'.
03 :GOGA2:_GUAR_CI_NO DIC(CI_NO).
03 :GOGA2:_GUAR_ENG_NAME DIC(CI_ENM).
03 :GOGA2:_REF_NO DIC(DESC_30).
03 :GOGA2:_CAN_DATE DIC(DT, P).
03 :GOGA2:_GOVER_GUAR_PCT DIC(PCT, P).
03 :GOGA2:_EFF_DATE DIC(DT, P).
03 :GOGA2:_EXP_DATE DIC(DT, P).
03 :GOGA2:_GUAR_TYP DIC(PRDMO_CD).
03 :GOGA2:_PREM_TYP DIC(FLG).
03 :GOGA2:_CRT_DATE DIC(DT, P).
03 :GOGA2:_CRT_TLR DIC(TLR_NO).
03 :GOGA2:_UPDTBL_DATE DIC(DT, P).
03 :GOGA2:_UPDTBL_TLR DIC(TLR_NO).
03 :GOGA2:_TS PIC X(26).
*@*CHECKSUM _2115642531
#IFNDEF TABLE_CLTINP2
#DEFINE TABLE_CLTINP2
EXEC SQL DECLARE CLTINP2 TABLE
(
COLL_NO DEC(10, 0) NOT NULL,
R_TYPE CHAR(1) NOT NULL,
INP_POL_NAME CHAR(140) NOT NULL,
POLICY_NO CHAR(50) NOT NULL,
TYPE CHAR(5) NOT NULL,
ISUR_NAME CHAR(140) NOT NULL,
ISUD_PART_NAME CHAR(140) NOT NULL,
ISUD_AMT DEC(18, 2) NOT NULL,
CSH_VAL DEC(18, 2) NOT NULL,
EFF_DATE DEC(8, 0) NOT NULL,
EXP_DATE DEC(8, 0) NOT NULL,
BENEFICIARY CHAR(140) NOT NULL,
INSUR_CO CHAR(140) NOT NULL,
ISUR_CI_NO CHAR(12) NOT NULL,
INSPART_CI_NO CHAR(12) NOT NULL,
BEN_CI_NO CHAR(12) NOT NULL,
INSUR_CI_NO CHAR(12) NOT NULL,
INSUR_CCY CHAR(3) NOT NULL,
COUNTER_TYP CHAR(1) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTINP2 *
******************************************************************
01 CLR:INP2:.
03 :INP2:_KEY.
05 :INP2:_COLL_NO DIC(GTEE_NO, P).
03 :INP2:_R_TYPE DIC(TYP).
88 :INP2:_R_N VALUE 'N'.
88 :INP2:_R_D VALUE 'D'.
03 :INP2:_INP_POL_NAME DIC(CI_ENM).
03 :INP2:_POLICY_NO DIC(X50).
03 :INP2:_TYPE DIC(FREE_CD5).
03 :INP2:_ISUR_NAME DIC(CI_ENM).
03 :INP2:_ISUD_PART_NAME DIC(CI_ENM).
03 :INP2:_ISUD_AMT DIC(TBAL_NS, P).
03 :INP2:_CSH_VAL DIC(TBAL_NS, P).
03 :INP2:_EFF_DATE DIC(DT, P).
03 :INP2:_EXP_DATE DIC(DT, P).
03 :INP2:_BENEFICIARY DIC(CI_ENM).
03 :INP2:_INSUR_CO DIC(CI_ENM).
03 :INP2:_ISUR_CI_NO DIC(CI_NO).
03 :INP2:_INSPART_CI_NO DIC(CI_NO).
03 :INP2:_BEN_CI_NO DIC(CI_NO).
03 :INP2:_INSUR_CI_NO DIC(CI_NO).
03 :INP2:_INSUR_CCY DIC(CCY).
03 :INP2:_COUNTER_TYP DIC(TYP).
03 :INP2:_CRT_DATE DIC(DT, P).
03 :INP2:_CRT_TLR DIC(TLR_NO).
03 :INP2:_UPDTBL_DATE DIC(DT, P).
03 :INP2:_UPDTBL_TLR DIC(TLR_NO).
03 :INP2:_TS PIC X(26).
*@*CHECKSUM 1671194649
#IFNDEF TABLE_CLTINPG
#DEFINE TABLE_CLTINPG
EXEC SQL DECLARE CLTINPG TABLE
(
INSUR_CI_NO CHAR(12) NOT NULL,
R_TYPE CHAR(1) NOT NULL,
LMT_TYPE CHAR(8) NOT NULL,
POLICY_NO CHAR(20) NOT NULL,
POLICY_AMT DEC(16, 2) NOT NULL,
POLICY_CCY CHAR(3) NOT NULL,
PROD_CD CHAR(8) NOT NULL,
BRW_CI_NO CHAR(12) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTINPG *
******************************************************************
01 CLR:INPG:.
03 :INPG:_KEY.
05 :INPG:_INSUR_CI_NO DIC(CI_NO).
05 :INPG:_R_TYPE DIC(TYP).
88 :INPG:_R_N VALUE 'N'.
88 :INPG:_R_D VALUE 'D'.
88 :INPG:_R_A VALUE 'A'.
03 :INPG:_LMT_TYPE DIC(LMT_KND).
03 :INPG:_POLICY_NO DIC(PROL_NO).
03 :INPG:_POLICY_AMT DIC(AMT, P).
03 :INPG:_POLICY_CCY DIC(CCY).
03 :INPG:_PROD_CD DIC(PROD_CD).
03 :INPG:_BRW_CI_NO DIC(CI_NO).
03 :INPG:_CRT_DATE DIC(DT, P).
03 :INPG:_CRT_TLR DIC(TLR_NO).
03 :INPG:_UPDTBL_DATE DIC(DT, P).
03 :INPG:_UPDTBL_TLR DIC(TLR_NO).
03 :INPG:_TS PIC X(26).
*@*CHECKSUM _131782352
#IFNDEF TABLE_CLTINS
#DEFINE TABLE_CLTINS
EXEC SQL DECLARE CLTINS TABLE
(
R_TYPE CHAR(1) NOT NULL,
COLL_NO DEC(10, 0) NOT NULL,
SEQ_NO DEC(3, 0) NOT NULL,
INP_ARG_TYPE CHAR(1) NOT NULL,
TYPE CHAR(5) NOT NULL,
POLICY_NO CHAR(50) NOT NULL,
ISUD_CCY CHAR(3) NOT NULL,
ISUD_AMT DEC(18, 2) NOT NULL,
EFF_DATE DEC(8, 0) NOT NULL,
EXP_DATE DEC(8, 0) NOT NULL,
IVC_PCT DEC(3, 0) NOT NULL,
RMK VARCHAR(240) NOT NULL,
INSUR_NAME CHAR(140) NOT NULL,
BENE_NAME1 CHAR(140) NOT NULL,
BENE_NAME2 CHAR(140) NOT NULL,
BENE_PERCENT DEC(3, 0) NOT NULL,
NO_PERCENT DEC(3, 0) NOT NULL,
INSUR_DUTY CHAR(5) NOT NULL,
PAY_METHOD CHAR(5) NOT NULL,
PF_FLAG CHAR(1) NOT NULL,
INSC_IN_LIST CHAR(140) NOT NULL,
INSC_OUT_LIST CHAR(140) NOT NULL,
INS_CODE CHAR(1) NOT NULL,
INS_CO_CODE CHAR(4) NOT NULL,
INS_EX_CODE CHAR(4) NOT NULL,
INS_FMT_CODE CHAR(1) NOT NULL,
DEBIT_NO CHAR(25) NOT NULL,
DEBIT_NAME CHAR(30) NOT NULL,
REC_STATUS CHAR(1) NOT NULL,
UNCONFMD_UNIT DEC(6, 0) NOT NULL,
CREATE_DATE DEC(8, 0) NOT NULL,
CREATE_TL CHAR(8) NOT NULL,
CREATE_UNIT DEC(6, 0) NOT NULL,
UPDATE_DATE DEC(8, 0) NOT NULL,
UPDATE_TL CHAR(8) NOT NULL,
UPDATE_UNIT DEC(6, 0) NOT NULL,
CONF_UNIT DEC(6, 0) NOT NULL,
CONF_SUP CHAR(8) NOT NULL,
CONF_DATE DEC(8, 0) NOT NULL,
OVER_SUP1 CHAR(8) NOT NULL,
OVER_SUP2 CHAR(8) NOT NULL,
VER_NO DEC(4, 0) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTINS *
******************************************************************
01 CLR:INS:.
03 :INS:_KEY.
05 :INS:_R_TYPE DIC(TYP).
88 :INS:_R_N VALUE 'N'.
88 :INS:_R_D VALUE 'D'.
88 :INS:_R_A VALUE 'A'.
05 :INS:_COLL_NO DIC(GTEE_NO, P).
05 :INS:_SEQ_NO DIC(SEQ_3, P).
03 :INS:_INP_ARG_TYPE DIC(TYP).
03 :INS:_TYPE DIC(FREE_CD5).
03 :INS:_POLICY_NO DIC(X50).
03 :INS:_ISUD_CCY DIC(CCY).
03 :INS:_ISUD_AMT DIC(TAMT_NS, P).
03 :INS:_EFF_DATE DIC(DT, P).
03 :INS:_EXP_DATE DIC(DT, P).
03 :INS:_IVC_PCT DIC(NMR_DENR, P).
03 :INS:_RMK.
49 :INS:_RMK_LEN PIC S9(4) COMP.
49 :INS:_RMK_TEXT DIC(RMK_120).
03 :INS:_INSUR_NAME DIC(CI_CNM).
03 :INS:_BENE_NAME1 DIC(CI_CNM).
03 :INS:_BENE_NAME2 DIC(CI_CNM).
03 :INS:_BENE_PERCENT DIC(NMR_DENR, P).
03 :INS:_NO_PERCENT DIC(NMR_DENR, P).
03 :INS:_INSUR_DUTY DIC(FREE_CD5).
03 :INS:_PAY_METHOD DIC(FREE_CD5).
03 :INS:_PF_FLAG DIC(FLG).
03 :INS:_INSC_IN_LIST DIC(CI_CNM).
03 :INS:_INSC_OUT_LIST DIC(CI_CNM).
03 :INS:_INS_CODE DIC(TYP).
03 :INS:_INS_CO_CODE DIC(X04).
03 :INS:_INS_EX_CODE DIC(X04).
03 :INS:_INS_FMT_CODE DIC(TYP).
03 :INS:_DEBIT_NO DIC(AC).
03 :INS:_DEBIT_NAME DIC(X30).
03 :INS:_REC_STATUS DIC(REC_STS).
88 :INS:_UNCONF_ADD VALUE 'A'.
88 :INS:_UNCONF_UPD VALUE 'U'.
88 :INS:_UNCONF_DEL VALUE 'D'.
03 :INS:_UNCONFMD_UNIT DIC(BR, P).
03 :INS:_CREATE_DATE DIC(DT, P).
03 :INS:_CREATE_TL DIC(TLR_NO).
03 :INS:_CREATE_UNIT DIC(BR, P).
03 :INS:_UPDATE_DATE DIC(DT, P).
03 :INS:_UPDATE_TL DIC(TLR_NO).
03 :INS:_UPDATE_UNIT DIC(BR, P).
03 :INS:_CONF_UNIT DIC(BR, P).
03 :INS:_CONF_SUP DIC(TLR_NO).
03 :INS:_CONF_DATE DIC(DT, P).
03 :INS:_OVER_SUP1 DIC(TLR_NO).
03 :INS:_OVER_SUP2 DIC(TLR_NO).
03 :INS:_VER_NO DIC(VER_NO, P).
03 :INS:_UPDTBL_DATE DIC(DT, P).
03 :INS:_TS PIC X(26).
*@*CHECKSUM _68324226
#IFNDEF TABLE_CLTINT2
#DEFINE TABLE_CLTINT2
EXEC SQL DECLARE CLTINT2 TABLE
(
COLL_NO DEC(10, 0) NOT NULL,
R_TYPE CHAR(1) NOT NULL,
INT_NAME CHAR(140) NOT NULL,
INT_TYP CHAR(5) NOT NULL,
INT_ID CHAR(30) NOT NULL,
GB_ID CHAR(30) NOT NULL,
ISU_RAT1 CHAR(5) NOT NULL,
ISU_RAT_DATE1 DEC(8, 0) NOT NULL,
ISU_RAT2 CHAR(5) NOT NULL,
ISU_RAT_DATE2 DEC(8, 0) NOT NULL,
ISU_RAT3 CHAR(5) NOT NULL,
ISU_RAT_DATE3 DEC(8, 0) NOT NULL,
ISU_RAT4 CHAR(5) NOT NULL,
ISU_RAT_DATE4 DEC(8, 0) NOT NULL,
ISUR_ID CHAR(12) NOT NULL,
ISUR_NAME CHAR(140) NOT NULL,
ISU_DT DEC(8, 0) NOT NULL,
REDP_DT DEC(8, 0) NOT NULL,
TOT_NOM_AMT DEC(16, 2) NOT NULL,
TOT_MAR_AMT DEC(16, 2) NOT NULL,
COLLT_FLG CHAR(1) NOT NULL,
ISUR_UNIT CHAR(1) NOT NULL,
SELF_SALE_FLAG CHAR(1) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTINT2 *
******************************************************************
01 CLR:INT2:.
03 :INT2:_KEY.
05 :INT2:_COLL_NO DIC(GTEE_NO, P).
03 :INT2:_R_TYPE DIC(TYP).
88 :INT2:_R_N VALUE 'N'.
88 :INT2:_R_D VALUE 'D'.
03 :INT2:_INT_NAME DIC(CI_CNM).
03 :INT2:_INT_TYP DIC(FREE_CD5).
03 :INT2:_INT_ID DIC(BND_CD).
03 :INT2:_GB_ID DIC(DESCE_30).
03 :INT2:_ISU_RAT1 DIC(FREE_CD5).
03 :INT2:_ISU_RAT_DATE1 DIC(DT, P).
03 :INT2:_ISU_RAT2 DIC(FREE_CD5).
03 :INT2:_ISU_RAT_DATE2 DIC(DT, P).
03 :INT2:_ISU_RAT3 DIC(FREE_CD5).
03 :INT2:_ISU_RAT_DATE3 DIC(DT, P).
03 :INT2:_ISU_RAT4 DIC(FREE_CD5).
03 :INT2:_ISU_RAT_DATE4 DIC(DT, P).
03 :INT2:_ISUR_ID DIC(CI_NO).
03 :INT2:_ISUR_NAME DIC(CI_CNM).
03 :INT2:_ISU_DT DIC(DT, P).
03 :INT2:_REDP_DT DIC(DT, P).
03 :INT2:_TOT_NOM_AMT DIC(AMT, P).
03 :INT2:_TOT_MAR_AMT DIC(AMT, P).
03 :INT2:_COLLT_FLG DIC(FLG).
03 :INT2:_ISUR_UNIT DIC(TYP).
03 :INT2:_SELF_SALE_FLAG DIC(FLG).
03 :INT2:_CRT_DATE DIC(DT, P).
03 :INT2:_CRT_TLR DIC(TLR_NO).
03 :INT2:_UPDTBL_DATE DIC(DT, P).
03 :INT2:_UPDTBL_TLR DIC(TLR_NO).
03 :INT2:_TS PIC X(26).
*@*CHECKSUM _1558772532
#IFNDEF TABLE_CLTIPC2
#DEFINE TABLE_CLTIPC2
EXEC SQL DECLARE CLTIPC2 TABLE
(
COLL_NO DEC(10, 0) NOT NULL,
R_TYPE CHAR(1) NOT NULL,
COUN_TYP CHAR(1) NOT NULL,
MA_DT DEC(8, 0) NOT NULL,
MOODY CHAR(5) NOT NULL,
STD_POOR CHAR(5) NOT NULL,
FITCH CHAR(5) NOT NULL,
INTER_RAT CHAR(5) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTIPC2 *
******************************************************************
01 CLR:IPC2:.
03 :IPC2:_KEY.
05 :IPC2:_COLL_NO DIC(GTEE_NO, P).
03 :IPC2:_R_TYPE DIC(TYP).
88 :IPC2:_R_N VALUE 'N'.
88 :IPC2:_R_D VALUE 'D'.
03 :IPC2:_COUN_TYP DIC(TYP).
03 :IPC2:_MA_DT DIC(DT, P).
03 :IPC2:_MOODY DIC(FREE_CD5).
03 :IPC2:_STD_POOR DIC(FREE_CD5).
03 :IPC2:_FITCH DIC(FREE_CD5).
03 :IPC2:_INTER_RAT DIC(FREE_CD5).
03 :IPC2:_CRT_DATE DIC(DT, P).
03 :IPC2:_CRT_TLR DIC(TLR_NO).
03 :IPC2:_UPDTBL_DATE DIC(DT, P).
03 :IPC2:_UPDTBL_TLR DIC(TLR_NO).
03 :IPC2:_TS PIC X(26).
*@*CHECKSUM _1634237987
#IFNDEF TABLE_CLTLMT
#DEFINE TABLE_CLTLMT
EXEC SQL DECLARE CLTLMT TABLE
(
R_TYPE CHAR(1) NOT NULL,
LMT_NO DEC(10, 0) NOT NULL,
CTR_PNT CHAR(11) NOT NULL,
LEVEL CHAR(1) NOT NULL,
LEVEL_NO DEC(4, 0) NOT NULL,
FATHER DEC(10, 0) NOT NULL,
TOP_FATHER DEC(10, 0) NOT NULL,
EXPO_FLAG CHAR(1) NOT NULL,
CODE CHAR(8) NOT NULL,
CCY CHAR(3) NOT NULL,
MAX DEC(18, 2) NOT NULL,
ACTUAL DEC(18, 2) NOT NULL,
LOANABLE_VAL DEC(18, 2) NOT NULL,
AUTO_UPD_FLG CHAR(1) NOT NULL,
USE_BAL DEC(18, 2) NOT NULL,
CUM_BAL DEC(18, 2) NOT NULL,
AVA_BAL DEC(18, 2) NOT NULL,
NET_AVA DEC(18, 2) NOT NULL,
EMK_BAL DEC(18, 2) NOT NULL,
TERM1 CHAR(4) NOT NULL,
TERM2 CHAR(4) NOT NULL,
TERM3 CHAR(4) NOT NULL,
MAX_TERM1 DEC(18, 2) NOT NULL,
MAX_TERM2 DEC(18, 2) NOT NULL,
MAX_TERM3 DEC(18, 2) NOT NULL,
ACT_TERM1 DEC(18, 2) NOT NULL,
ACT_TERM2 DEC(18, 2) NOT NULL,
ACT_TERM3 DEC(18, 2) NOT NULL,
USE_TERM1 DEC(18, 2) NOT NULL,
USE_TERM2 DEC(18, 2) NOT NULL,
USE_TERM3 DEC(18, 2) NOT NULL,
CUM_TERM1 DEC(18, 2) NOT NULL,
CUM_TERM2 DEC(18, 2) NOT NULL,
CUM_TERM3 DEC(18, 2) NOT NULL,
AVA_TERM1 DEC(18, 2) NOT NULL,
AVA_TERM2 DEC(18, 2) NOT NULL,
AVA_TERM3 DEC(18, 2) NOT NULL,
NET_AVA_TERM1 DEC(18, 2) NOT NULL,
NET_AVA_TERM2 DEC(18, 2) NOT NULL,
NET_AVA_TERM3 DEC(18, 2) NOT NULL,
EMK_TERM1 DEC(18, 2) NOT NULL,
EMK_TERM2 DEC(18, 2) NOT NULL,
EMK_TERM3 DEC(18, 2) NOT NULL,
STATUS CHAR(32) NOT NULL,
USE CHAR(1) NOT NULL,
CLS CHAR(8) NOT NULL,
RISK_WEIGHTED DEC(3, 0) NOT NULL,
EXPO_PCT1 DEC(3, 0) NOT NULL,
EXPO_PCT2 DEC(3, 0) NOT NULL,
UTIL_PER DEC(3, 0) NOT NULL,
UTIL_AMT DEC(18, 2) NOT NULL,
UTIL_CON CHAR(120) NOT NULL,
LTV_PCT DEC(3, 0) NOT NULL,
EFF_DATE DEC(8, 0) NOT NULL,
EXP_DATE DEC(8, 0) NOT NULL,
NRVW_DATE DEC(8, 0) NOT NULL,
LRVW_DATE DEC(8, 0) NOT NULL,
RVW_FREQ CHAR(2) NOT NULL,
EXTEND_DATE DEC(8, 0) NOT NULL,
AVAIL_DATE DEC(8, 0) NOT NULL,
OPTION_DATE DEC(8, 0) NOT NULL,
EXTEND_FLG CHAR(1) NOT NULL,
GTEE_FLG CHAR(1) NOT NULL,
APR_DATE DEC(8, 0) NOT NULL,
C1_EXPO_AMT DEC(18, 2) NOT NULL,
C1_USE_BAL DEC(18, 2) NOT NULL,
C1_CUM_BAL DEC(18, 2) NOT NULL,
C1_AVA_BAL DEC(18, 2) NOT NULL,
C1_COL_BAL DEC(18, 2) NOT NULL,
EXTEND_DD_FLAG CHAR(1) NOT NULL,
DD_INS_FLG CHAR(1) NOT NULL,
LN_FINAL_EXP_DATE DEC(8, 0) NOT NULL,
TENOR_DAYS DEC(4, 0) NOT NULL,
TENOR_UNIT CHAR(1) NOT NULL,
MIN_DD_AMT DEC(18, 2) NOT NULL,
MAX_DD_AMT DEC(18, 2) NOT NULL,
OCP_CMPY_LMT_FLG CHAR(1) NOT NULL,
CMPY_LMT_NO DEC(10, 0) NOT NULL,
PAY_OBJECT CHAR(120) NOT NULL,
MARG_PCT DEC(3, 0) NOT NULL,
ISNBWD CHAR(1) NOT NULL,
ISYWDB CHAR(1) NOT NULL,
CREDITCTY CHAR(4) NOT NULL,
ISFORHK CHAR(1) NOT NULL,
CRED_CON_NO CHAR(60) NOT NULL,
CRED_CON_SIGN_DT DEC(8, 0) NOT NULL,
CRED_CON_EXP_DT DEC(8, 0) NOT NULL,
INIT_MARG_PCT DEC(3, 0) NOT NULL,
MNT_MARG_PCT DEC(3, 0) NOT NULL,
STOP_LOS_PCT DEC(3, 0) NOT NULL,
RMK1 CHAR(240) NOT NULL,
RMK2 CHAR(240) NOT NULL,
RMK3 CHAR(240) NOT NULL,
LAST_USE_DATE DEC(8, 0) NOT NULL,
OVER_TIMES DEC(4, 0) NOT NULL,
OVER_MTIMES DEC(4, 0) NOT NULL,
OVER_YTIMES DEC(4, 0) NOT NULL,
HI_COMM DEC(18, 2) NOT NULL,
HI_UTIL DEC(18, 2) NOT NULL,
HI_COMM_M DEC(18, 2) NOT NULL,
HI_UTIL_M DEC(18, 2) NOT NULL,
HI_COMM_Y DEC(18, 2) NOT NULL,
HI_UTIL_Y DEC(18, 2) NOT NULL,
C_EXC_AMT DEC(18, 2) NOT NULL,
C_HI_EXC DEC(18, 2) NOT NULL,
M_HI_EXC DEC(18, 2) NOT NULL,
Y_HI_EXC DEC(18, 2) NOT NULL,
AVRG_COMIT DEC(18, 2) NOT NULL,
AVRG_MCOMIT DEC(18, 2) NOT NULL,
AVRG_YCOMIT DEC(18, 2) NOT NULL,
AVRG_UTIL DEC(18, 2) NOT NULL,
AVRG_MUTIL DEC(18, 2) NOT NULL,
AVRG_YUTIL DEC(18, 2) NOT NULL,
M_AVRG_EXC DEC(18, 2) NOT NULL,
Y_AVRG_EXC DEC(18, 2) NOT NULL,
OVER_DAYS DEC(4, 0) NOT NULL,
OVER_MDAYS DEC(4, 0) NOT NULL,
OVER_YDAYS DEC(4, 0) NOT NULL,
FULL_BLOCK CHAR(1) NOT NULL,
FLTEMK_BAL DEC(18, 2) NOT NULL,
FOR_INDUS CHAR(5) NOT NULL,
EXSYS_LMT_CODE CHAR(60) NOT NULL,
APP_REC_DATE DEC(8, 0) NOT NULL,
SFGS_REF CHAR(20) NOT NULL,
SFGS_EXP_DATE DEC(8, 0) NOT NULL,
SFGS_GTE_PCT DEC(5, 2) NOT NULL,
SGS_EXP_DATE DEC(8, 0) NOT NULL,
SPGS_EXP_DATE DEC(8, 0) NOT NULL,
PMDS_FLAG CHAR(1) NOT NULL,
LONG_NAME CHAR(40) NOT NULL,
SHORT_NAME CHAR(16) NOT NULL,
TYPE CHAR(10) NOT NULL,
PRO_EXPOSURE CHAR(16) NOT NULL,
COUNTERPARTY CHAR(20) NOT NULL,
FOLDER CHAR(16) NOT NULL,
ENFORCED CHAR(1) NOT NULL,
AMT_TYPE CHAR(16) NOT NULL,
TIME_BAND1 CHAR(16) NOT NULL,
ALLOCATION1 DEC(18, 2) NOT NULL,
TIME_BAND2 CHAR(16) NOT NULL,
ALLOCATION2 DEC(18, 2) NOT NULL,
TIME_BAND3 CHAR(16) NOT NULL,
ALLOCATION3 DEC(18, 2) NOT NULL,
INSTRUMENT CHAR(16) NOT NULL,
ADVAN_CLASS_CODE CHAR(3) NOT NULL,
COUNTRY_CODE CHAR(4) NOT NULL,
DIS_CODE CHAR(3) NOT NULL,
RESTORY_LTV DEC(3, 0) NOT NULL,
PRCLCNG_AMT DEC(18, 2) NOT NULL,
LTV_LOAN DEC(5, 2) NOT NULL,
DSR_BA_LN DEC(5, 2) NOT NULL,
DSR_STR_LN DEC(5, 2) NOT NULL,
MULT_LTV_RATIO CHAR(1) NOT NULL,
SOURCE_SYS_CD CHAR(5) NOT NULL,
UNCONFMD_UNIT DEC(6, 0) NOT NULL,
DEL_EFFDAT DEC(8, 0) NOT NULL,
DEL_REASON CHAR(120) NOT NULL,
CREATE_DATE DEC(8, 0) NOT NULL,
CREATE_TL CHAR(8) NOT NULL,
CREATE_UNIT DEC(6, 0) NOT NULL,
UPDATE_DATE DEC(8, 0) NOT NULL,
UPDATE_TL CHAR(8) NOT NULL,
UPDATE_UNIT DEC(6, 0) NOT NULL,
CONF_UNIT DEC(6, 0) NOT NULL,
CONF_SUP CHAR(8) NOT NULL,
CONF_DATE DEC(8, 0) NOT NULL,
OVER_SUP1 CHAR(8) NOT NULL,
OVER_SUP2 CHAR(8) NOT NULL,
VER_NO DEC(4, 0) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTLMT *
******************************************************************
01 CLR:LMT:.
03 :LMT:_KEY.
05 :LMT:_R_TYPE DIC(TYP).
88 :LMT:_R_N VALUE 'N'.
88 :LMT:_R_D VALUE 'D'.
88 :LMT:_R_A VALUE 'A'.
05 :LMT:_LMT_NO DIC(LMT_NO, P).
03 :LMT:_CTR_PNT DIC(CLC_CTLW).
03 :LMT:_CTR_DATA REDEFINES :LMT:_CTR_PNT.
05 :LMT:_CTR_TYPE DIC(TYP ).
88 :LMT:_CTR_BY_LMT VALUE 'L'.
88 :LMT:_CTR_BY_COL VALUE 'C'.
05 :LMT:_CTR_NO DIC(LMT_NO ).
03 :LMT:_LEVEL DIC(TYP).
88 :LMT:_T_LVL VALUE 'T'.
88 :LMT:_M_LVL VALUE 'M'.
88 :LMT:_B_LVL VALUE 'B'.
88 :LMT:_X_LVL VALUE 'X'.
03 :LMT:_LEVEL_NO DIC(NUM, P).
03 :LMT:_FATHER DIC(LMT_NO, P).
03 :LMT:_TOP_FATHER DIC(LMT_NO, P).
03 :LMT:_EXPO_FLAG DIC(FLG).
88 :LMT:_EXPO_Y VALUE 'Y'.
88 :LMT:_EXPO_N VALUE 'N'.
03 :LMT:_CODE DIC(LMT_KND).
03 :LMT:_CCY DIC(CCY).
03 :LMT:_MAX DIC(TAMT_S, P).
03 :LMT:_ACTUAL DIC(TAMT_S, P).
03 :LMT:_LOANABLE_VAL DIC(TAMT_NS, P).
03 :LMT:_AUTO_UPD_FLG DIC(TYP).
03 :LMT:_USE_BAL DIC(TBAL_S, P).
03 :LMT:_CUM_BAL DIC(TBAL_S, P).
03 :LMT:_AVA_BAL DIC(TBAL_S, P).
03 :LMT:_NET_AVA DIC(TBAL_S, P).
03 :LMT:_EMK_BAL DIC(TBAL_S, P).
03 :LMT:_TERM1 DIC(TERM_CD).
03 :LMT:_TERM2 DIC(TERM_CD).
03 :LMT:_TERM3 DIC(TERM_CD).
03 :LMT:_MAX_TERM1 DIC(TAMT_S, P).
03 :LMT:_MAX_TERM2 DIC(TAMT_S, P).
03 :LMT:_MAX_TERM3 DIC(TAMT_S, P).
03 :LMT:_ACT_TERM1 DIC(TAMT_S, P).
03 :LMT:_ACT_TERM2 DIC(TAMT_S, P).
03 :LMT:_ACT_TERM3 DIC(TAMT_S, P).
03 :LMT:_USE_TERM1 DIC(TAMT_S, P).
03 :LMT:_USE_TERM2 DIC(TAMT_S, P).
03 :LMT:_USE_TERM3 DIC(TAMT_S, P).
03 :LMT:_CUM_TERM1 DIC(TAMT_S, P).
03 :LMT:_CUM_TERM2 DIC(TAMT_S, P).
03 :LMT:_CUM_TERM3 DIC(TAMT_S, P).
03 :LMT:_AVA_TERM1 DIC(TAMT_S, P).
03 :LMT:_AVA_TERM2 DIC(TAMT_S, P).
03 :LMT:_AVA_TERM3 DIC(TAMT_S, P).
03 :LMT:_NET_AVA_TERM1 DIC(TBAL_S, P).
03 :LMT:_NET_AVA_TERM2 DIC(TBAL_S, P).
03 :LMT:_NET_AVA_TERM3 DIC(TBAL_S, P).
03 :LMT:_EMK_TERM1 DIC(TAMT_S, P).
03 :LMT:_EMK_TERM2 DIC(TAMT_S, P).
03 :LMT:_EMK_TERM3 DIC(TAMT_S, P).
03 :LMT:_STATUS DIC(STSW32).
03 :LMT:_STATUS_N REDEFINES :LMT:_STATUS.
05 :LMT:_STS_C01 DIC(SEQ_1 ).
05 :LMT:_STS_C02 DIC(SEQ_1 ).
05 :LMT:_STS_C03 DIC(SEQ_1 ).
05 :LMT:_STS_C04 DIC(SEQ_1 ).
05 :LMT:_STS_C05 DIC(SEQ_1 ).
05 :LMT:_STS_C06 DIC(SEQ_1 ).
05 :LMT:_STS_C07 DIC(SEQ_1 ).
05 :LMT:_STS_C08 DIC(SEQ_1 ).
05 :LMT:_STS_C09 DIC(SEQ_1 ).
05 :LMT:_STS_C10 DIC(SEQ_1 ).
05 :LMT:_STS_C11 DIC(SEQ_1 ).
05 :LMT:_STS_C12 DIC(SEQ_1 ).
05 :LMT:_STS_C13 DIC(SEQ_1 ).
05 :LMT:_STS_C14 DIC(SEQ_1 ).
05 :LMT:_STS_C15 DIC(SEQ_1 ).
05 :LMT:_STS_C16 DIC(SEQ_1 ).
05 :LMT:_STS_C17 DIC(SEQ_1 ).
05 :LMT:_STS_C18 DIC(SEQ_1 ).
05 :LMT:_STS_C19 DIC(SEQ_1 ).
05 :LMT:_STS_C20 DIC(SEQ_1 ).
05 :LMT:_STS_C21 DIC(SEQ_1 ).
05 :LMT:_STS_C22 DIC(SEQ_1 ).
05 :LMT:_STS_C23 DIC(SEQ_1 ).
05 :LMT:_STS_C24 DIC(SEQ_1 ).
05 :LMT:_STS_C25 DIC(SEQ_1 ).
05 :LMT:_STS_C26 DIC(SEQ_1 ).
05 :LMT:_STS_C27 DIC(SEQ_1 ).
05 :LMT:_STS_C28 DIC(SEQ_1 ).
05 :LMT:_STS_C29 DIC(SEQ_1 ).
05 :LMT:_STS_C30 DIC(SEQ_1 ).
05 :LMT:_STS_C31 DIC(SEQ_1 ).
05 :LMT:_STS_C32 DIC(SEQ_1 ).
03 :LMT:_USE DIC(TYP).
88 :LMT:_USE_N VALUE 'N'.
88 :LMT:_USE_R VALUE 'R'.
88 :LMT:_USE_C VALUE 'C'.
88 :LMT:_USE_D VALUE 'D'.
03 :LMT:_CLS DIC(LMT_STSW).
03 :LMT:_CLS_N REDEFINES :LMT:_CLS.
05 :LMT:_CLS_C01 DIC(SEQ_1 ).
05 :LMT:_CLS_C02 DIC(SEQ_1 ).
05 :LMT:_CLS_C03 DIC(SEQ_1 ).
05 :LMT:_CLS_C04 DIC(SEQ_1 ).
05 :LMT:_CLS_C05 DIC(SEQ_1 ).
05 :LMT:_CLS_C06 DIC(SEQ_1 ).
05 :LMT:_CLS_C07 DIC(SEQ_1 ).
05 :LMT:_CLS_C08 DIC(SEQ_1 ).
03 :LMT:_RISK_WEIGHTED DIC(NMR_DENR, P).
03 :LMT:_EXPO_PCT1 DIC(NMR_DENR, P).
03 :LMT:_EXPO_PCT2 DIC(NMR_DENR, P).
03 :LMT:_UTIL_PER DIC(NMR_DENR, P).
03 :LMT:_UTIL_AMT DIC(TAMT_S, P).
03 :LMT:_UTIL_CON DIC(RMK_60).
03 :LMT:_LTV_PCT DIC(NMR_DENR, P).
03 :LMT:_EFF_DATE DIC(DT, P).
03 :LMT:_EXP_DATE DIC(DT, P).
03 :LMT:_NRVW_DATE DIC(DT, P).
03 :LMT:_LRVW_DATE DIC(DT, P).
03 :LMT:_RVW_FREQ DIC(TYPE).
03 :LMT:_EXTEND_DATE DIC(DT, P).
03 :LMT:_AVAIL_DATE DIC(DT, P).
03 :LMT:_OPTION_DATE DIC(DT, P).
03 :LMT:_EXTEND_FLG DIC(OPT).
03 :LMT:_GTEE_FLG DIC(FLG).
03 :LMT:_APR_DATE DIC(DT, P).
03 :LMT:_C1_EXPO_AMT DIC(TAMT_S, P).
03 :LMT:_C1_USE_BAL DIC(TBAL_S, P).
03 :LMT:_C1_CUM_BAL DIC(TBAL_S, P).
03 :LMT:_C1_AVA_BAL DIC(TBAL_S, P).
03 :LMT:_C1_COL_BAL DIC(TBAL_S, P).
03 :LMT:_EXTEND_DD_FLAG DIC(FLG).
03 :LMT:_DD_INS_FLG DIC(FLG).
03 :LMT:_LN_FINAL_EXP_DATE DIC(DT, P).
03 :LMT:_TENOR_DAYS DIC(NUM, P).
03 :LMT:_TENOR_UNIT DIC(OPT).
03 :LMT:_MIN_DD_AMT DIC(TAMT_S, P).
03 :LMT:_MAX_DD_AMT DIC(TAMT_S, P).
03 :LMT:_OCP_CMPY_LMT_FLG DIC(FLG).
03 :LMT:_CMPY_LMT_NO DIC(LMT_NO, P).
03 :LMT:_PAY_OBJECT DIC(RMK_60).
03 :LMT:_MARG_PCT DIC(NMR_DENR, P).
03 :LMT:_ISNBWD DIC(OPT).
03 :LMT:_ISYWDB DIC(OPT).
03 :LMT:_CREDITCTY DIC(CNTYS_CD).
03 :LMT:_ISFORHK DIC(FLG).
03 :LMT:_CRED_CON_NO DIC(DESC_30).
03 :LMT:_CRED_CON_SIGN_DT DIC(DT, P).
03 :LMT:_CRED_CON_EXP_DT DIC(DT, P).
03 :LMT:_INIT_MARG_PCT DIC(NMR_DENR, P).
03 :LMT:_MNT_MARG_PCT DIC(NMR_DENR, P).
03 :LMT:_STOP_LOS_PCT DIC(NMR_DENR, P).
03 :LMT:_RMK1 DIC(RMK_120).
03 :LMT:_RMK2 DIC(RMK_120).
03 :LMT:_RMK3 DIC(RMK_120).
03 :LMT:_LAST_USE_DATE DIC(DT, P).
03 :LMT:_OVER_TIMES DIC(NUM, P).
03 :LMT:_OVER_MTIMES DIC(NUM, P).
03 :LMT:_OVER_YTIMES DIC(NUM, P).
03 :LMT:_HI_COMM DIC(TAMT_S, P).
03 :LMT:_HI_UTIL DIC(TBAL_S, P).
03 :LMT:_HI_COMM_M DIC(TAMT_S, P).
03 :LMT:_HI_UTIL_M DIC(TBAL_S, P).
03 :LMT:_HI_COMM_Y DIC(TAMT_S, P).
03 :LMT:_HI_UTIL_Y DIC(TBAL_S, P).
03 :LMT:_C_EXC_AMT DIC(TAMT_S, P).
03 :LMT:_C_HI_EXC DIC(TAMT_S, P).
03 :LMT:_M_HI_EXC DIC(TAMT_S, P).
03 :LMT:_Y_HI_EXC DIC(TAMT_S, P).
03 :LMT:_AVRG_COMIT DIC(TAMT_S, P).
03 :LMT:_AVRG_MCOMIT DIC(TAMT_S, P).
03 :LMT:_AVRG_YCOMIT DIC(TAMT_S, P).
03 :LMT:_AVRG_UTIL DIC(TBAL_S, P).
03 :LMT:_AVRG_MUTIL DIC(TBAL_S, P).
03 :LMT:_AVRG_YUTIL DIC(TBAL_S, P).
03 :LMT:_M_AVRG_EXC DIC(TAMT_S, P).
03 :LMT:_Y_AVRG_EXC DIC(TAMT_S, P).
03 :LMT:_OVER_DAYS DIC(NUM, P).
03 :LMT:_OVER_MDAYS DIC(NUM, P).
03 :LMT:_OVER_YDAYS DIC(NUM, P).
03 :LMT:_FULL_BLOCK DIC(OPT).
03 :LMT:_FLTEMK_BAL DIC(TBAL_S, P).
03 :LMT:_FOR_INDUS DIC(CIIND_CD).
03 :LMT:_EXSYS_LMT_CODE DIC(DESCE_60).
03 :LMT:_APP_REC_DATE DIC(DT, P).
03 :LMT:_SFGS_REF DIC(DESC_20).
03 :LMT:_SFGS_EXP_DATE DIC(DT, P).
03 :LMT:_SFGS_GTE_PCT DIC(PCT, P).
03 :LMT:_SGS_EXP_DATE DIC(DT, P).
03 :LMT:_SPGS_EXP_DATE DIC(DT, P).
03 :LMT:_PMDS_FLAG DIC(FLG).
03 :LMT:_LONG_NAME DIC(X40).
03 :LMT:_SHORT_NAME DIC(X16).
03 :LMT:_TYPE DIC(BIZ_FLG).
03 :LMT:_PRO_EXPOSURE DIC(X16).
03 :LMT:_COUNTERPARTY DIC(DESC_20).
03 :LMT:_FOLDER DIC(X16).
03 :LMT:_ENFORCED DIC(FLG).
03 :LMT:_AMT_TYPE DIC(X16).
03 :LMT:_TIME_BAND1 DIC(X16).
03 :LMT:_ALLOCATION1 DIC(TBAL_NS, P).
03 :LMT:_TIME_BAND2 DIC(X16).
03 :LMT:_ALLOCATION2 DIC(TBAL_NS, P).
03 :LMT:_TIME_BAND3 DIC(X16).
03 :LMT:_ALLOCATION3 DIC(TBAL_NS, P).
03 :LMT:_INSTRUMENT DIC(X16).
03 :LMT:_ADVAN_CLASS_CODE DIC(X03).
03 :LMT:_COUNTRY_CODE DIC(CNTYS_CD).
03 :LMT:_DIS_CODE DIC(CNTY_CD).
03 :LMT:_RESTORY_LTV DIC(NMR_DENR, P).
03 :LMT:_PRCLCNG_AMT DIC(TAMT_S, P).
03 :LMT:_LTV_LOAN DIC(PCT, P).
03 :LMT:_DSR_BA_LN DIC(PCT, P).
03 :LMT:_DSR_STR_LN DIC(PCT, P).
03 :LMT:_MULT_LTV_RATIO DIC(FLG).
03 :LMT:_SOURCE_SYS_CD DIC(FREE_CD5).
03 :LMT:_UNCONFMD_UNIT DIC(BR, P).
03 :LMT:_DEL_EFFDAT DIC(DT, P).
03 :LMT:_DEL_REASON DIC(RSN).
03 :LMT:_CREATE_DATE DIC(DT, P).
03 :LMT:_CREATE_TL DIC(TLR_NO).
03 :LMT:_CREATE_UNIT DIC(BR, P).
03 :LMT:_UPDATE_DATE DIC(DT, P).
03 :LMT:_UPDATE_TL DIC(TLR_NO).
03 :LMT:_UPDATE_UNIT DIC(BR, P).
03 :LMT:_CONF_UNIT DIC(BR, P).
03 :LMT:_CONF_SUP DIC(TLR_NO).
03 :LMT:_CONF_DATE DIC(DT, P).
03 :LMT:_OVER_SUP1 DIC(TLR_NO).
03 :LMT:_OVER_SUP2 DIC(TLR_NO).
03 :LMT:_VER_NO DIC(VER_NO, P).
03 :LMT:_UPDTBL_DATE DIC(DT, P).
03 :LMT:_TS PIC X(26).
*@*CHECKSUM 1817569935
#IFNDEF TABLE_CLTMCAL
#DEFINE TABLE_CLTMCAL
EXEC SQL DECLARE CLTMCAL TABLE
(
TYPE CHAR(1) NOT NULL,
COL_LMT_TYP CHAR(8) NOT NULL,
PRIORITY DEC(3, 0) NOT NULL,
ALLOC_TYP CHAR(8) NOT NULL,
PRI_ALLOCATION1 CHAR(8) NOT NULL,
PRI_ALLOCATION2 CHAR(8) NOT NULL,
PRI_ALLOCATION3 CHAR(8) NOT NULL,
PRI_ALLOCATION4 CHAR(8) NOT NULL,
PRI_ALLOCATION5 CHAR(8) NOT NULL,
PRI_ALLOCATION6 CHAR(8) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTMCAL *
******************************************************************
01 CLR:MCAL:.
03 :MCAL:_KEY.
05 :MCAL:_TYPE DIC(TYP).
05 :MCAL:_COL_LMT_TYP DIC(LMT_KND).
03 :MCAL:_PRIORITY DIC(SEQ_3, P).
03 :MCAL:_ALLOC_TYP DIC(LMT_KND).
03 :MCAL:_PRI_ALLOCATION1 DIC(LMT_KND).
03 :MCAL:_PRI_ALLOCATION2 DIC(LMT_KND).
03 :MCAL:_PRI_ALLOCATION3 DIC(LMT_KND).
03 :MCAL:_PRI_ALLOCATION4 DIC(LMT_KND).
03 :MCAL:_PRI_ALLOCATION5 DIC(LMT_KND).
03 :MCAL:_PRI_ALLOCATION6 DIC(LMT_KND).
03 :MCAL:_CRT_DATE DIC(DT, P).
03 :MCAL:_CRT_TLR DIC(TLR_NO).
03 :MCAL:_UPDTBL_DATE DIC(DT, P).
03 :MCAL:_UPDTBL_TLR DIC(TLR_NO).
03 :MCAL:_TS PIC X(26).
*@*CHECKSUM 2001588227
#IFNDEF TABLE_CLTMCH
#DEFINE TABLE_CLTMCH
EXEC SQL DECLARE CLTMCH TABLE
(
R_TYPE CHAR(1) NOT NULL,
SEQ_NO DEC(9, 0) NOT NULL,
TYPE CHAR(1) NOT NULL,
CI_NO CHAR(12) NOT NULL,
PROD_CODE CHAR(8) NOT NULL,
LMT_CODE CHAR(8) NOT NULL,
REC_STATUS CHAR(1) NOT NULL,
UNCONFMD_UNIT DEC(6, 0) NOT NULL,
CREATE_DATE DEC(8, 0) NOT NULL,
CREATE_TL CHAR(8) NOT NULL,
CREATE_UNIT DEC(6, 0) NOT NULL,
UPDATE_DATE DEC(8, 0) NOT NULL,
UPDATE_TL CHAR(8) NOT NULL,
UPDATE_UNIT DEC(6, 0) NOT NULL,
CONF_UNIT DEC(6, 0) NOT NULL,
CONF_SUP CHAR(8) NOT NULL,
CONF_DATE DEC(8, 0) NOT NULL,
OVER_SUP1 CHAR(8) NOT NULL,
OVER_SUP2 CHAR(8) NOT NULL,
VER_NO DEC(4, 0) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)
END_EXEC.
#ENDIF
******************************************************************
* COBOL DECLARATION FOR TABLE CLTMCH *
******************************************************************
01 CLR:MCH:.
03 :MCH:_KEY.
05 :MCH:_R_TYPE DIC(TYP).
88 :MCH:_R_N VALUE 'N'.
88 :MCH:_R_D VALUE 'D'.
88 :MCH:_R_A VALUE 'A'.
05 :MCH:_SEQ_NO DIC(SEQ, P).
03 :MCH:_TYPE DIC(TYP).
03 :MCH:_CI_NO DIC(CI_NO).
03 :MCH:_PROD_CODE DIC(PROD_CD).
03 :MCH:_LMT_CODE DIC(LMT_KND).
03 :MCH:_REC_STATUS DIC(REC_STS).
88 :MCH:_UNCONF_ADD VALUE 'A'.
88 :MCH:_UNCONF_UPD VALUE 'U'.
88 :MCH:_UNCONF_DEL VALUE 'D'.
03 :MCH:_UNCONFMD_UNIT DIC(BR, P).
03 :MCH:_CREATE_DATE DIC(DT, P).
03 :MCH:_CREATE_TL DIC(TLR_NO).
03 :MCH:_CREATE_UNIT DIC(BR, P).
03 :MCH:_UPDATE_DATE DIC(DT, P).
03 :MCH:_UPDATE_TL DIC(TLR_NO).
03 :MCH:_UPDATE_UNIT DIC(BR, P).
03 :MCH:_CONF_UNIT DIC(BR, P).
03 :MCH:_CONF_SUP DIC(TLR_NO).
03 :MCH:_CONF_DATE DIC(DT, P).
03 :MCH:_OVER_SUP1 DIC(TLR_NO).
03 :MCH:_OVER_SUP2 DIC(TLR_NO).
03 :MCH:_VER_NO DIC(VER_NO, P).
03 :MCH:_CRT_DATE DIC(DT, P).
03 :MCH:_CRT_TLR DIC(TLR_NO).
03 :MCH:_UPDTBL_DATE DIC(DT, P).
03 :MCH:_UPDTBL_TLR DIC(TLR_NO).
03 :MCH:_TS PIC X(26).
*@*CHECKSUM _1670142958
#IFNDEF TABLE_CLTPRP2
#DEFINE TABLE_CLTPRP2
EXEC SQL DECLARE CLTPRP2 TABLE
(
COLL_NO DEC(10, 0) NOT NULL,
R_TYPE CHAR(1) NOT NULL,
ADDR1 CHAR(200) NOT NULL,
ADDR2 CHAR(200) NOT NULL,
ADDR3 CHAR(200) NOT NULL,
ADDR4 CHAR(200) NOT NULL,
ADDR5 CHAR(200) NOT NULL,
ADDR6 CHAR(200) NOT NULL,
CITY_CODE CHAR(6) NOT NULL,
CNTY_CODE CHAR(4) NOT NULL,
DISCT CHAR(4) NOT NULL,
GROSS_AREA DEC(6, 0) NOT NULL,
NET_AREAE DEC(6, 0) NOT NULL,
USAGE_CODE CHAR(5) NOT NULL,
RENT_FLAG CHAR(1) NOT NULL,
DEVP_CI CHAR(12) NOT NULL,
DEVP_NAME CHAR(140) NOT NULL,
HAIRCUT DEC(3, 0) NOT NULL,
VSR DEC(18, 2) NOT NULL,
PUR_PRICE DEC(18, 2) NOT NULL,
GRO_DEV_VAL1 DEC(18, 2) NOT NULL,
GRO_DEV_VAL2 DEC(18, 2) NOT NULL,
MLSS_REF CHAR(30) NOT NULL,
APPRAISERI_VAL DEC(14, 2) NOT NULL,
APPRAISERI_DT DEC(8, 0) NOT NULL,
VSR_APPRA_INTI DEC(14, 2) NOT NULL,
VSR_APPRA_INTI_DT DEC(8, 0) NOT NULL,
APPRAISER1_NM CHAR(50) NOT NULL,
APPRAISER1_VAL DEC(14, 2) NOT NULL,
VSR_APPRA_EXT1 DEC(14, 2) NOT NULL,
VSR_APPRA_EXT1_DT DEC(8, 0) NOT NULL,
APPRAISER1_DT DEC(8, 0) NOT NULL,
APPRAISER1_TYP CHAR(1) NOT NULL,
APPRAISER2_NM CHAR(50) NOT NULL,
APPRAISER2_VAL DEC(14, 2) NOT NULL,
VSR_APPRA_EXT2 DEC(14, 2) NOT NULL,
VSR_APPRA_EXT2_DT DEC(8, 0) NOT NULL,
APPRAISER2_DT DEC(8, 0) NOT NULL,
APPRAISER2_TYP CHAR(1) NOT NULL,
APPRAISER3_NM CHAR(50) NOT NULL,
APPRAISER3_VAL DEC(14, 2) NOT NULL,
VSR_APPRA_EXT3 DEC(14, 2) NOT NULL,
VSR_APPRA_EXT3_DT DEC(8, 0) NOT NULL,
APPRAISER3_DT DEC(8, 0) NOT NULL,
APPRAISER3_TYP CHAR(1) NOT NULL,
APPRAISER4_NM CHAR(50) NOT NULL,
APPRAISER4_VAL DEC(14, 2) NOT NULL,
VSR_APPRA_EXT4 DEC(14, 2) NOT NULL,
VSR_APPRA_EXT4_DT DEC(8, 0) NOT NULL,
APPRAISER4_DT DEC(8, 0) NOT NULL,
APPRAISER4_TYP CHAR(1) NOT NULL,
APPRAISER5_NM CHAR(50) NOT NULL,
APPRAISER5_VAL DEC(14, 2) NOT NULL,
VSR_APPRA_EXT5 DEC(14, 2) NOT NULL,
VSR_APPRA_EXT5_DT DEC(8, 0) NOT NULL,
APPRAISER5_DT DEC(8, 0) NOT NULL,
APPRAISER5_TYP CHAR(1) NOT NULL,
CRT_DATE DEC(8, 0) NOT NULL,
CRT_TLR CHAR(8) NOT NULL,
UPDTBL_DATE DEC(8, 0) NOT NULL,
UPDTBL_TLR CHAR(8) NOT NULL,
TS TIMESTAMP NOT NULL
)