Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
DUP command in NOMAD language

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
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    Post subject: DUP command in NOMAD language
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

Site Director


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

PostPosted: Thu Apr 26, 2007 7:20 pm    Post subject:
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    Post subject: Re: DUP command in NOMAD language
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

Site Director


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

PostPosted: Fri Apr 27, 2007 8:10 pm    Post subject:
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    Post subject: Re: DUP command in NOMAD language
Reply with quote

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

Site Director


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

PostPosted: Wed May 02, 2007 9:27 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts MQ command in option 6 of ISPF! Vignesh Sid All Other Mainframe Topics 3 Tue Sep 26, 2017 6:01 pm
No new posts How to change a string containing the... chong.zhou TSO/ISPF 6 Tue Aug 29, 2017 4:54 pm
No new posts Failure after DIR command Hank Watson All Other Mainframe Topics 2 Tue Aug 29, 2017 3:14 am
No new posts Command to find TMEMBER name for a TPIPE Siva NKK Kothamasu IMS DB/DC 0 Wed Aug 16, 2017 6:08 pm
This topic is locked: you cannot edit posts or make replies. rexx to create a tso command Bharath Vikraman CLIST & REXX 1 Tue Aug 08, 2017 3:32 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us