Tracy,
perform a FCOPY FROM=<filename>;TO;CHAR
See the example:
TDP/V (A.05.06) HP36578 Editor (c) COPYRIGHT Hewlett-Packard Co. 1998
HPSPELL/V (A.01.02)
FRI, JUN 29, 2001, 8:43 AM (DAY #180)
/add
1 abc
2 def
3 ghi
4 jkl
5 mno
6 pqr
7 stu
8 vwx
9 yz1
10 //
/k x
/e
[4] XEBHH2:listf x,2
ACCOUNT= SYS GROUP= SCHMIDA
FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
X 88B FA 9 9 9 16 1 1
[5] XEBHH2:fcopy from=x;to;char
HP31900A.05.02 FILE COPIER (C) HEWLETT-PACKARD CO. 1990
X RECORD 0 (%0, #0)
00000: abc
00044: 00001000
X RECORD 1 (%1, #1)
00000: def
00044: 00002000
X RECORD 2 (%2, #2)
00000: ghi
00044: 00003000
X RECORD 3 (%3, #3)
00000: jkl
00044: 00004000
.... and so on
Now:
TDP, T X, and K X2,unn
[8] XEBHH2listf x2,2
ACCOUNT= SYS GROUP= SCHMIDA
FILENAME CODE ------------LOGICAL RECORD----------- ----SPACE----
SIZE TYP EOF LIMIT R/B SECTORS #X MX
X2 80B FA 9 9 9 16 1 1
[9] XEBHH2:fcopy from=x2;to;char
HP31900A.05.02 FILE COPIER (C) HEWLETT-PACKARD CO. 1990
X2 RECORD 0 (%0, #0)
00000: abc
00044: SAME: TO 000050-1
X2 RECORD 1 (%1, #1)
00000: def
00044: SAME: TO 000050-1
X2 RECORD 2 (%2, #2)
00000: ghi
00044: SAME: TO 000050-1
X2 RECORD 3 (%3, #3)
00000: jkl
00044: SAME: TO 000050-1
That's the only way I can think of.
Best regards, Andreas Schmidt, CSC, Germany
"Johnson, Tracy" <[log in to unmask]>@RAVEN.UTC.EDU> on 28/06/2001
19:52:39
Please respond to "Johnson, Tracy" <[log in to unmask]>
Sent by: HP-3000 Systems Discussion <[log in to unmask]>
To: [log in to unmask]
cc:
Subject: [HP3000-L] Numbered/Unnumbered File Detection
Is there a way to detected an unnumbered file versus
a numbered file without opening it?
Tracy Johnson
MSI Schaevitz Sensors
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|