Solved

DYNSLT is NOT WANTED!

Posted on 2008-10-02
1
781 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
Comment Utility
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

Enabling OSINT in Activity Based Intelligence

Activity based intelligence (ABI) requires access to all available sources of data. Recorded Future allows analysts to observe structured data on the open, deep, and dark web.

Join & Write a Comment

In this step by step tutorial with screenshots, we will show you HOW TO: Enable SSH Remote Access on a VMware vSphere Hypervisor 6.5 (ESXi 6.5). This is important if you need to enable SSH remote access for additional troubleshooting of the ESXi hos…
This article explains how to prepare an HTML email signature template file containing dynamic placeholders for users' Azure AD data. Furthermore, it explains how to use this file to remotely set up a department-wide email signature policy in Office …
It is a freely distributed piece of software for such tasks as photo retouching, image composition and image authoring. It works on many operating systems, in many languages.
This video demonstrates how to create an example email signature rule for a department in a company using CodeTwo Exchange Rules. The signature will be inserted beneath users' latest emails in conversations and will be displayed in users' Sent Items…

744 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now