RE: Memory Layout

Being too lazy to try this code myself, do I understand that this will
result in blanks being placed not only over the 5 'x' in string, but also
the following 32762 bytes of memory?

-Walden

------------
Walden H Leverich III
President
Tech Software
(516) 627-3800 x11
(208) 692-3308 eFax
WaldenL@TechSoftInc.com
http://www.TechSoftInc.com

Quiquid latine dictum sit altum viditur.
(Whatever is said in Latin seems profound.)



-----Original Message-----
From: Buck Calabro [mailto:Buck.Calabro@commsoft.net]
Sent: Monday, September 16, 2002 17:04
To: rpg400-l@midrange.com
Subject: RE: Memory Layout


Here is an example of a self-destructing program with a procedure.

h dftactgrp(*no) actgrp('QILE')
h* dbgview(*list)

dblankData        pr
d updString                  32767    options(*varsize)

d string          s              5    inz('xxxxx')

c                   callp     blankData(string)
c                   Eval      *InLR = *On

pblankData        b
dblankData        pi
d updString                  32767    options(*varsize)
c                   move      *blanks       updString
p                 e

  --buck
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com To subscribe, unsubscribe, or
change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.