11 lines
1.2 KiB
JSON
11 lines
1.2 KiB
JSON
{
|
|
"header": {
|
|
"version": 1,
|
|
"type": "record"
|
|
},
|
|
"body": {
|
|
"record1": {
|
|
"<1>": "declare function security_check, set_printer, get_printer, msg, fieldcount, ex_vm_rem,Printer_Select\r\ndeclare subroutine security_err_msg\r\n$insert security_rights_equ\r\n$insert oiprint_equates\r\n$insert msg_equates\r\n\r\nPrintPath = Printer_Select('',1)\t\t;* Get default printer path\r\nStat = set_printer( 'INIT', '', '', .25:@fm:.25:@fm:.25:@fm:.25, 0, '',PrintPath )\r\n\r\nFont = \"Times New Roman,24,C,1\"\r\nconvert ',' to @fm in Font\r\nHf = Font\r\nStat = set_printer( 'FONT', Font )\r\nVoid = set_printer( 'TEXT', 'Reactor Process Tube Change Board' )\r\nVoid = set_printer( 'TEXT', '' )\r\nFont<2> = 14\r\nVoid = set_printer( 'FONT', Font )\r\nTable2 = .tube_chg_info->list\r\nTable = 'Reactor#':@vm:'Last Done':@vm:'Log ID':@vm:'Current Hrs'\r\nVoid = Set_Printer( 'ADDTABLE', '^+1440':@vm:'^+1440':@vm:'^+1440':@vm:'^+1440', '', Table, '','','', TB_ALL:@fm:'C' )\r\nVoid = Set_Printer( 'ADDTABLE', '^+1440':@vm:'^+1440':@vm:'^+1440':@vm:'^+1440', '', Table2, '','', 1, TB_ALL:@fm:'C' )\r\nstat = set_printer( 'TERM' ) \r\nRETURN 0\r\n"
|
|
}
|
|
}
|
|
} |