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