?
Solved

DYNSLT is NOT WANTED!

Posted on 2008-10-02
1
Medium Priority
?
805 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 2000 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

NFR key for Veeam Agent for Linux

Veeam is happy to provide a free NFR license for one year.  It allows for the non‑production use and valid for five workstations and two servers. Veeam Agent for Linux is a simple backup tool for your Linux installations, both on‑premises and in the public cloud.

Question has a verified solution.

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

This article lists the top 5 free OST to PST Converter Tools. These tools save a lot of time for users when they want to convert OST to PST after their exchange server is no longer available or some other critical issue with exchange server or impor…
Check out the latest tech news, community articles, and expert highlights in August's newsletter.
In this video we outline the Physical Segments view of NetCrunch network monitor. By following this brief how-to video, you will be able to learn how NetCrunch visualizes your network, how granular is the information collected, as well as where to f…
This is my first video review of Microsoft Bookings, I will be doing a part two with a bit more information, but wanted to get this out to you folks.
Suggested Courses
Course of the Month8 days, 7 hours left to enroll

764 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