Comments on: AS400 OVRDBF RNX1011 Undefined record type is found in file

By: The Most-Watched IT Questions: December 6, 2011 - ITKE Community Blog

The Most-Watched IT Questions: December 6, 2011 - ITKE Community Blog — Tue, 06 Dec 2011 14:47:46 +0000

[...] 3. NickHutcheson1 is trying to clear up some AS/400 clutter. [...]

By: splat

splat — Tue, 29 Nov 2011 17:15:59 +0000

RPG/RPGLE

Fat fingers today.

By: splat

splat — Tue, 29 Nov 2011 17:14:52 +0000

Keep in mind that some of the RPG/PRGLE source may have compile-time arrays. You’ll want to avoid wiping that.

By: tomliotta

tomliotta — Thu, 24 Nov 2011 00:17:56 +0000

Part of the problem is going to be that every source file might have a different record format name. You’ll need a little more code if you really want to do this with CL/RPG.

Source files aren’t intended to be processed as database files, so they don’t have to follow database rules. They can be processed as database files, mostly.

Tom

By: tomliotta

tomliotta — Thu, 24 Nov 2011 00:12:28 +0000

How about:

UPDATE mylib/mysrcf SET SRCDTA = '     ' concat substr(SRCDTA,6)

Just OVRDBF to the member and run a SQL UPDATE. Tom

By: nickhutcheson1

nickhutcheson1 — Wed, 23 Nov 2011 21:40:21 +0000

A                                      UNIQUE            
A          R CLRMODR                                     
A            SRCSEQ         6S 2       COLHDG('Sequence')
A            SRCDAT         6S 0       COLHDG('Data1')   
A            SRCDTA       102A         COLHDG('Data2')   
A          K SRCSEQ                                      

FClrModP   UF   E           K DISK                         
 *=========================================================
C     *Start        SetLL     ClrModP                      
C                   DOU       %Eof                         
C                   Read      ClrModP                      
C                   If        not %eof                     
C                   Eval      %subst(srcdta:1:5) = *blanks 
C                   Update    ClrModR                      
C                   Endif                                  
C                   EndDo                                  
C                   Eval      *inLr = *on