IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

set column position record?


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
italo_pm

New User


Joined: 26 Mar 2015
Posts: 37
Location: Italy

PostPosted: Wed May 27, 2015 2:18 am
Reply with quote

hi everyone,

how to set column position in record??

my problem is in the position columns, only from records begins with VFY, how to order there?

VFY (begins always from column 1 to 3)
APP (begins always from column 5 to 12)
RESPONSABILE (begins always from column 14) but not finish in determined column
AREA (begins always 3 "space" before from RESPONSABILE data)
CRITICA (begins always 3 "space" before from AREA data)
CELL (begins always 3 "space" before from CRITICA data)


between a column and the other must be a 3 space (only in RESPONSABILE, AREA, CRITICA, CELL)

input

Code:
VFY APP      RESPONSABILE                             AREA                CRITICA        CELL
VFY WIAX8    name surname 1 new WIAX8                 TEST WIAX8          NO             WIAX81
VFY WIAX8    name surname 2 new WIAX8                 TEST WIAX8          NO             WIAX82

========================================================================
Description : APP WIAX8
======================================================================
***********************************************************************
JOBNAME* *DESCRIPTION JOB         *                *CLASS* *RC**RESTART*
************************************************************************
WIAX8PPR   WIAX8PPR                        WIAX8PPR   0     00   JOB
WIAX8P01   WIAX8P01 DESCRIPTION script     WIAX8P01   0           NO
WIAX8P02   WIAX8P02 DESCRIPTION script     WIAX8P02   0           NO
WIAX8P03   WIAX8P03 DESCRIPTION script     WIAX8P03   0           NO
WIAX8P04   WIAX8P04 DESCRIPTION script     WIAX8P04   0           NO
WIAX8P05   WIAX8P05 DESCRIPTION script     WIAX8P05   0           NO
WIAX8TSX   WIAX8TSX                        WIAX8TSX   0     00   JOB
************************************************************************


output desired

Code:

----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
VFY APP      RESPONSABILE               AREA         CRITICA   CELL
VFY WIAX8    name surname 1 new WIAX8   TEST WIAX8   NO        WIAX81
VFY WIAX8    name surname 2 new WIAX8   TEST WIAX8   NO        WIAX82

========================================================================
Description : APP WIAX8
======================================================================
***********************************************************************
JOBNAME* *DESCRIPTION JOB         *                *CLASS* *RC**RESTART*
************************************************************************
WIAX8PPR   WIAX8PPR                        WIAX8PPR   0     00   JOB
WIAX8P01   WIAX8P01 DESCRIPTION script     WIAX8P01   0           NO
WIAX8P02   WIAX8P02 DESCRIPTION script     WIAX8P02   0           NO
WIAX8P03   WIAX8P03 DESCRIPTION script     WIAX8P03   0           NO
WIAX8P04   WIAX8P04 DESCRIPTION script     WIAX8P04   0           NO
WIAX8P05   WIAX8P05 DESCRIPTION script     WIAX8P05   0           NO
WIAX8TSX   WIAX8TSX                        WIAX8TSX   0     00   JOB
************************************************************************



I will have to use POS,substr functions right?? any suggestions please??


Thanks in advance
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2206
Location: Silicon Valley

PostPosted: Wed May 27, 2015 6:32 pm
Reply with quote

Quote:
how to set column position in record??

Use the PARSE statement to break up the existing statement. Then use an assignment statement with concatenation operators.
Code:

line1 = vfy app '   ' ||,
           resp '   ' ||,
           area
Back to top
View user's profile Send private message
italo_pm

New User


Joined: 26 Mar 2015
Posts: 37
Location: Italy

PostPosted: Thu May 28, 2015 4:54 pm
Reply with quote

Hi Pedo, thanks for answer,

but I don't know where to start. how to get not only first record but data too (begin record with VFY)??

some sample to this or suggestions kindly please.

thanks again.
Back to top
View user's profile Send private message
Pedro

Global Moderator


Joined: 01 Sep 2006
Posts: 2206
Location: Silicon Valley

PostPosted: Thu May 28, 2015 8:58 pm
Reply with quote

Use a TSO ALLOCATE statement then use EXECIO to read the file into a rexx stem. I think there are plenty of examples already posted in this forum. Use the search function.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 

Search our Forum:

Similar Topics
Topic Forum Replies
This topic is locked: you cannot edit posts or make replies. Splice JCL into one record for DD sta... SYNCSORT 2
No new posts Can we Insert duplicates in Primary U... DB2 0
No new posts Copying data from prev record using SORT SYNCSORT 19
No new posts Break a record into fields, each fiel... SYNCSORT 2
No new posts Creating a single-record file with CO... DFSORT/ICETOOL 8

Back to Top