Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.


Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED]Senior Moment - Need to create filler records

Read-Only Read-Only Topic
Go
Search
Notify
Tools
[CLOSED]Senior Moment - Need to create filler records
 Login/Join
 
S.J. Kadish
Guru
posted
We are trying to create blank values for an excel that will be saved in a template. We limit the users to ten product attributes. The issue is creating blanks for the excel if the users decides to go with fewer than ten product attributes. (The template is an update from an existing version so these attributes cannot be appended to the end of the excel and copied over using VBA.)


[CODE -* &attribute_cnt is determined in the first read against the attribute tables
-SET &REMAINDER = 10 - &ATTRIBUTE_CNT;
TABLE FILE HOLDATTRIBS0
PRINT ATTRIBUTE_DESCFIELD_ABBR ATTRIBUTE_DESCFIELD_ABBR_MIN
ATTRIBUTE_LINE BY ATTRIBUTE_ID WHERE ATTRIBUTE_ID LT 100
-* This hold file only allows valid attributes - nowhere near 100 Smiler
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS HOLDATTRIBS1 END
-* the code below attempts to create enough slots to fill out to 10 columns in the excel
-* Unfortunately the number of records is not incrementing
-SET COUNTER = 0;
-REPEAT B_LOOPER2 &REMAINDER TIMES
-SET &COUNTER = &COUNTER + 1;
-SET &RECYCLE = &COUNTER;
-SET &THIS_DATE_0 = &YYMD + 1;
-SET &THIS_DATE = EDIT(&THIS_DATE_0,'9999/99/99');
DEFINE FILE HOLDATTRIBS1
NEW_DATE/A10 = '&THIS_DATE'; NEW_ATTRIBUTE_ID/I11 WITH ATTRIBUTE_ID = &RECYCLE + 100;

NEW_ATTRIBUTE_DESCFIELD_ABBR/A30 WITH ATTRIBUTE_ID = NEW_DATE | ' UPDATED' ;
NEW_ATTRIBUTE_DESCFIELD_ABBR_MIN/A34 WITH ATTRIBUTE_ID = 'MIN.' | NEW_ATTRIBUTE_DESCFIELD_ABBR;

NEW_ATTRIBUTE_NAME_ABBR/A30 WITH ATTRIBUTE_ID = 'The date';

NEW_ATTRIBUTE_LINE/A66 = NEW_ATTRIBUTE_DESCFIELD_ABBR | ' AS ' | '''' | NEW_ATTRIBUTE_NAME_ABBR | '''';
END

TABLE FILE HOLDATTRIBS1 PRINT DST.NEW_ATTRIBUTE_DESCFIELD_ABBR AS ATTRIBUTE_DESCFIELD_ABBR OVER DST.NEW_ATTRIBUTE_DESCFIELD_ABBR_MIN AS ATTRIBUTE_DESCFIELD_ABBR_MIN OVER DST.NEW_ATTRIBUTE_LINE AS ATTRIBUTE_LINE OVER DST.NEW_ATTRIBUTE_ID BY ATTRIBUTE_ID ON TABLE SET HOLDLIST PRINTONLY
ON TABLE SET ASNAMES ON
ON TABLE HOLD AS HOLDATTRIBS2
END
-B_LOOPER2 -RUN CODE]
Clearly there is missing. Any thoughts are heartily encouraged.

Focus Nation Rocks!

This message has been edited. Last edited by: S.J. Kadish,


Sandy Kadish
Dev: 8.2.04- PostgreSQL
Test: 8.2.04 - PostgreSQL
Prod: 8.2.04 - PostgreSQL
 
Posts: 238 | Location: Atlanta, GA/Rehovot, Israel | Registered: May 06, 2003Report This Post
Jim Morrow
Platinum Member
posted Hide Post
It looks like each loop of the repeat is using the same hold. "ON TABLE HOLD AS HOLDATTRIBS2"

I would be inclined to set up a ten loop mcguver with some being the attributes and the rest empty.


Jim Morrow
Web Focus 7.6.10 under Windows 2003
MVS 7.3.3



 
Posts: 129 | Registered: June 01, 2005Report This Post
S.J. Kadish
Guru
posted Hide Post
We did go with the McGuyver technique, using the fseq.mas, which is a great solution but had to dig to find it. It works wonderfully.

Thanks, Jim


Sandy Kadish
Dev: 8.2.04- PostgreSQL
Test: 8.2.04 - PostgreSQL
Prod: 8.2.04 - PostgreSQL
 
Posts: 238 | Location: Atlanta, GA/Rehovot, Israel | Registered: May 06, 2003Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic

Focal Point    Focal Point Forums  Hop To Forum Categories  WebFOCUS/FOCUS Forum on Focal Point     [CLOSED]Senior Moment - Need to create filler records

Copyright © 1996-2020 Information Builders