Master Files and Sample Procedure

Reference:

The following Master Files (.MAS) and sample procedures (.FEX) are provided for your reference:

On Windows systems, these files are found in the drive:\ibi\apps\ibisamp directory. On UNIX systems, these files are found in the /ibi/apps/ibisamp directory. The IBISAMP application is configured as the server default search path.

On z/OS systems, the Master Files are in the library allocated to EDAMFD and the FOCEXEC files are in the library allocated to EDARPC.


Top of page

x
Reference: IBIMRUSR.MAS
IBIMRUSR.MAS Master File
$-----------------------------------------------------------------------
$  IBIMRUSR.MAS
$-----------------------------------------------------------------------
FILE=IBIMRUSR,  SUFFIX=COM
SEGNAME=IBIMRUSR, SEGTYPE=S0
FIELD=USER_HTM,   ALIAS=E01,  ACUTAL=A12,  USAGE=A12,  $
FIELD=USER_ID,    ALIAS=E02,  ACUTAL=A48,  USAGE=A48,  $
FIELD=ROLE_HREF,  ALIAS=E06,  ACUTAL=A48,  USAGE=A48,  $
FIELD=USER_PROP,  ALIAS=E03,  ACUTAL=A256, USAGE=A256, $
FIELD=USER_DESC,  ALIAS=E04,  ACUTAL=A256, USAGE=A256, $
FIELD=GROUP_HREF, ALIAS=E05,  ACUTAL=A13,  USAGE=A13,  $

Top of page

x
Reference: IBIMRROL.MAS
IBIMRUSR.MAS Master File
$-----------------------------------------------------------------------
$  IBIMRROL.MAS
$-----------------------------------------------------------------------
FILE=IBIMRROL,  SUFFIX=COM
SEGNAME=IBIMRROL, SEGTYPE=S0
FIELD=ROLE_HREF, ALIAS=E01,  ACUTAL=A48,  USAGE=A48,  $
FIELD=ROLE_NAME, ALIAS=E02,  ACUTAL=A48,  USAGE=A48,  $
FIELD=FIX_PROP,  ALIAS=E03,  ACUTAL=A255, USAGE=A255, $
FIELD=OPT_PROP,  ALIAS=E04,  ACUTAL=A255, USAGE=A255, $
FIELD=SEL_PROP,  ALIAS=E05,  ACUTAL=A255, USAGE=A255, $

Top of page

x
Reference: IBIMRGRP.MAS
IBIMRGRP.MAS Master File
$-----------------------------------------------------------------------
$  IBIMRGRP.MAS
$-----------------------------------------------------------------------
FILE=IBIMRGRP,  SUFFIX=COM
SEGNAME=IBIMRGRP, SEGTYPE=S0
FIELD=GROUP_HREF,  ALIAS=E01,  ACUTAL=A13,  USAGE=A13,  $
FIELD=GROUP_DESC,  ALIAS=E02,  ACUTAL=A256, USAGE=A256, $
FIELD=DOMAIN_HTM,  ALIAS=E03,  ACUTAL=A21,  USAGE=A21,  $

Top of page

x
Reference: IBIMRDOM.MAS
IBIMRDOM.MAS Master File
$-----------------------------------------------------------------------
$  IBIMRDOM.MAS
$-----------------------------------------------------------------------
FILE=IBIMRDOM,  SUFFIX=COM
SEGNAME=IBIMRDOM, SEGTYPE=S0
FIELD=DOMAIN_HTM,   ALIAS=E01,  ACUTAL=A21,  USAGE=A21,  $
FIELD=DOMAIN_PROP,  ALIAS=E02,  ACUTAL=A40,  USAGE=A40,  $
FIELD=DOMAIN_DESC,  ALIAS=E03,  ACUTAL=A256, USAGE=A256, $

Top of page

x
Reference: IBIMRDMC.MAS
IBIMRDMC.MAS Master File;Master Files:IBIMRDMC.MAS
$------------------------------------------------------------------
$ IBIMRDMC.MAS
$------------------------------------------------------------------
FILE=IBIMRDMC, SUFFIX=COM, REMARKS='MR Domain Content Data',  
SEGNAME=IBIMRDMC, SEGTYPE=S0
FIELD=DOMAIN_HTM, ALIAS=E01, ACTUAL=A21, USAGE=A21, 
TITLE='Domain,Reference',   
DESC='Joins many to one with DOMAIN_HTM in domains extract.',$
FIELD=REC1, ALIAS=E02, ACTUAL=A6, USAGE=A6, TITLE='Record,Type', 
DESC='Values: HELP, OTHER, STDRPT, RPTOBJ, or PROFILE', $
FIELD=REC2, ALIAS=E03, ACTUAL=A6, USAGE=A6, TITLE='Record,Sub-type',
DESC='Values: ITEM, FOLDER, or null', $
FIELD=ITEM_HREF, ALIAS=E04, ACTUAL=A16, USAGE=A16, 
TITLE='Item,Reference',  
DESC='Item reference', $
FIELD=ITEM_DESC, ALIAS=E05, ACTUAL=A256, USAGE=A256, TITLE='Item Name', 
DESC='Item description.',$
FIELD=ITEM_PROP, ALIAS=E06, ACTUAL=A256, USAGE=A256,
TITLE='Item,Properties',
DESC='The properties for this item.',$
FIELD=ITEM_FOLDER, ALIAS=E07, ACTUAL=A13, USAGE=A13, TITLE='Item Folder',
DESC='Folder href this item belongs in.',$


Example: Using the MRSAMP01 Procedure to Relate Users to Domains
* ---------------------------------------------------------------
-* MRSAMP02.FEX
-* For use with MR Extract utility. See MR administrator documentation.
-* ----------------------------------------------------------------
SET PCOMMA=ON
-* Windows/UNIX: edit FILEDEFs below as appropriate or put in 
EDASPROF.PRF instead
FILEDEF IBIMRUSR DISK c:\ibi\WebFOCUS77\utilities\IBIMRUSR.TXT
FILEDEF IBIMRGRP DISK c:\ibi\WebFOCUS77\utilities\IBIMRGRP.TXT
FILEDEF IBIMRDOM DISK c:\ibi\WebFOCUS77\utilities\IBIMRDOM.TXT
-* z/OS: remove FILEDEFs, uncomment and edit DYNAMs below as appropriate
-* DYNAM ALLOC FILE IBIMRUSR DSN 'hlq.IBIMRUSR.TXT' SHR REU
-* DYNAM ALLOC FILE IBIMRGRP DSN 'hlq.IBIMRGRP.TXT' SHR REU
-* DYNAM ALLOC FILE IBIMRDOM DSN 'hlq.IBIMRDOM.TXT' SHR REU
-RUN
SET ALL=ON
TABLE FILE IBIMRUSR
PRINT *
ON TABLE HOLD AS USERINFO FORMAT FOCUS INDEX GROUP_HREF
END
-RUN
TABLE FILE IBIMRDOM
PRINT *
ON TABLE HOLD AS DOMINFO FORMAT FOCUS INDEX DOMAIN_HTM
END
-RUN
TABLE FILE IBIMRGRP
PRINT *
ON TABLE HOLD AS GROUP FORMAT FOCUS INDEX GROUP_HREF
END
-RUN
JOIN GROUP_HREF IN USERINFO TO ALL GROUP_HREF IN GROUP AS J1
JOIN DOMAIN_HTM IN USERINFO TO DOMAIN_HTM IN DOMINFO AS J2
-RUN
TABLE FILE USERINFO
PRINT DOMAIN_HTM
BY USER_ID
BY USER_DESC
BY GROUP_DESC
BY DOMAIN_DESC
END

Note: The SET PCOMMA=ON command is required to report from these files. It can be set in the procedure (as it is in the sample report) or in the profile.



Example: Using the MRSAMP02 Procedure to List Domain Contents
* ---------------------------------------------------------------
-* MRSAMP02.FEX
-* For use with MR Extract utility. See MR administrator documentation.
-* ----------------------------------------------------------------
SET PCOMMA=ON
-* Windows/UNIX: edit FILEDEFs below as appropriate or put in 
EDASPROF.PRF
FILEDEF IBIMRDOM DISK c:\ibi\WebFOCUS77\utilities\IBIMRDOM.TXT
FILEDEF IBIMRDMC DISK c:\ibi\WebFOCUS77\utilities\IBIMRDMC.TXT
-* z/OS:remove FILEDEFs,uncomment and edit DYNAMs below as appropriate
-* DYNAM ALLOC FILE IBIMRDOM DSN 'hlq.IBIMRDOM.TXT' SHR REU
-* DYNAM ALLOC FILE IBIMRDMC DSN 'hlq.IBIMRDMC.TXT' SHR REU
-RUN
SET ALL=ON
TABLE FILE IBIMRDOM
PRINT *
ON TABLE HOLD AS DOMINFO FORMAT FOCUS INDEX DOMAIN_HTM
END
-RUN
TABLE FILE IBIMRDMC 
PRINT *
ON TABLE HOLD AS CONTENT FORMAT FOCUS INDEX DOMAIN_HTM
END
-RUN
JOIN DOMAIN_HTM IN DOMINFO TO ALL DOMAIN_HTM IN CONTENT AS J1
-RUN
TABLE FILE DOMINFO 
PRINT
ITEM_HREF ITEM_FOLDER ITEM_PROP 
BY DOMAIN_DESC
BY REC1
BY REC2
BY ITEM_DESC
END

WebFOCUS