Ispf command to shift unblocked records.

milind suman · New User Joined: 19 Aug 2009 Posts: 55 Location: Pune

Hi ,

Is there any shortcut/tip for ISPF command which can help me to acheive this . The number of records are more than 50 .

My data set looks like this :

sushanth bobby · Posted: Thu Jan 28, 2010 4:45 pm

Milind,

You can use Edit Commands like (M)ove & (A)fter.

Sushanth

Bill Dennis · Posted: Thu Jan 28, 2010 7:42 pm

You could put number pairs in unused columns of matching lines, then exclude the block of lines and SORT s-col e-col X to resequence them.

Pedro · Posted: Thu Jan 28, 2010 8:06 pm

PeterHolland · Posted: Thu Jan 28, 2010 8:16 pm

How did you generate your input?

milind suman · New User Joined: 19 Aug 2009 Posts: 55 Location: Pune

Hi Bill ,
Thanks for this idea ..indeed helped me to arrange the records quickly ..however i had to put the even-odd numbers manualy for the matching records . before sorting . Wondering if this effort could be minimized as well .

MBabu · Posted: Thu Jan 28, 2010 10:06 pm

maybe: renum, num off, sort trick on 73-80 (or whatever cols), renum, unnum
assuming you don't want to preserve line numbers and there is room for them (not tested - nice trick, Bill)

Pedro · Posted: Fri Jan 29, 2010 1:52 am

gcicchet · Posted: Fri Jan 29, 2010 3:50 am

Hi,

if you have to manually number pair them off, why not just

dick scherrer · Posted: Fri Jan 29, 2010 3:56 am

Hello,

milind suman · New User Joined: 19 Aug 2009 Posts: 55 Location: Pune

gcicchet,

The number pairs can be easily generated by Excel and then pasting to DS . M..A for 50 records was tiring ...

D.ch ,

while writing the new pgm I had to copy the info from other data set wherein it was decl;ared as Data storage in 1 row for each When - Perform clause .

PeterHolland · Posted: Fri Jan 29, 2010 2:22 pm

So why not process the 1 line data to get what you want ?

milind suman · New User Joined: 19 Aug 2009 Posts: 55 Location: Pune

Ok Peter,

A(0001),A(0234),A(LABEL1)
A(0002),A(0224),A(LABEL2)
A(0021),A(0434),A(LABEL3)
A(0031),A(0234),A(LABEL4)
..
.
.
100 TIMES..

can u suggest faster way of writing the whole thing as :

when var1 = 0001 and var2= 0234
perform label1
when var1= 0002 and var2 =0224
perform label2
..
..

and so on

PeterHolland · Posted: Fri Jan 29, 2010 2:30 pm

Rexx, Easytrev, SAS are some utilities to do the job for you, instead of
manually shifting, renumbering, editing etc.

enrico-sorichetti · Posted: Fri Jan 29, 2010 4:26 pm

what about using a simple ISPF change commmand

PeterHolland · Posted: Fri Jan 29, 2010 5:29 pm

With all respect Enrico, but that will change one line. The TS likes to have it in 2 lines, at least thats what i understood.

So in rexx you could do it like :

get input
do 1 parse input line to get the variables and pre/suffix them with
some coding
write the created values to some output

enrico-sorichetti · Posted: Fri Jan 29, 2010 5:36 pm

You are right Peter, but I tougth that the two line were just cosmetics...
unless COBOL cares!
as I said many times I do not speak funny languages

PeterHolland · Posted: Fri Jan 29, 2010 5:41 pm

enrico-sorichetti · Posted: Fri Jan 29, 2010 5:43 pm