I have been given this macro to configure a post processor.
CIMFIL/ON,MACHIN
RSLT=POSTF(13)
SEQNO/On $$ no sequence number, only on LOADTL
PROMPT=TEXT/'ENTER PROGRAM NUMBER'
RSLT=FILEF(0,1,PROMPT)
STRNG=TEXT/READ,0
SCALR=SCALF(STRNG)
PRGNM=TEXT/CONVF,SCALR,4,0,0,1,1
INSERT/'',PRGNM,'$'
CIMFIL/ON,MACHIN
RSLT=POSTF(13)
$$ insert file name
$$ name of CL file
TXTPRT=TEXT/PART
PPRINT/TXTPRT
$$ Output the date and time
CALL/DDate
CIMFIL/OFF
It prompts for a program number to be entered but I also need it to prompt for a username.
I have zero experience at this.
Could someone help or point me in the right direction?
CIMFIL/ON,MACHIN
RSLT=POSTF(13)
SEQNO/On $$ no sequence number, only on LOADTL
PROMPT=TEXT/'ENTER PROGRAM NUMBER'
RSLT=FILEF(0,1,PROMPT)
STRNG=TEXT/READ,0
SCALR=SCALF(STRNG)
PRGNM=TEXT/CONVF,SCALR,4,0,0,1,1
INSERT/'',PRGNM,'$'
CIMFIL/ON,MACHIN
RSLT=POSTF(13)
$$ insert file name
$$ name of CL file
TXTPRT=TEXT/PART
PPRINT/TXTPRT
$$ Output the date and time
CALL/DDate
CIMFIL/OFF
It prompts for a program number to be entered but I also need it to prompt for a username.
I have zero experience at this.
Could someone help or point me in the right direction?