Objective
This report lists insurance coverage and risk level for a series of stores from an input file containing the floating field RISK-LEVEL.
Procedure
Complete Code
col. 2 ▼ IN 80 REC POLICY-NUMBER 5 10 2 REC COVERAGE-CODE 15 3 REC EFFECTIVE-DATE 18 6 2 REC LOCATION-NUMBER 24 4 2 REC LOCATION-INFO 28 GROUP AA 14.LOCATION-NUMBER REC LOCATION-ID 1 2 2 ELMNT AA REC LOC-EFF-DATE 3 6 2 ELMNT AA REC LOC-EXP-DATE 9 6 2 ELMNT AA REC OTHER-DATA 1 GROUP BB AA 1 REC RISK-LEVEL 1 1 ELMNT BB 01OUT D 010 INDEX 1 0141*010 'POLICY NUMBER' 0141*020 'COVERAGE' 0141*030 'EFFECTIVE DATE' 0141*035 'RISK LEVEL' 0141*040 'LOCATION ID' 0141*050 'LOC-EFF-DATE' 0141*060 'LOC-EXP-DATE' 01420001 ' ' 0151*010 POLICY-NUMBER F0 0151*020 COVERAGE-CODE 0151*030 EFFECTIVE-DATE FD 0151*035 RISK-LEVEL $The floating field 0152*040 LOCATION-ID.INDEX 0152*050 LOC-EFF-DATE.INDEX FD 0152*060 LOC-EXP-DATE.INDEX FD 017 RELS 1 017100 RELS 2 017 INDEX + 1 INDEX 017 IF INDEX LE LOCATION-NUMBER 100 017 MOVE 1 TO INDEX 017 DROP
Result
POLICY NUMBER COVERAGE EFFECTIVE DATE RISK LEVEL LOCATION ID LOC-EFF-DATE LOC-EXP-DATE 111111 010 mm/dd/yy 1 mm/dd/yy mm/dd/yy 5 mm/dd/yy mm/dd/yy 222222 011 mm/dd/yy 10 mm/dd/yy mm/dd/yy 333333 005 mm/dd/yy 5 mm/dd/yy mm/dd/yy 3 mm/dd/yy mm/dd/yy 1 mm/dd/yy mm/dd/yy 4444444 002 mm/dd/yy 4 mm/dd/yy mm/dd/yy 2 mm/dd/yy mm/dd/yy
Note: The report would show actual dates in the format shown.
|
Copyright © 2014 CA.
All rights reserved.
|
|