Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
how to transmit values from sysin in get data

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
shivsingla
Warnings : 1

New User


Joined: 14 Jul 2006
Posts: 15
Location: New Delhi

PostPosted: Wed May 23, 2007 8:01 pm    Post subject: how to transmit values from sysin in get data
Reply with quote

hi all,

i have write,

GET DATA(A,B,C);

how to pass values in these varibales through sysin dd *


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

Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Tue May 29, 2007 2:54 pm    Post subject:
Reply with quote

Declare sysin as a file; open it input; read into a record which has a structure based at it; finally close it.[/code]
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Tue May 29, 2007 2:57 pm    Post subject:
Reply with quote

or.........read the fine manual and find all about GET like this
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 968
Location: Richmond, Virginia

PostPosted: Tue May 29, 2007 5:20 pm    Post subject:
Reply with quote

I think GET DATA reads input like a stream, not records with structure.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Tue May 29, 2007 11:59 pm    Post subject:
Reply with quote

Phrzby Phil wrote:
I think GET DATA reads input like a stream, not records with structure.


Still......based(addr)
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 968
Location: Richmond, Virginia

PostPosted: Wed May 30, 2007 12:38 am    Post subject:
Reply with quote

Less cryptically please? I've done over 16 years' PL/I, but not since 1995, so my gaps are widening.
Back to top
View user's profile Send private message
k_vikram07

New User


Joined: 23 Nov 2005
Posts: 35

PostPosted: Wed May 30, 2007 6:15 pm    Post subject:
Reply with quote

Hi.
Assign the values in SYSIN as a PL/1 assignment statements
eg: In SYSIN...

A='adbcd';
B=9;
C=23.21;

Hope u recollect!!

Bye
Vik.
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 968
Location: Richmond, Virginia

PostPosted: Wed May 30, 2007 8:02 pm    Post subject:
Reply with quote

Oh, I do remember this part - that's the beauty of the GET DATA.

What I don't understand is Bitneuker's comment: "Still......based(addr)"
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu May 31, 2007 1:48 am    Post subject:
Reply with quote

Compared to COBOL somthing like REDEFINE. Overlay a structure based at the address of the string.
Back to top
View user's profile Send private message
Phrzby Phil

Active Member


Joined: 31 Oct 2006
Posts: 968
Location: Richmond, Virginia

PostPosted: Thu May 31, 2007 1:50 am    Post subject:
Reply with quote

I don't know why one would want to do this with GET DATA input.
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Thu May 31, 2007 2:03 am    Post subject:
Reply with quote

The issue is that the stringstament GET is supposed to be stored in three different items. GET = streaming............
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts attchmvs from rexx subroutine that re... harisukumaran CLIST & REXX 1 Fri Jan 19, 2018 5:29 am
No new posts Data security erase on RAID device steve-myers All Other Mainframe Topics 0 Sat Jan 13, 2018 6:41 am
No new posts Append the milliseconds to the data s... girishb2 DFSORT/ICETOOL 1 Thu Dec 21, 2017 9:07 pm
No new posts Moving a COMP-3 Variable to a Numeric... ajayachander COBOL Programming 2 Thu Dec 14, 2017 5:46 pm
No new posts Extract record for change in combinat... Trinadh DFSORT/ICETOOL 6 Thu Nov 23, 2017 3:32 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us