.title Detached Job Processing ; Execute a Detached Job ; ; int strtdj("dev.file.ext"); ; ; = 0 startup failed ; = jobnum .psect c$code strtdj:: jsr r5,csv$ mov c$pmtr(r5),strt02 mov #strt01,r0 emt 375 ; start detached job bcc 1$ clr r0 ; startup failed 1$: jmp cret$ ; return job number .psect c$data strt01: .byte 0,132 ; start a detached job strt02: .word 0 ; address of "dev.file.ext" ; Check Status of a Detached Job ; ; int statdj(jobnum); ; ; = 0 job finished ; # 0 job active .psect c$code statdj:: jsr r5,csv$ mov c$pmtr(r5),stat02 mov #stat01,r0 emt 375 ; check status of detached job bcc 1$ clr r0 ; job has finished 1$: jmp cret$ ; return job number .psect c$data stat01: .byte 1,132 ; check status of detached job stat02: .word 0 ; job number ; Abort a Detached Job ; ; VOID abrtdj(jobnum); .psect c$code abrtdj:: jsr r5,csv$ mov c$pmtr(r5),abrt02 mov #abrt01,r0 emt 375 ; abort the detached job jmp cret$ .psect c$data abrt01: .byte 2,132 ; abort a detached job abrt02: .word 0 ; job number ; Get Job Number of Us ; ; int lcljob() ; ; = job number .psect c$code lcljob:: mov #lclj01,r0 emt 375 ; get local job number rts pc .psect c$data lclj01: .byte 0,34 ; .gval .word -2 ; job number .end