;
;	UBAB:[361,15]ACCHKGEN.CMD
;	GENERATING TASK ACCHK
;
.ENABLE SUBSTITUTION
.ENABLE GLOBAL
;
.IFNINS MET INS LB:[110,11]MET
.IFNINS FOR INS $FOR
.IFNINS PIP INS $PIP
.IFNINS TKB INS $TKB
;
;
.SETS UIC <UIC>
SET /UIC=[361,15]
.IFNDF $OT .ASKS $OT I VILKEN DISK SITTER OTS LIBRARY (DDX:)
.IFNDF $LB .ASKS $LB VILKEN [R VERKLIG SYSTEMDISK (DDX:)
.IFNDF $WI .ASKS $WI VILKEN [R VOLVO LIBRARY DISK (DDX:)
.IFNDF $SC .ASKS $SC VILKEN [R SOURCEDISKEN (DDX:)
ASN '$OT'=OT:
.IF <EXSTAT> NE 1 .PAUSE
ASN '$LB'=LB:
.IF <EXSTAT> NE 1 .PAUSE
ASN '$WI'=WI:
.IF <EXSTAT> NE 1 .PAUSE
ASN '$SC'=SC:
.IF <EXSTAT> NE 1 .PAUSE
;
MET SC:ACCHK,SC:ACCHK.MLS/-SP=SC:ACCHK
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
FOR SC:ACCHK,SC:ACCHK.FLS/LI:3/-SP=SC:ACCHK
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .IF <EXSTAT> NE 0 .PAUSE
;
TKB @SC:ACCHK.TK6
.IF <EXSTAT> NE 1 ;EXIT STATUS = '<EXSTAT>'
.IF <EXSTAT> NE 1 .PAUSE
;
ASN =SC:
ASN =WI:
ASN =LB:
ASN =OT:
SET /UIC='UIC'
;
;	<EOF>
;