.PROC,ACCFILE*I,
.
.HELP
 THIS PROCEDURE CREATES THE PARTNER JOB TEMPLATE FILE USED
 BY THE REMOTE HOST AND INTERSTATE COMMUNICATION EXECUTIVES
 TO GENERATE PROPER ACCOUNTING INFORMATION FOR PARTNER JOBS.

.ENDHELP
REWIND,ICACCNT.
REWIND,RHACCNT.
REVERT. ICACCNT AND RHACCNT FILES CREATED.
.DATA,ICACCNT.
&JOB
*IF ($string($name(wev$target_operating_system))='NOS')
USER,&USER,&PASSWORD,&FAMILY.
CHARGE,&CHARGE,&PROJECT.
USECPU(1)
*IFEND
.DATA,RHACCNT.
&JOB
*IF ($string($name(wev$target_operating_system))='NOS')
USER,&USER,&PASSWORD,&FAMILY.
CHARGE,&CHARGE,&PROJECT.
USECPU(1)
*IFEND
/EOR
