Solved

DYNSLT is NOT WANTED!

Posted on 2008-10-02
1
792 Views
Last Modified: 2012-08-13
Look at lines 38 & 39

With just line 38 ... it compiles
With just line 39 ... it compiles
But with both 38 & 39
... I get error line 93 - "Select/omit not valid for file IJCUTL1L1 when DYNSLT not specified"

What am I doing wrong?
Help?
==========================
1        5722SS1 V5R3M0  040528                  Data Description               CSIDEV/IJCUTL1L1        10/02/08 16:21:48        Page    1
2        File name . . . . . . . . . . . . . . . . . . . . . :   IJCUTL1L1                                                                
3          Library name  . . . . . . . . . . . . . . . . . . :   CSIDEV                                                                  
4        File attribute  . . . . . . . . . . . . . . . . . . :   Logical                                                                  
5        Source file containing DDS  . . . . . . . . . . . . :   QDDSSRC                                                                  
6          Library name  . . . . . . . . . . . . . . . . . . :   CSIDEV                                                                  
7        Source member containing DDS  . . . . . . . . . . . :   IJCUTL1L1                                                                
8        Source member last changed  . . . . . . . . . . . . :   10/02/08  16:21:46                                                      
9        Source listing options  . . . . . . . . . . . . . . :   *SOURCE    *LIST      *NOSECLVL  *NOEVENTF                              
10        DDS generation severity level . . . . . . . . . . . :   20                                                                      
11        DDS flagging severity level . . . . . . . . . . . . :   00                                                                      
12        File type . . . . . . . . . . . . . . . . . . . . . :   *DATA                                                                    
13        Authority . . . . . . . . . . . . . . . . . . . . . :   *LIBCRTAUT                                                              
14        Replace file  . . . . . . . . . . . . . . . . . . . :   *NO                                                                      
15        Text  . . . . . . . . . . . . . . . . . . . . . . . :   INVENTORY UNITS FROM IPCUTHD lots                                        
16        Compiler  . . . . . . . . . . . . . . . . . . . . . :   IBM AS/400 Data Description Processor                                    
17                                             Data Description Source                                                                    
18        SEQNBR  *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8  Date                                  
19           100       A**********************************************                             03/30/88  
20           200       A* PHYSICAL FILE:  TPTBLLS    LOC CODES 2 DIGIT KEY=0010                    10/01/08
21           300       A**********************************************                             03/30/88
22           400       A          R IUNITLR                   JFILE(LPLOTIV LPMATRM TPTL2C0)       10/02/08
23           500       A          J                           JOIN(LPLOTIV LPMATRM)                10/02/08
24           600       A                                      JFLD(LILC MMLC)                      10/02/08
25           700       A                                      JFLD(LIMATN MMMATN)                  10/02/08
26           800       A          J                           JOIN(LPLOTIV TPTL2C0)                10/02/08
27           900       A                                      JFLD(LILC LOC2CODE)                  10/02/08
28          1000       A            BUSUNIT                                                        10/01/08
29          1100       A            PLANT                                                          10/01/08
30          1200       A            CATEGORY                  RENAME(MMCTGY)                       10/02/08
31          1300       A            KINDID                    RENAME(LILOTN)                       10/02/08
32          1400       A            POUNDS                    RENAME(LIFRTI)                       10/02/08
33          1500       A            DOLLARS                   RENAME(LILVAL)                       10/02/08
34          1600       A            PCR                                                            10/01/08
35          1700       A            DESCRIPT                  RENAME(MMDESC)                       10/02/08
36          1800       A            MMSTKS                                                         10/02/08
37          1900       A            LILVAL                                                         10/02/08
38          2000       A          O LILVAL                    COMP(EQ 0)                           10/02/08
39          2100       A          S MMSTKS                    COMP(EQ 'M ')                        10/02/08                                
40                                 * * * * *   E N D   O F   S O U R C E   * * * * *                                                        
41         5722SS1 V5R3M0  040528                  Data Description               CSIDEV/IJCUTL1L1        10/02/08 16:21:48        Page    2
42                                                  Expanded Source                                                                        
43                                                                                                  Field       Buffer position            
44         SEQNBR  *...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8 length        Out     In                
45            400                  R IUNITLR                   JFILE(LPLOTIV LPMATRM TPTL2C0)                                              
46            500                  J                           JOIN(LPLOTIV LPMATRM) +                                                      
47            600                                              JFLD(LILC MMLC) +                                                            
48            700                                              JFLD(LIMATN MMMATN)                                                          
49            800                  J                           JOIN(LPLOTIV TPTL2C0) +                                                      
50            900                                              JFLD(LILC LOC2CODE)                                                          
51           1000                    BUSUNIT        5A  I      JREF(3) VARLEN COLHDG('BUSUNIT')         7                    1              
52           1100                    PLANT          8A  I      JREF(3) VARLEN COLHDG('PLANT')          10                    8              
53           1200                    CATEGORY      10A  I      JREF(2) +                               10                   18              
54                                                             TEXT('CATEGORY                     -                                        
55                                                                                  ') +                                                    
56                                                             COLHDG('CATEGORY')                                                          
57           1200                                              RENAME(MMCTGY)                                                
58           1300                    KINDID        10A  I      JREF(1) +                               10                   28
59                                                             TEXT('LOT NUMBER                   -                          
60                                                                                  ') +                                      
61                                                             COLHDG('LOT NUMBER')                                          
62           1300                                              RENAME(LILOTN)                                                
63           1400                    POUNDS         8S 2I      JREF(1) +                                8                   38
64                                                             TEXT('FRT IN                       -                          
65                                                                                  ') +                                      
66                                                             COLHDG('FRT IN') EDTCDE(L)                                    
67           1400                                              RENAME(LIFRTI)                                                
68           1500                    DOLLARS       10S 2I      JREF(1) +                               10                   46
69                                                             TEXT('LOT VALUE                    -                          
70                                                                                  ') +                                      
71                                                             COLHDG('LOT VALUE') EDTCDE(L)                                  
72           1500                                              RENAME(LILVAL)                                                
73           1600                    PCR            1A  I      JREF(3) COLHDG('PCR')                    1                   56
74           1700                    DESCRIPT      40A  I      JREF(2) +                               40                   57
75                                                             TEXT('DESCRIPTION                  -                          
76                                                                                  ') +                                      
77                                                             COLHDG('DESCRIPTION')                                                        
78           1700                                              RENAME(MMDESC)                                                              
79           1800                    MMSTKS         2A  I      JREF(2) ALIAS(STOCK_SOURCE_MM) +         2                   97              
80                                                             TEXT('SRC                          -                                        
81                                                                                  ') +                                                    
82                                                             COLHDG('SRC')                                                                
83           1900                    LILVAL        10S 2I      JREF(1) ALIAS(LOT_VALUE_LOTINV) +       10                   99              
84                                                             TEXT('LOT VALUE                    -                                        
85                                                                                  ') +                                                    
86                                                             COLHDG('LOT VALUE') EDTCDE(L)                                                
87           2000                  O LILVAL                    COMP(EQ 0)                                                                  
88           2100                  S MMSTKS                    COMP(EQ 'M ')                                                                
89                         * * * * *   E N D   O F   E X P A N D E D   S O U R C E   * * * * *                                              
90         5722SS1 V5R3M0  040528                  Data Description               CSIDEV/IJCUTL1L1        10/02/08 16:21:48        Page    3
91                                                     Messages                                                                            
92            ID      Severity  Number                                                                                                      
93        * CPD3217      20        1      Message . . . . :   Select/omit not valid for file IJCUTL1L1 when DYNSLT not specified.          
94         5722SS1 V5R3M0  040528                  Data Description               CSIDEV/IJCUTL1L1        10/02/08 16:21:48        Page    4
95                                                  Message Summary                                                                        
96            Total          Informational          Warning        Error       Severe                      
97                               (0-9)              (10-19)       (20-29)      (30-99)                    
98                1                 0                    0             1            0                      
99        * CPF7302      40               Message . . . . :   File IJCUTL1L1 not created in library CSIDEV.
100                                 * * * * *   E N D   O F   C O M P I L A T I O N   * * * * *            
0
Comment
Question by:volking
1 Comment
 
LVL 27

Accepted Solution

by:
tliotta earned 500 total points
ID: 22630027
volking:

According to the listing, LILVAL is a field from file LPLOTIV and MMSTKS is a field from LPMATRM. Note that in order for select/omit to work, the implementation must essentially create an index that tracks which records meet the criteria -- _unless_ records are checked dynamically.

But you can't create a permanent (non-dynamic) index over two different files.

You can do it with LILVAL, or you can do it with MMSTKS. But not both at the same time. Not without dynamic selection -- DYNSLT.

Tom
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes how to reset your Windows 10 password when you've forgotten it.
ConnectWise and their customers need to ensure critical alerts automatically reach the right person at the right time. MSP superheros efficiently respond to these alerts key is providing automatic, intelligent alerting that generates a complete audi…
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
In a recent question (https://www.experts-exchange.com/questions/29004105/Run-AutoHotkey-script-directly-from-Notepad.html) here at Experts Exchange, a member asked how to run an AutoHotkey script (.AHK) directly from Notepad++ (aka NPP). This video…

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question