This --


? HOLD DB2_LICENSE_XFOC

SET SQLENGINE=SQLMSS
SQL SET SERVER wfdatamart

DEFINE FILE DB2_LICENSE_XFOC ADD
DB2_HAS_ICN/A3 = IF TX_ICN NE '' THEN 'Yes' ELSE 'No';
DRIVERS_LICENSE_CLASS/A30V = IF TX_LIC_CLAS EQ 'A' THEN 'Drivers_License'
ELSE IF TX_LIC_CLAS EQ 'B' THEN 'Drivers_License'
ELSE IF TX_LIC_CLAS EQ 'C' THEN 'Drivers_License'
ELSE IF TX_LIC_CLAS EQ 'M' THEN 'Motorcycle_License'
ELSE IF TX_LIC_CLAS EQ 'I' THEN 'ID_Card'
ELSE IF TX_LIC_CLAS EQ 'K' THEN 'Moped_Permit'
ELSE IF TX_LIC_CLAS EQ 'N' THEN 'Learners_Permit'
ELSE IF TX_LIC_CLAS EQ 'O' THEN 'Learners_Permit'
ELSE IF TX_LIC_CLAS EQ 'P' THEN 'Learners_Permit'
ELSE IF TX_LIC_CLAS EQ 'R' THEN 'Learners_Permit_Motorcycle'
ELSE 'Unknown';
DRIVERS_LICENSE_TYPE/A30V = IF TP_LIC EQ 'C' THEN 'Correction'
ELSE IF TP_LIC EQ 'D' THEN 'Duplicate'
ELSE IF TP_LIC EQ 'G' THEN 'Gratis'
ELSE IF TP_LIC EQ 'N' THEN 'New'
ELSE IF TP_LIC EQ 'R' THEN 'Renewal'
ELSE 'Unknown';
Year_Expiring/A4 = EDIT(DT_EXP, '9999');
Month_Expiring/A2 = EDIT(DT_EXP, '$$$$$99');
Date_Recorded/HYYMD = HGETC(8, 'HYYMDS');
RealId_Compliant_Not_Null/A3V = IF REALID_COMPLIANT EQ MISSING THEN 'Unk' ELSE REALID_COMPLIANT;
DATE_ISSUED/A10 = DATE_ISSUED;
END

APP HOLDMETA realid_metadata
APP HOLDDATA realid_metadata

? HOLD DB2_LICENSE_XFOC
-EXIT



Produces this --

03/27/2019 16:39:31 MVGBIBIWF1 0DEFINITION OF HOLD FILE: DB2_LICE
03/27/2019 16:39:31 MVGBIBIWF1 0FIELDNAME ALIAS FORMAT
03/27/2019 16:39:31 MVGBIBIWF1 FOCLIST E00 I5
03/27/2019 16:39:31 MVGBIBIWF1 SX_OWNER E01 A13
03/27/2019 16:39:31 MVGBIBIWF1 DT_ISS E02 A10
03/27/2019 16:39:31 MVGBIBIWF1 TX_LIC_CLAS E03 A1
03/27/2019 16:39:31 MVGBIBIWF1 TX_ICN E04 A25
03/27/2019 16:39:31 MVGBIBIWF1 TP_LIC E05 A1
03/27/2019 16:39:31 MVGBIBIWF1 DT_EXP E06 A10
03/27/2019 16:39:31 MVGBIBIWF1 SOUNDEX E01 A13
03/27/2019 16:39:31 MVGBIBIWF1 FOCLIST E00 I5
03/27/2019 16:39:31 MVGBIBIWF1 REALID_COMPLIANT E02 A3V MISSING = ON
03/27/2019 16:39:31 MVGBIBIWF1 ISSUEDATE E03 HYYMDI MISSING = ON
03/27/2019 16:39:31 MVGBIBIWF1 CREATED_DATE E04 HYYMDI MISSING = ON
03/27/2019 16:39:31 MVGBIBIWF1 MODIFIED_DATE E05 HYYMDI MISSING = ON

03/27/2019 16:39:31 MVGBIBIWF1 0DEFINITION OF HOLD FILE: DB2_LICE
03/27/2019 16:39:31 MVGBIBIWF1 0FIELDNAME ALIAS FORMAT
03/27/2019 16:39:31 MVGBIBIWF1 FOCLIST E00 I5
03/27/2019 16:39:31 MVGBIBIWF1 SX_OWNER E01 A13
03/27/2019 16:39:31 MVGBIBIWF1 TX_LIC_CLAS E02 A1
03/27/2019 16:39:31 MVGBIBIWF1 TX_ICN E03 A25
03/27/2019 16:39:31 MVGBIBIWF1 TP_LIC E04 A1
03/27/2019 16:39:31 MVGBIBIWF1 DT_EXP E05 A10
03/27/2019 16:39:31 MVGBIBIWF1 SOUNDEX E01 A13
03/27/2019 16:39:31 MVGBIBIWF1 FOCLIST E00 I5
03/27/2019 16:39:31 MVGBIBIWF1 REALID_COMPLIANT E02 A3V MISSING = ON


The DT_ISS field disappeared after the Define. This is killin' me, because I need the field, and I need the defines. Anyone have any clues?

This message has been edited. Last edited by: FP Mod Chuck,

No real suggestions, but could the HOLDMETA be causing issues ?

Could be anything. This is a weird one.

I guess the next step is either contacting Tech Support or start standard debugging techniques.

i.e.
Start commenting out blocks of code till it is there, then put code back in till it disappears again.

You could also turn tracing on to see if sheds any light.

What version/gen of WebFOCUS are you running?
Does this behavior reproduce on a sample file?

I would probably start with a WHENCE MASTER and make sure you are reading the right master file.

HOLD files / FOCUS files don't really have AnV formats. So, I would remove the V's from your defines.

I never like to define a field with the same fieldname. Can the name of DATE_ISSUED be changed.

Or, can you add another define after that last define. Something simple like X/A1 = ' '; because I have previously seen no error message when the last define fails.

Hi John,
I see the FOCLIST is created twice.
Not sure if the new define is getting appended to the old define or is it overwriting the old define.

Do it throw field not fould when you are calling the field in you table file section?

First of all, I'm not going to reproduce and open a ticket because that's not what gets the job done at my customer. I can't bill them to help IBI fix a problem, and I can't miss deadline.

So if someone has seen this before and has a useful fix I'm all ears, but I can't pursue in a ticket short of burning weekend time for my own devices.

The line assigning DATE_ISSUED the value of DATE_ISSUED in the Define was an attempt to correct this error, was not there when the problem first appeared.

I can remove the variable lengths and will do so.

I can move the APP HOLDMETA and will do so.

There is no prior DEFINE. I put the ADD on in an attempt to solve this problem.

And yes, I found the problem when reporting against the joined tables. The synonym checks are just there to show the effect (originally there to prove I'm not insane when a field I had clearly just added was there one moment, gone the next.)

Anyone panicking that machines are poised to replace humans need merely look at what we all do for a living to sleep soundly tonight.

This message has been edited. Last edited by: John_Edwards,

Solution -- Moving the APP HOLDMETA and APP HOLDDATA lines to higher up in the focexec corrected the problem.

Thank you much! I can get back to working on this critter!