Since this is a dataset, it is even simpler to use the Update command.
Get myset
Update
Extract field6=field7
Extract field7=0
Xeq
François
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On Behalf Of Tracy Pierce
Sent: Wednesday, April 19, 2006 11:19 AM
To: [log in to unmask]
Subject: [HP3000-L] FW: QUERY
-----Original Message-----
From: Tracy Pierce
Sent: Tuesday, April 18, 2006 1:55 PM
To: [log in to unmask]
Subject: RE: QUERY
with suprtool, try
>form myset
field1
field2
field3
field4
field5
field6
field7
field8
>get myset; extract field1\field5,field6=field7," ",field8;o
mydata;delete;x
>comment \ == "through"; I assumed text fields but you can use a number
instead of a string.
>in mydata;put myset;x
and you're done. this sample MOVES field7 into field6, blanking field7.
make a copy of the originals first!!
not so stupidtool at all, eh?
Tracy
> -----Original Message-----
> From: [log in to unmask] [mailto:[log in to unmask]]
> Sent: Tuesday, April 18, 2006 1:19 PM
> To: Tracy Pierce
> Subject: RE: QUERY
>
> Yes to supertool... but looks like I will whip out a quick
> cobol program
> tomorrow... shouldn't take over an hour....
>
> -----Original Message-----
> From: Tracy Pierce [mailto:[log in to unmask]]
> Sent: Tuesday, April 18, 2006 3:18 PM
> To: Kim Borgman
> Subject: RE: QUERY
>
> got suprtool? got cobol? anything but query, imho.
>
> > -----Original Message-----
> > From: HP-3000 Systems Discussion
> > [mailto:[log in to unmask]] On Behalf Of Kim Borgman
> > Sent: Tuesday, April 18, 2006 12:05 PM
> > To: [log in to unmask]
> > Subject: QUERY
> >
> > Playing with query again.
> >
> >
> >
> > I thought there was a way to replace a field in a data set
> > with the value in
> > an existing field.
> >
> >
> >
> > In this case, I need salesman(6) to go into salesman(7).
> >
> >
> >
> > Tried update, replace salesman(7)=salesman(6);end
> >
> >
> >
> > Choked big time.....it's looking for literal value where
> > salesman(6) is....
> >
> >
> >
> > Suggestions ?
> >
> >
> > * 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 *
Notice: This transmission is for the sole use of the intended recipient(s) and may contain information that is confidential and/or privileged. If you are not the intended recipient, please delete this transmission and any attachments and notify the sender by return email immediately. Any unauthorized review, use, disclosure or distribution is prohibited.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|