externalroutine  tovsn15(string (255) s)
   externalroutinespec  copy(string (255) s)
   externalroutinespec  cherish(string (255) s)
   externalintegerfnspec  dtword(integer  oldform)
   recordformat  rf(integer  conad, filetype, datastart, dataend)
   systemroutinespec  connect(string (31) file, integer  mode, hole,
           project, record (rf)name  r, integername  flag)
   systemroutinespec  destroy(string (31) file,integername  flag)
   record (rf) r
   integer  flag

   connect("JJMASTER",3,0,0,r,flag)
   if  flag#0 start 
      printstring("Unable to connect JJMASTER.")
      newline
      return 
   finish 

   integer(r_conad) = integer(r_conad+8); ! Set file size (!)
   integer(r_conad+x'70C') = 7000; ! max epages.
   integer(r_conad+x'20') = dtword(integer(r_conad+x'20')); ! Change date format
   string(r_conad+x'27D0') = "LOGS"; ! Store background password.
   byteinteger(r_conad+x'27DC') = 0; ! Next autojob logfile no.

   copy("JSPLRSTAT_IJOB,JJ#SPIJOB"); cherish("JJ#SPIJOB")
   copy("JSPLRSTAT_CJOB,JJ#SPCJOB"); cherish("JJ#SPCJOB")
   copy("JSPLRSTAT_JDEVID,JJ#SPDEVID"); cherish("JJ#SPDEVID")
   copy("JSPLRSTAT_JCONS,JJ#SPCONS"); cherish("JJ#SPCONS")
   copy("JVOLSTAT_JRESTAB,JJ#VOLRTAB"); cherish("JJ#VOLRTAB")
   copy("JVOLSTAT_JRESTWK,JJ#VOLRWK"); cherish("JJ#VOLRWK")
   copy("JDIRECTSTAT_JCONTROL,JJ#DIRCON"); cherish("JJ#DIRCON")
   copy("JDIRECTSTAT_JSESSIONS,JJ#DIRSESS"); cherish("JJ#DIRSESS")
   destroy("JJREPORT", flag)
   connect("JJ#VOLRTAB", 3, 0, 0, r, flag)
   if  flag#0 start 
      printstring("Unable to connect JJ#VOLRTAB - please set
integer(conad+x'2C') = integer(conad+x'20')")
      newline
   finish  else  integer(r_conad+x'2C') = integer(r_conad+x'20'); ! Max entries.
   connect("JJ#VOLRWK", 3, 0, 0, r, flag)
   if  flag#0 start 
      printstring("Unable to connect JJ#VOLRWK - please set
integer(conad+x'1C') = 200")
      newline
   finish  else  integer(r_conad+x'1C') = 200
end ; ! Of %external %routine to vsn15.
endoffile