<![CDATA[
Typical DCL Command Procedure to run the program :
$!
$! THIS COMMAND PROCEDURE RUNS THE PROCESS TO PRODUCE
$! A LIST OF FRS USERS (IDS & NAME).
$!
$ DELETE/LOG FR$FEX:*.FTM;*
$ DELETE/LOG FR$FEX:*.MAS;*
$ DELETE/LOG FR$FEX:PLAY.WP;*
$!
$ DEFINE FOC$DIR1 FR$DATA
$ DEFINE FOC$DIR2 FR$FEX,FR$MFD
$!
$ COPY/LOG FR$FEX:ZBA110.MFD; FR$FEX:*.MAS;
$!
$! RUN ZBA110 TO RETRIEVE VMS USERNAME DATA.
$!
$ ASSIGN/USER_MODE ZS$DATA:ZCFILE.DAT ZCFILE
$ ASSIGN/USER_MODE ZS$DATA:NAMEFL.DAT NAMEFL
$ ASSIGN/USER_MODE SYS$INPUT: CARDFL
$ RUN ZS$EXE:ZBA110
PGM=ZBA110,DATE=TODAY,SYSTEM=002,ACCESS-LIST=Y,BRIEF=Y,SELECT-BY=OPERID
$!
$! RUN FOCUS PROGRAM TO PRODUCE LIST OF FRS USERS (IDS & NAME).
$!
$ SET DEFAULT FR$FEX
$ FOCUS
EXEC (FOCEXEC name)
FIN
$!
$! E-MAIL REPORT TO REQUESTOR.
$!
$ USER = F$EDIT(F$GETJPI("","USERNAME"),"UPCASE,COLLAPSE")
$ MAIL/SUBJECT="(FOCEXEC name) - REPORT OF FRS USERS (IDS & NAME)" -
FR$FEX:PLAY.WP 'USER'
$!
$ EXIT
FOCUS program :
SET PAGE=NOPAGE
SET LINES=999999
JOIN CLEAR *
-*
-* Create list of FRS ids along with the associated name.
-*
FILEDEF ZBA110 DISK Z$PRT:ZBA110.PRT
TABLE FILE ZBA110
PRINT ZBA110_NUM AS 'Oper ID' ZBA110_NAME AS 'Name'
BY ZBA110_MAIL NOPRINT
ON TABLE SAVE AS PLAY FORMAT WP
WHERE ZBA110_MAIL NE '';
WHERE ZBA110_ZWT EQ 'N ';
END
JOIN CLEAR *
Master File Description (MFD) for ZBA110 :
FILE=ZBA110,SUFFIX=FIX
SEGNAME=ROOT
FIELDNAME=ZBA110_NUM,,A04,A04,$
FIELDNAME=COMPU_FILL01, ,A03,A03,$
FIELDNAME=ZBA110_NAME,,A33,A33,$
FIELDNAME=ZBA110_MAIL,,A23,A23,$
FIELDNAME=COMPU_FILL02, ,A67,A67,$
FIELDNAME=ZBA110_ZWT, ,A02,A02,$
]]>
This page hosted by 
Get your own Free Homepage
