Problem in screen design

o.kappert at qc.aibn.com o.kappert at qc.aibn.com
Sun Mar 14 19:17:06 CDT 2010


John:

How about...

Read the doc-char file and output doc-char for each record where the 
part="12844161".

Then link the original file with this new file by doc-char and in the 
case where there is no record in the linked file you extract the details 
you need from the original file.  If on the otherhand the link finds the 
record in both files, then ignore all the doc-char in the original file.

Now, about creating the actual quiz code, it has been awile and I don't 
have the manual handy.

Olav.


Pickering, John (NORBORD) wrote:

> Thanks for that additional info -- I think I understand the problem. 
> Let me state it again -- if the doc-char contains part 12844161 in any 
> record then you do not want to select that doc-char.
>
> If that is the case then you will need two passes through the data. 
> The first pass should create a subfile with the key for the file and a 
> flag indicating the existence of part 12844161. The second pass reads 
> this subfile and gets the data for the desired records.
>
> In Quiz you could do something like:
> >Acc apmisumi
> >Define d-want char*1 &
> > = "N" if part = 12844161 &
> > Else ""
> >Sort on doc-char on d-want
> >Set subfile name sf1 at doc-char
> >Report summary doc-char &
> > D-want maximum
>
> This will create a subfile with all of the doc-char values and a flag 
> with either a blank or the letter "N". If the flag is "N" then the 
> part 12844161 was found for this doc-char value and you don't want 
> records with this doc-char value.
>
> In the second pass you would start with this subfile, select only the 
> records with a blank d-want flag and link back to the original data 
> file. Something like:
>
> >Acc *sf1 link to apmisumi
> >Select sf1 if "" = d-want
>
> Hope this helps.
>
> Regards,
> JWP
>
>
> ------------------------------------------------------------------------
> From: powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com 
> <powerh-l-bounces+john.pickering=norbord.com at lists.sowder.com>
> To: o.kappert at qc.aibn.com <o.kappert at qc.aibn.com>
> Cc: Nisha B Pawar <nispawar at in.ibm.com>; powerh-l at lists.sowder.com 
> <powerh-l at lists.sowder.com>
> Sent: Sun Mar 14 04:31:48 2010
> Subject: Re: Problem in screen design
>
>
> Olav
>
> The doc-char which contains that part should not be selected.  Here 
> the doc-char 000000000225071 contains  other parts along with 12844161 
> Hence it should not be selected. Where as only doc-char 
> 000000000301004 should be selected.
>
>
>
>
> Thanks & Regards
> Pandurang Rajpurohit,
> -----------------------------------------------------------------
> Project Manager
> GM - Powerhouse Tower (DDS)
> IBM Global Services India Pvt. Ltd. Pune
> Contact No : +91 020 40116372
> Mobile No : +91 9049009973
> EMAIL : pandurang.rajpurohit at in.ibm.com
>
>
>
>
> o.kappert at qc.aibn.com
>
> 03/14/2010 04:42 AM
> Please respond to
> o.kappert at qc.aibn.com
>
>
> 	
> To
> 	Pandurang Rajpurohit/India/IBM at IBMIN
> cc
> 	powerh-l at lists.sowder.com, Nisha B Pawar/India/IBM at IBMIN
> Subject
> 	Re: Problem in screen design
>
>
>
> 	
>
>
>
>
>
> Maybe I am missing something but....
>
> Based upon the info provided,  part 12844161 is not in the report 
> generated; therefore everything works as you wanted it to.
>
> Olav.
>
> Pandurang Rajpurohit wrote:
>
> All
>
> I am on screen design where a record which do not contain data passed 
> are only be selected. Could you please help with query how can achieve.
>
> Here is example
>
>
> > acc apmisumi
> > show item
>
>                                             INPUT OUTPUT
> APMISUMI                                TYPE SCALE SCALE  DEC PICTURE
>  APMISUMI-KEY                          CHAR                  X(43)
> * .DOC-CHAR                             CHAR                  X(15)
>  .SOURCE-CODE                          CHAR                  X(16)
>  .GM-PART                              CHAR                  X(12)
>  DOC-TYPE                              CHAR                  X(2)
>  ORD-NUM                               CHAR                  X(13)
>  CUST-ORD                              CHAR                  X(20)
>  ORD-TYPE                              CHAR                  X(2)
>  ORD-PART                              CHAR                  X(20)
>  PART-QTY                              NUM     0     0    0  ^.^^^.^^^
>  WHM-QTY-ORD                           NUM     0     0    0  ^^^^^^^^
>  WHM-QTY-REC                           NUM     0     0    0  ^^^^^^^^
>  SHIP-DATE                             DATE                  YYYY/MM/DD
>  WHM-REC-DATE                          DATE                  YYYY/MM/DD
>  FLAG-905                              CHAR                  X(1)
>  PRIC-UNIT                             NUM     3     0    3 
>  ^.^^^.^^^.^^...
>  VAT-CODE                              CHAR                  X(2)
>  CURR-CODE                             CHAR                  X(3)
>  ACT-COST-L                            NUM     4     0    4 
>  ^^^.^^^.^^^,...
>  ACT-COST-F                            NUM     4     0    4 
>  ^^^.^^^.^^^,...
>  AVC-COST                              NUM     3     0    3 
>  ^.^^^.^^^.^^...
>  BEAF-INV                              CHAR                  X(1)
>  LOC-CUST                              CHAR                  X(9)
>  TOT-LINES                             NUM     0     0    0   ^.^^^
>  WHM-PLAN-CODE                         CHAR                  X(4)
>  WHM-IN-TYPE                           CHAR                  X(4)
>  FILLER                                CHAR                  X(42)
>
>
> > acc apmisumi
> > select if source-code = "632654450" and gm-part = "    12844161"
> > rep doc-char source-code gm-part flag-905
> > go
> 2010/03/13                  OPEL P&A DATA DICTIONARY                   
> PAGE   1
>
>  Document number  SOURCE CODE       Gm Part       Flag
>                                                   905
>
>  000000000225071  632654450             12844161   C
>
>
>
> > acc apmisumi
> > select if source-code = "632654450" and gm-part <> "    12844161" 
> and (flag-905="P" or flag-905="C")
> > rep doc-char source-code gm-part  flag-905
> > go
> 2010/03/13                  OPEL P&A DATA DICTIONARY                   
> PAGE   1
>
>  Document number  SOURCE CODE       Gm Part       Flag
>                                                   905
>
>  000000000225071  632654450              4726568   C
>  000000000225071  632654450              5064431   C
>  000000000225071  632654450              5325626   C
>  000000000225071  632654450              5409420   C
>  000000000225071  632654450              9121795   P
>  000000000225071  632654450             12790592   C
>  000000000225071  632654450             13219393   C
>  000000000225071  632654450             13253738   C
>  000000000301004  632654450              5333794   P
>  000000000301004  632654450             11609598   P
>  000000000301004  632654450             12762510   P
>  000000000301004  632654450             12767670   P
>  000000000301004  632654450             12797804   P
>  000000000302065  632654450              9270120   P
>
>
>
> I need select only doc-char which does not contain part  12844161 for 
> source code 632654450 but with this query the doc-char 000000000225071 
> is also selected even though it contain part 12844161
>
> Can any one  help me
>
> Thanks & Regards
> Pandurang Rajpurohit,
> -----------------------------------------------------------------
> Project Manager
> GM - Powerhouse Tower (DDS)
> IBM Global Services India Pvt. Ltd. Pune
> Contact No : +91 020 40116372
> Mobile No : +91 9049009973
> EMAIL : pandurang.rajpurohit at in.ibm.com 
> <mailto:pandurang.rajpurohit at in.ibm.com>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.sowder.com/pipermail/powerh-l/attachments/20100314/a1f1337c/attachment.htm 


More information about the powerh-l mailing list