34 |
lDate = 24 |
lDate = 24 |
35 |
IF ( LEN(string) .LT. lDate ) GOTO 901 |
IF ( LEN(string) .LT. lDate ) GOTO 901 |
36 |
string = ' ' |
string = ' ' |
37 |
|
#ifndef TARGET_T3E |
38 |
CALL FDATE( string ) |
CALL FDATE( string ) |
39 |
|
#endif |
40 |
C |
C |
41 |
1000 CONTINUE |
1000 CONTINUE |
42 |
RETURN |
RETURN |
191 |
strTmp = 'UNKNOWN' |
strTmp = 'UNKNOWN' |
192 |
iFree = 1 |
iFree = 1 |
193 |
idSize = LEN(string) |
idSize = LEN(string) |
194 |
|
#ifdef TARGET_T3E |
195 |
|
IFirst = 0 |
196 |
|
CALL PXFGETENV('USER',iFirst,strTmp,ILast,Iend ) |
197 |
|
#else |
198 |
CALL GETENV('USER',strTmp ) |
CALL GETENV('USER',strTmp ) |
199 |
|
#endif |
200 |
IF ( strTmp .NE. ' ' ) THEN |
IF ( strTmp .NE. ' ' ) THEN |
201 |
iFirst = IFNBLNK(strTmp) |
iFirst = IFNBLNK(strTmp) |
202 |
iLast = ILNBLNK(strTmp) |
iLast = ILNBLNK(strTmp) |
211 |
ENDIF |
ENDIF |
212 |
ENDIF |
ENDIF |
213 |
strTmp = 'UNKNOWN' |
strTmp = 'UNKNOWN' |
214 |
CALL GETENV('HOST',strtmp ) |
#ifdef TARGET_T3E |
215 |
|
IFirst = 0 |
216 |
|
CALL PXFGETENV('HOST',iFirst,strTmp,ILast,Iend ) |
217 |
|
#else |
218 |
|
CALL GETENV('HOST',strTmp ) |
219 |
|
#endif |
220 |
IF ( strTmp .NE. ' ' ) THEN |
IF ( strTmp .NE. ' ' ) THEN |
221 |
iFirst = IFNBLNK(strTmp) |
iFirst = IFNBLNK(strTmp) |
222 |
iLast = ILNBLNK(strTmp) |
iLast = ILNBLNK(strTmp) |