%rem

VLP

Limited user

Join Date: Aug 2004

Posts: 1
- Share
- Tweet
#1

%rem

August 19, 2004, 10:23 AM

Looking to replace MVR with %REM.
old MVR code
CSRP DIV 256 LIN
MVR POS

Thanks,
Tags: None

jamief

Code400 Newbie

Join Date: Jan 2004
Posts: 9510

August 20, 2004, 10:39 AM

Hello VLP here is an example

old

Code:

     C*
     C     IsoDate       Subdur    D'1899-12-30' DayofWeek:*D
     C                   Div       7             DayOfWeek
     C                   Mvr                     DayOfWeek

new

Code:

WorkField = %Diff(ISODate: D'1899-12-31':*DAYS);
        WorkField = %REM(WorkField:7);

All my answers were extracted from the "Big Dummy's Guide to the As400"
and I take no responsibility for any of them.

www.code400.com

Announcement

%rem

Comment