Solved

DYNSLT is NOT WANTED!

Posted on 2008-10-02
1
799 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
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
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: Subnet Calculator

The subnet calculator helps you design networks by taking an IP address and network mask and returning information such as network, broadcast address, and host range.

One of a set of tools we're offering 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

Multi-threading long-running processes can have a significant increase in overall performance and drastically decrease over time it takes for a process to complete. Unfortunately, not all applications support native multi-threading, some by design a…
Microsoft is moving in-place eDiscovery & hold from ECP to EOP console under Content Search in Search and Investigation Options.  In this post, I will be showing you how to export emails to a PST file using the Content Search Options.
Come and listen to Percona CEO Peter Zaitsev discuss what’s new in Percona open source software, including Percona Server for MySQL (https://www.percona.com/software/mysql-database/percona-server) and MongoDB (https://www.percona.com/software/mongo-…
Add bar graphs to Access queries using Unicode block characters. Graphs appear on every record in the color you want. Give life to numbers. Hopes this gives you ideas on visualizing your data in new ways ~ Create a calculated field in a query: …

726 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