[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | FOCUS, from INFORMATION BUILDERS |
|
| Moderator: | ZAYIUS::BROUILLETTE |
|
| Created: | Thu Feb 19 1987 |
| Last Modified: | Mon May 05 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 615 |
| Total number of notes: | 1779 |
300.0. "Error with Compute statement?" by WJOUSM::MLEBLANC () Thu Jan 11 1990 09:00
Load Fex Error
I have a focus load routine that has ran on a quartly basis error free
for some time now. Since the last successful run the only changes made
to my knowledge has been to upgrade to V5.2.2. I was told this should not
effect my fex.
Well, my fex now errors and I can't figure it out. The error occurrs
in a modify file procedure. The error is on a compute field that is using
a define field from the master.
Below is the focus error, compute statement and the master file.
Any help is appreciated!
Mike LeBlanc
WJO
(FOC258) FIELD NAME OR COMPUTATIONAL ELEMENT NOT RECOGNIZED : COMMENT1_AMT
BYPASSING TO END OF COMMAND
MODIFY FILE PART_DET
COMPUTE
FGWTF_AMT= IF COMMENT1 IS 'I' AND (PRVAGESF_RES+PRVAGEOF_RES) GT 0
THEN COMMENT1_AMT
ELSE 0;
CMPWTF_AMT= IF COMMENT1 IS 'I' AND (PRVAGESC_RES+PRVAGEOC_RES) GT 0
THEN COMMENT1_AMT
ELSE 0;
$ FILE FILE
$ NAME EXTENSION
FILENAME=PART_DET, SUFFIX=FOC,$
$ SEGMENT SEGMENT
$ NAME TYPE
SEGNAME=AGEMONTH, SEGTYPE= S0,$
$ FIELD ALIAS FORMAT INDEX SHORT
$ NAMES NAMES TYPES ID DESCRIPTION
FIELD=INVAG_RPT_MO,INVAG_RP1818, A3 , ,
DESC=PLANT INV AGING REPORTING MONTH ABBREVIATION ,$
FIELD=INVAG_BUS_NM,INVAG_BU1822, A4 , ,
DESC=INV AGING REPORTING BUSINESS NAME ,$
FIELD=PART_ID ,PART_ID7502 , A16 , ,
DESC=PART IDENTIFIER ,$
FIELD=PRDBUSUNT_NM,PRDBUSUN9501, A30 , ,
DESC=PRODUCT BUSINESS UNIT NAME ,$
FIELD=INVAG_TYPE ,INVAG_TY1761, A15 , ,
DESC=PART INVENTORY AGING TYPE ,$
FIELD=PLTTL_INVQTY,PLTTL_IN9500, I8 , ,
DESC=PLANT TOTAL INVENTORY QUANTITY ,$
FIELD=PLTTL_INVAMT,PLTTL_IN1762, P12.2 , ,
DESC=PLANT TOTAL INVENTORY AMOUNT ,$
FIELD=ACTVFGD_QTY , , I8 , ,$
FIELD=ACTVFGD_AMT , , P12.2 , ,$
FIELD=ACTVCMP_AMT , , P12.2 , ,$
FIELD=SLOWFGD_QTY , , I8 , ,$
FIELD=SLOWFGD_AMT , , P12.2 , ,$
FIELD=SLOWCMP_AMT , , P12.2 , ,$
FIELD=INACFGD_QTY , , I8 , ,$
FIELD=INACFGD_AMT , , P12.2 , ,$
FIELD=INACCMP_AMT , , P12.2 , ,$
FIELD=SPLSFGD_QTY ,SPLSFGD1803 , I8 , ,
DESC=PLANT SURPLUS FINISHED GOODS QUANTITY ,$
FIELD=SPLSFGD_AMT ,SPLSFGD1804 , P12.2 , ,
DESC=PLANT SURPLUS FINISHED GOODS AMOUNT ,$
FIELD=SPLSCMP_AMT ,SPLSCMP1805 , P12.2 , ,
DESC=PLANT SURPLUS COMPONENT AMOUNT ,$
FIELD=SPLSFGWTFAMT,SPLSFGWT1768, P12.2 , ,
DESC=SURPLUS FINISHED GOODS INV WRITE-OFF AMT ,$
FIELD=SPLSCMPWTF ,SPLSCMPW1769, P12.2 , ,
DESC=SURPLUS COMPONENT INV WRITE-OFF AMOUNT ,$
FIELD=OBSLTFGD_QTY,OBSLTFGD1806, I8 , ,
DESC=PLANT OBSOLETE FINISHED GOODS QUANTITY ,$
FIELD=OBSLTFGD_AMT,OBSLTFGD1807, P12.2 , ,
DESC=PLANT OBSOLETE FINISHED GOODS AMOUNT ,$
FIELD=OBSLTCMP_AMT,OBSLTCMP1808, P12.2 , ,
DESC=PLANT OBSOLETE COMPONENT AMOUNT ,$
FIELD=OBSLTFGDWTF ,OBSLTFGD1770, P12.2 , ,
DESC=OBSOLETE FINISHED GOODS INV WRITE-OFF AMT ,$
FIELD=OBSLTCMPWTF ,OBSLTCMP1771, P12.2 , ,
DESC=OBSOLETE COMPONENT INV WRITE-OFF AMOUNT ,$
FIELD=PRVAGESO_DOL, , P12.2 , ,$
FIELD=PRVAGESF_RES, , P12.2 , ,$
FIELD=PRVAGESC_RES, , P12.2 , ,$
FIELD=PRVAGEOF_RES, , P12.2 , ,$
FIELD=PRVAGEOC_RES, , P12.2 , ,$
FIELD=COMMENT1 , , A1 , ,$
FIELD=COMMENT1_PCT, , I3 , ,$
FIELD=COMMENT2 , , A1 , ,$
FIELD=WRTFEXPLAN , , A1 , ,$
FIELD=COM1_DESC , , A25 , ,$
FIELD=COM2_DESC , , A25 , ,$
FIELD=WTFEXP_DESC , , A27 , ,$
FIELD=FGWTF_AMT , , P12.2 , ,$
FIELD=CMPWTF_AMT , , P12.2 , ,$
DEFINE WRTF_AMT/P15.2=CMPWTF_AMT+FGWTF_AMT;$
DEFINE TOT_SO_DOL/P15.2=SPLSFGD_AMT+
SPLSCMP_AMT+
OBSLTFGD_AMT+
OBSLTCMP_AMT;$
DEFINE FGD_RSRV/P15.2=SPLSFGWTFAMT+OBSLTFGDWTF;$
DEFINE CMP_RSRV/P15.2=SPLSCMPWTF+OBSLTCMPWTF;$
DEFINE TOT_RSRV/P15.2=FGD_RSRV+CMP_RSRV;$
DEFINE PRVFGD_RSRV/P15.2=PRVAGESF_RES+PRVAGEOF_RES;$
DEFINE PRVCMP_RSRV/P15.2=PRVAGESC_RES+PRVAGEOC_RES;$
DEFINE PRVTOT_RSRV/P15.2=PRVFGD_RSRV+PRVCMP_RSRV;$
DEFINE SFGRSRV_CHNG/P15.2=SPLSFGWTFAMT-PRVAGESF_RES;$
DEFINE SCMRSRV_CHNG/P15.2=SPLSCMPWTF-PRVAGESC_RES;$
DEFINE OFGRSRV_CHNG/P15.2=OBSLTFGDWTF-PRVAGEOF_RES;$
DEFINE OCMRSRV_CHNG/P15.2=OBSLTCMPWTF-PRVAGEOC_RES;$
DEFINE RSRV_CHNG/P15.2=TOT_RSRV-PRVTOT_RSRV;$
DEFINE COMMENT1_AMT/P15.2=RSRV_CHNG*.01*COMMENT1_PCT;$
DEFINE COMMENT2_AMT/P15.2=RSRV_CHNG-COMMENT1_AMT;$
END
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 300.1 | See note 302 - PATCH | EN::COYLE | | Thu Jan 11 1990 14:22 | 9 |
|
You might try applying the paper patch in NOTE 302 that deals with
DEFINES in the master file.
KC
|
| 300.2 | Patch didn't help | WJOUSM::MLEBLANC | | Wed Jan 17 1990 14:04 | 7 |
|
We applied the patch in note 3002 and reinstalled the image.
The load procedure produced the same error.
Mike
|
| 300.3 | Upgrade problem! | EN::COYLE | | Thu Jan 18 1990 16:13 | 12 |
|
Hi Mike,
I just re-created your problem on a smaller scale and called the
IBI hotline in N.Y.. He got the same error running on 5.2.2 but when
he ran it on a 5.2.1 machine, it worked O.K.. So YES it does appear to
be an upgrade problem. I will post any corrections or workarounds that
are mentioned to me.
KC
|
| 300.4 | Strange but true! | EN::COYLE | | Fri Jan 19 1990 13:20 | 17 |
|
Hi Mike,
I just talked with Andy at IBI. After re-creating the problem on
5.2.2 and finding out it worked on 5.2.1 he researched the problem and
found out that using DEFINEs in the master file were never supported
within the MODIFY module. He said that everything would have to be done
thru computes. He has put in a request to clearly state this in the
documentation, as I don't think it is mentioned any where. Just a small
blurb on 4-28 that says "you can define temporary fields in the Master File
Description using the DEFINE statement. These fields are available whenever
the data file is used for reporting".
KC
|
| 300.5 | I'll rewrite it | CSMADM::MLEBLANC | | Tue Jan 23 1990 09:53 | 12 |
|
KC,
Thanks a bunch for checking this out for me. Can you post
the NY number that you called and who to talk to. I would like
to have that number available for future problems.
Once again thanks for your help.
Mike
|
| 300.6 | Don't Call IBI | SPLAT::BOB_B | Bob (PICA::)Blanchette | Tue Jan 23 1990 14:22 | 7 |
| Mike,
That number won't help you. Please read notes 296 and 297 in this
conference. You can call DTN 264-6026 for support. You'll probably
end up talking to Kevin.
Bob B.
|