CRITICAL
Rule Definition
For reuse reasons, the field should be defined in a file reference. If not, you might define different types for the same field.
Remediation
Define the field in a reference file and use the REFFLD keyword to reference it.
Violation Code Sample
00010A** FLDREF MLGREFP MAILING LIST FIELD REFERENCE FILE
00020A R MLGREFR TEXT('Mailing List Field Reference')
00030A ACTNUM 5 0 COLHDG('Account' 'Number')
00040A EDTCDE(Z)
00050A ACTTYP 1 0 COLHDG('Acct' 'Type')
00060A TEXT('Acct Type 1=Bus 2=Gvt +
00070A 3=Org 4=Sch 5=Pvt 9=Oth')
00080A NAME 18 COLHDG('Name')
00090A REFSHIFT(X)
Fixed Code Sample
00010A REF(FILE1)
00020A R RECORD1
00030A FIELD1 R
00040A FIELD2 R
00050A FIELD3 R REFFLD(FLD3)
00060A FIELD4 R REFFLD(FLD4 FILE2)
00070A FIELD5 R REFFLD(FLD5 LIB1/FILE3)
Related Technologies
Technical Criterion
Architecture - Reuse
About CAST Appmarq
CAST Appmarq is by far the biggest repository of data about real IT systems. It's built on thousands of analyzed applications, made of 35 different technologies, by over 300 business organizations across major verticals. It provides IT Leaders with factual key analytics to let them know if their applications are on track.