In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID |
$ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ $ $ Synonym Name: mre_processes.mas $ $ created By: Anthony Alsford $ $ Date Created: 5th March 2012 $ $ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ FILE=MRE_processes, SUFFIX=FIX, $ $ -- Use filedef to identify required file DATASET='e:\ibi\basedir\director\director.htm' $ -- to point to the relevant .htm file on your server SEGNAME=MRE_LINE, SEGTYPE=S0, $ FIELD=MRE_LINE, MRE_LINE, A300, A300, MISSING=OFF ,$ $ -- Determine standard folder name DEFINE STD_FOLDER/A70V = IF MRE_LINE CONTAINS '<!--' THEN '' ELSE IF MRE_LINE CONTAINS 'HREF' AND MRE_LINE OMITS '[*]' THEN GETTOK( GETTOK(MRE_LINE, 300, -2, '>', 70, 'A70'), 70, 1, '<', 70, 'A70V') ELSE LAST STD_FOLDER; $ -- Determine standard folder name HREF DEFINE STD_FLDHREF/A70V = IF MRE_LINE CONTAINS '<!--' THEN '' ELSE IF MRE_LINE CONTAINS 'HREF' AND MRE_LINE OMITS '[*]' THEN GETTOK(MRE_LINE, 300, 2, '''', 70, 'A70V') ELSE LAST STD_FLDHREF; $ -- Determine file name DEFINE FEX_HREF/A70V = IF MRE_LINE CONTAINS '<!--' THEN '' ELSE IF STD_FOLDER EQ '' THEN '' ELSE IF MRE_LINE CONTAINS 'HREF' AND MRE_LINE CONTAINS '[*]' THEN TRIMV('T', GETTOK(MRE_LINE, 300, 2, '''', 70, 'A70'), 70, ' ', 1, 'A70V') ELSE ''; $ -- Determine descriptive name DEFINE FEX_NAME/A70V = IF MRE_LINE CONTAINS '<!--' THEN '' ELSE IF MRE_LINE CONTAINS 'HREF' AND MRE_LINE CONTAINS '[*]' THEN GETTOK(GETTOK(MRE_LINE, 300, -2, '>', 70, 'A70'), 70, 1, '<', 70, 'A70V') ELSE LAST FEX_NAME; $ -- Determine MR Flag(s) DEFINE MRFLAG_START/I3 = POSIT(MRE_LINE, 300, 'MRFLAG=', 6, 'I3') + 8; DEFINE MRFLAG/A70V = IF MRFLAG_START EQ 8 THEN '' ELSE TRIMV('T', GETTOK(SUBSTR(300, MRE_LINE, MRFLAG_START, MRFLAG_START+69, 70, 'A70'), 70 ,1 ,'''', 70, 'A70'), 70, ' ', 1, 'A70V');
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID |