Solved

DYNSLT is NOT WANTED!

Posted on 2008-10-02
1
795 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: Postgres Monitoring System

A PHP and Perl based system to collect and display usage statistics from PostgreSQL databases.

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

Always backup Domain, SYSVOL etc.using processes according to Microsoft Best Practices. This is meant as a disaster recovery process for small environments that did not implement backup processes and did not run a secondary domain controller that ne…
This article describes a method of delivering Word templates for use in merging Access data to Word documents, that requires no computer knowledge on the part of the recipient -- the templates are saved in table fields, and are extracted and install…
With Secure Portal Encryption, the recipient is sent a link to their email address directing them to the email laundry delivery page. From there, the recipient will be required to enter a user name and password to enter the page. Once the recipient …
In an interesting question (https://www.experts-exchange.com/questions/29008360/) here at Experts Exchange, a member asked how to split a single image into multiple images. The primary usage for this is to place many photographs on a flatbed scanner…

730 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