filestats.st_objtype -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

How come when I debug my program and I type in
EVAL FILESTATS.ST_OBJTYPE
I see
FILESTATS.ST_OBJTYPE = '*STMF ?'
and
EVAL FILESTATS.ST_OBJTYPE :x
shows me
EVAL FILESTATS.ST_OBJTYPE :x
00000 5CE2E3D4 C6404040 404000.. ........ - *STMF

But EVAL FILESTATS shows me:
FILESTATS.ST_MODE = 33256
FILESTATS.ST_INO = 1414328
FILESTATS.ST_NLINK = 1
FILESTATS.ST_RESERVED2 = 0
FILESTATS.ST_UID = 525
FILESTATS.ST_GID = 0
FILESTATS.ST_SIZE = 933726
FILESTATS.ST_ATIME = 1316181638
FILESTATS.ST_MTIME = 1316181638
FILESTATS.ST_CTIME = 1319574746
FILESTATS.ST_DEV = 2151677953
FILESTATS.ST_BLKSIZE = 32768
FILESTATS.ST_ALLOCSIZE = 1048576
FILESTATS.ST_OBJTYPE = '*STMF '
FILESTATS.ST_RESERVED3 = ' '
FILESTATS.ST_CODEPAGE = 819
FILESTATS.ST_CCSID = 819
FILESTATS.ST_RDEV = 0
FILESTATS.ST_NLINK32 = 1
FILESTATS.ST_RDEV64 = 0
FILESTATS.ST_DEV64 = 141012366262273
FILESTATS.ST_RESERVED1 = ' ■
FILESTATS.ST_INO_GEN_ID = 2351673289

The reason that I am asking is because it's failing this:
when (filestats.st_objtype<>'*DIR') and
(filestats.st_objtype<>'*STMF');
// only interested in directories and stream files.

Rob Berendt

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.