Master Files and Sample Procedure

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's 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

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

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

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

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

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.',$

Top of page

Example: Using the MRSAMP01 Procedure to Relate Users to Domains

SET PCOMMA=ON
-* Windows/UNIX: edit FILEDEFs below as appropriate or put in 
EDASPROF.PRF instead
FILEDEF IBIMRUSR DISK c:\ibi\WebFOCUS76\utilities\IBIMRUSR.TXT
FILEDEF IBIMRGRP DISK c:\ibi\WebFOCUS76\utilities\IBIMRGRP.TXT
FILEDEF IBIMRDOM DISK c:\ibi\WebFOCUS76\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 WebFOCUS Reporting Server's profile.

Top of page

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\WebFOCUS76\utilities\IBIMRDOM.TXT
FILEDEF IBIMRDMC DISK c:\ibi\WebFOCUS76\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