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

;<UETP.LIB>CBLSRT.VER.4, 10-May-79 11:50:28, EDIT BY EIBEN
!FILES NEEDED:
!		CBLSRT.EXE
@inf str user1:
@if (error) @goto begin:

@run <uetp.lib>sender
*type START
*blabel user1:
*test cblsrt
*send CBLSRT=>USER1:
*exit

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

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

begin1::
@take sys.cmd
@if (noerror) @goto begin2:

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

begin2::
@NOERROR
@delete out:*.*
@expunge out:
@error
@I DIS OUT:
@I LOG ALL:
@goto cobol:

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

COBOL::
@RUN ps:<uetp.lib>CBLSRT.EXE
@GOTO COBOL1:

%ERR::
@SILENCE	! ***** MESSAGE: ERROR ON 'RUN' COMMAND CBLSRT
@RUN ps:<uetp.lib>SENDER
*TYPE ERROR
*BLABEL COBOL:
*TEST CBLSRT
*SEND ERROR ON 'RUN' COMMAND CBLSRT
*EXIT
@REVIVE
@GOTO ENDERR:

COBOL1::
*X
*X
*1
*1
@GOTO END:

%ERR::
@silence		!***** message: ERROR in CBLSRT 
@RUN ps:<uetp.lib>sender
*TYPE ERROR
*BLABEL COBOL1:
*TEST CBLSRT
*SEND ERROR in CBLSRT 
*EXIT
@revive
@goto ENDERR:

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

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

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

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