| Routine ID: Z100 | |
|---|---|
| Author(s): J. Blake, J. Hart, T. Lindelöf | Library: KERNLIB |
| Submitter: T. Lindelöf | Submitted: 15.09.1978 |
| Language: Assembler | Revised: |
OBSOLETE
Please note that this routine has been obsoleted in CNL 219. Users are
advised not to use it any longer and to replace it in older programs.
No maintenance for it will take place and it will eventually disappear.
Suggested replacement: None
JOBNAM returns the name of the job, left-justified, blank-filled, 10 characters on CDC, 8 characters on IBM.
Structure:
SUBROUTINE subprogram
User Entry Names: JOBNAM
Usage:
CDC:
JNAME,...
ACCOUNT,...
...
CALL JOBNAM(J)
sets J to 'JNAMExy ', where xy is provided by
the system. //UUUGGNAM JOB UUU$GG,...
...
DOUBLE PRECISION J
...
CALL JOBNAM(J)
sets J to 'UUUGGNAM'.