Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
43 lines (36 sloc) 1.08 KB
/* REXX */
/*********************************************************************/
/* Adding a line to the **.ACS.SOURCE file */
/* */
/* */
/* Alex Lieberman 07/02/19 -Inital creation of member */
/*********************************************************************/
Parse UPPER ARG user ',' desc
desc = "/*" desc "*/"
'EXECIO * DISKR INPUT (FINIS STEM IN.'
u. = ''
d. = 0
counter = 1
Do i=1 to IN.0
If Find(IN.i,"FILTLIST PROJ_USERS")<>0 Then Do
idx = POS('(',IN.i)
temp1 = SUBSTR(IN.i,idx+1)
temp2 = SUBSTR(IN.i,1,idx)
value1 = temp2"'"user"',"
value1 = INSERT(desc,value1,idx+13)
value2 = INSERT(' ',temp1,0,idx)
u.counter = value1
u.0 = counter
counter = counter + 1
u.counter = value2
u.0 = counter
counter = counter + 1
End
Else Do
u.counter = IN.i
u.0 = counter
counter = counter + 1
End
End
'EXECIO * DISKW INPUT (FINIS STEM u.'
'FREE F(INPUT)'
You can’t perform that action at this time.