.; .; WHO.CMD .; .ENABLE SUBSTITUTION .ENABLE GLOBAL .; .; $AUTOG is TRUE if @WHO was invoked from @AUTOGEN .; .IFNDF $AUTOG .SETF $AUTOG .IFT $AUTOG .GOTO 100 ; PIP XX:WHO.OBJ;*/DE/NM,.LST;* .OPEN WHOASM.CMD .ENABLE DATA XX:WHO,WHO/-SP=SY:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,XX:''WHO XX:WHOCSI,WHOCSI/-SP=SY:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,XX:''WHOCSI XX:WHODAT,WHODAT/-SP=SY:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,XX:''WHODAT XX:WHOFND,WHOFND/-SP=SY:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,XX:''WHOFND XX:WHOLOG,WHOLOG/-SP=SY:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,XX:''WHOLOG XX:WHOOUT,WHOOUT/-SP=SY:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,XX:''WHOOUT .DISABLE DATA MAC @WHOASM PIP WHOASM.CMD;0/DE ; PIP WHO.OLB;*/DE LBR WHO/CR=WHO,WHOCSI,WHODAT,WHOFND,WHOLOG,WHOOUT ; PIP WHO.OBJ;*/DE,WHOCSI;*,WHODAT;*,WHOFND;*,WHOLOG;*,WHOOUT;* .100: ; PIP SY1:WHO.TSK;*/DE/NM,MP:WHO.MAP;* TKB @XX:WHOBLD