Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;<UETP.LIB>RANFOR.VER.3,  9-May-79 13:10:30, EDIT BY EIBEN
@inf str user:
@if (error) @goto begin:

@run <uetp.lib>sender
*type START
*blabel user:
*test ranfor
*send RANFOR=>USER:
*exit

@mount structure user:
@def dsk: user:<uetp.ranfor>,ps:<uetp.lib>
@def out: user:<uetp.ranfor>
@goto begin1:

begin::
@RUN <uetp.lib>sender
*TYPE START
*BLABEL BEGIN:
*TEST RANFOR
*SEND
*EXIT
@def dsk: <uetp.ranfor>,ps:<uetp.lib>
@def out: ps:<uetp.ranfor>

begin1::
@TAKE SYS.CMD
@goto begin2:

%ERR::
@RUN  <uetp.lib>sender
*TYPE error
*BLABEL BEGIN1:
*TEST ranfor
*SEND ERROR on TAKE SYS.CMD
*EXIT
@revive
@goto ENDERR:

begin2::
@noerror
@delete out:*.*
@expunge out:
@error
@inf dis out:
@inf log all
@goto ranfor

%ERR::
@run <uetp.lib>sender
*type error
*blabel begin2
*test ranfor
*send No directory uetp.ranfor on structure USER:?
*exit
@go to enderr:


RANFOR::
@DEFINE (LOGICAL NAME) 3: (AS) DSK:
@DEFINE (LOGICAL NAME) 2: (AS) DSK:
@LOAD RANFOR
@GOTO RANFO1:

%ERR::
@silence		!***** message: ERROR ON LOAD RANFOR
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL RANFOR:
*TEST RANFOR
*SEND  ERROR ON LOAD RANFOR
*EXIT
@revive
@GOTO ENDERR:

RANFO1::
@START
@goto end:

%ERR::
@silence		!***** message: ERROR RUNNING RANFOR
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL RANFO1:
*TEST RANFOR
*SEND  ERROR RUNNING RANFOR
*EXIT
@revive
@GOTO ENDERR:

%TERR::
@SILENCE	! ***** MESSAGE: TIME-OUT ERROR RANFOR
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %TERR:
*TEST RANFOR
*SEND TIME-OUT ERROR RANFOR
*EXIT
@REVIVE
@GOTO ENDERR:

%ERR::
@SILENCE	! ***** MESSAGE: UNKNOWN ERROR IN RANFOR.SUP
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL %ERR:
*TEST RANFOR
*SEND UNKNOWN ERROR IN RANFOR.SUP
*EXIT
@REVIVE
@GOTO ENDERR:

ENDERR::
@INF DIS out:<UETP.RANFOR>
@VDIR out:
@I LOG ALL
@SY ALL F-S
@INF FI
@INF MEM

END::
%FIN::
@silence		!***** message: END OF RANFOR TEST
@RUN  ps:<uetp.lib>sender
*TYPE END
*BLABEL END:
*TEST RANFOR
*SEND
*EXIT
@revive