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: 965
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: 965
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: 965
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: 965
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 Copy 4 byte of data from the last rec... arunsoods DFSORT/ICETOOL 9 Fri Oct 06, 2017 12:15 pm
No new posts Extend the decimal values in DIVISION Balaryan DFSORT/ICETOOL 3 Thu Oct 05, 2017 4:05 pm
No new posts opening a dataset after reading it fr... arunsoods DFSORT/ICETOOL 5 Wed Oct 04, 2017 3:54 pm
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am
No new posts File Aid tool to compare numeric data balaji81_k Compuware & Other Tools 2 Tue Sep 26, 2017 3:35 am

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