Code: Select all
StatusId = JobName:'.':STAGECOM.WAVE.NUM
Readv ParamValues From DSRTCOM.RTSTATUS.FVAR, StatusId, JOB.PARAM.VALUES On Error
Release DSRTCOM.RTSTATUS.FVAR, JobName On Error Null
Call DSLogFatal('File read error for ':StatusId:' on ':StatusFileName:'. Status = ':Status(),GetHeader)
End Else
Release DSRTCOM.RTSTATUS.FVAR, JobName On Error Null
Call DSLogFatal('Failed to read ':StatusId:' record from ':StatusFileName,GetHeader)
End
Call DSLogInfo ('ParamValues = ':ParamValues,GetHeader)
Code: Select all
Writev ParamValues On DSRTCOM.RTSTATUS.FVAR, StatusId, JOB.PARAM.VALUES On Error
Release DSRTCOM.RTSTATUS.FVAR, JobName On Error Null
Call DSLogFatal('File write error for ':StatusId:' on ':StatusFileName:'. Status = ':Status(),GetHeader)
End Else
Release DSRTCOM.RTSTATUS.FVAR, JobName On Error Null
Call DSLogFatal('Unable to write ':StatusId:' record on ':StatusFileName:'. Status = ':Status(),GetHeader)
End
Release DSRTCOM.RTSTATUS.FVAR, JobName On Error Null
STAGECOM.JOB.STATUS<JOB.PARAM.VALUES> = ParamValues