This program runs the TAPVITLD method without an operator, so you can start it from a UNIX cron job. It opens the VIP and IDOL-IV object libraries, sets up the IDOL-IV system variables, calls a script that connects to TAPVITLD and then releases Basic.

00005 REM "Run TAPVILTD from 'cron'"
00010 DIM ]7$(400)
00020 OPEN(32690,OPT="OLIB",ERR=30)"VIP-OBJ"! Make sure you are not opening
00030 OPEN(32700,OPT="OLIB")"IDOL-IV" ! them in you IPL file, if so take
00040 ]7$(77,3)="TA4" ! them out
00050 ]7$(228,1)="A"
00060 CALL "IDPUB4",]6$,]7$,]8$,]9$
00070 CALL "8ZPSYS",]SYSV$
00080 CALL "TAPSTVTL" ! Script that run TAPVITLD
00090 RELEASE ! Releases out of Basic when done
! Create a Script that looks like:
!
!MAINLINE
! CONNECT METHOD "TAPVITLD"
!
! Your Corrusponding IPL lines should look like:
!
! DEV T0,5,,,,,null
! IPL 1,2,T0,TABSTVTL

How to use it

  • Save the Basic program as TABSTVTL, the name the IPL line in the comments runs.
  • Create a script named TAPSTVTL whose MAINLINE contains CONNECT METHOD "TAPVITLD", as shown in the comments.
  • Add the two IPL lines from the comments: they define a null device T0 and run TABSTVTL on it.
  • Do not open the VIP-OBJ and IDOL-IV libraries in your IPL file as well. If you do, take them out.

Search tbred.com