IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

DUP command in NOMAD language


IBM Mainframe Forums -> All Other Mainframe Topics
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Manikandan K

New User


Joined: 29 Mar 2007
Posts: 12
Location: Tamilnadu

PostPosted: Thu Apr 26, 2007 3:42 pm
Reply with quote

Do any one of you know about the function of DUP command in NOMAD language?

Manikandan K
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Thu Apr 26, 2007 7:20 pm
Reply with quote

Hello,

Did you see this in some code? If so, please post the code just before and just after the code where you found DUP.

It has been many years since i supported NOMAD (this is the product that provides similar functionality as FOCUS, right?). If i can see your code, it may trigger some hidden memory icon_smile.gif
Back to top
View user's profile Send private message
Manikandan K

New User


Joined: 29 Mar 2007
Posts: 12
Location: Tamilnadu

PostPosted: Fri Apr 27, 2007 3:31 pm
Reply with quote

Dick,

please find the code below

DEFINE PRINT_CODE(0) AS A6 = IF ALL((PRODUCT_INDEX) EQ &NAV)
THEN 'NSEL' ELSE USG_INQ_SVCS(PRODUCT_INDEX);

:
:
:
SELECT ALL((USG_INQ_SVCS) NE 'NSEL');

CREATE BY PRINT_AGR_NBR DUP
BY PRINT_CUST_NBR DUP
BY PRINT_SUB_NBR DUP
BY PRINT_CO_NAME DUP
BY PRINT_DUNS DUP
BY PRINT_SIC DUP
BY PRINT_OPER_ID DUP
BY USG_INQ_MEDIA DUP
BY INQUIRY_DATE DUP
BY INQUIRY_TIME DUP
BY TRANS_DATE DUP
BY USG_INQ_CHG DUP
BY PRINT_CODE DUP
ON USGTEMP KEEP;


is the select command used here is similar SQL or it is different?

also please explain me on DUP with the help of above CODES

Thanks in Advance,
Manikandan K
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Apr 27, 2007 8:10 pm
Reply with quote

Hello,

If my memory is working this morning (really has been a while and i've no doc anymore), the DUP tells NOMAD to repeat the data if it duplicates data from the previous CREATE.

The SELECT in NOMAD is not exactly the same as an SQL select.

In many situations, the "key" fields are suppressed until a key change. Then the value is shown again - something like:
Code:

 (without DUP)
AGR_NBR   CUST_NBR            AMT

1111          1010          100.00
                            200.00
              2020          123.00
                            200.00
2222          2313          100.00
              4567          200.00


When creating a file, the suppression is usually not wanted:
:
Code:

 (with DUP)
AGR_NBR   CUST_NBR            AMT

1111          1010          100.00
1111          1010          200.00
1111          2020          123.00
1111          2020          200.00
2222          2313          100.00
2222          4567          200.00


Hopefully, i've remembered correctly - if not my bad. . . icon_confused.gif

If you are going to work with NOMAD, you might want to contact Select Business Solutions (the current vendor - NOMAD changed hands several times) to get the documentation. Their web site is
http://www.selectbs.com/
Back to top
View user's profile Send private message
Manikandan K

New User


Joined: 29 Mar 2007
Posts: 12
Location: Tamilnadu

PostPosted: Wed May 02, 2007 7:41 pm
Reply with quote

Thanks Dick.
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Wed May 02, 2007 9:27 pm
Reply with quote

You're welcome icon_smile.gif
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> All Other Mainframe Topics

 


Similar Topics
Topic Forum Replies
No new posts RACF - Rebuild SETROPTS command which... All Other Mainframe Topics 3
No new posts Routing command Address SDSF to other... TSO/ISPF 2
No new posts DTL - how to define key with stacked ... TSO/ISPF 3
No new posts LTJ command CA Products 4
No new posts Query on edit primary command CLIST & REXX 5
Search our Forums:

Back to Top