Hi,
I would like to know How to enter data for xread.
I would like to put them on the LTORG
Xread, Xdeic
Xread, Xdeic
by belkin99 » Mon Aug 30, 2010 7:03 pm
- belkin99
- Posts: 25
- Joined: Mon Aug 30, 2010 6:59 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: Xread, Xdeic
by enrico-sorichetti » Mon Aug 30, 2010 7:24 pm
are You using ASSIST, maybe?
if You google for XREAD and/or XDECI or for ASSIST You will find quite few examples
if You google for XREAD and/or XDECI or for ASSIST You will find quite few examples
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
- enrico-sorichetti
- Global moderator
- Posts: 3006
- Joined: Fri Apr 18, 2008 11:25 pm
- Has thanked: 0 time
- Been thanked: 165 times
Re: Xread, Xdeic
by steve-myers » Mon Aug 30, 2010 8:10 pm
The other issue is the Assembler LTORG pseudo-operation defines the start of a data area containing data defined by Assembler code using =xxx constants, like =P'1'. Your code should not by attempting to alter this data!
- steve-myers
- Global moderator
- Posts: 2105
- Joined: Thu Jun 03, 2010 6:21 pm
- Has thanked: 4 times
- Been thanked: 243 times
Re: Xread, Xdeic
by belkin99 » Mon Aug 30, 2010 8:31 pm
Thanks for the rply,
1- I used ASAM90 with put and get, and I do not have a problem because I used DSECT.
BUT when I used Assist with XREAD, I was confuse How to enter or put the data for the CARD.
I googled it, and I found two examples first shows entering data by console the second one CARD DC CL80
and thats it.
2- I used LTORG but it did not made a big change, still have an error
1- I used ASAM90 with put and get, and I do not have a problem because I used DSECT.
BUT when I used Assist with XREAD, I was confuse How to enter or put the data for the CARD.
I googled it, and I found two examples first shows entering data by console the second one CARD DC CL80
and thats it.
2- I used LTORG but it did not made a big change, still have an error
- belkin99
- Posts: 25
- Joined: Mon Aug 30, 2010 6:59 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: Xread, Xdeic
by NicC » Mon Aug 30, 2010 11:37 pm
I suggest you post your code and error
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
Regards
Nic
- NicC
- Global moderator
- Posts: 3025
- Joined: Sun Jul 04, 2010 12:13 am
- Location: Pushing up the daisies (almost)
- Has thanked: 4 times
- Been thanked: 136 times
Re: Xread, Xdeic
by belkin99 » Tue Aug 31, 2010 12:51 am
THIS IS PART OF THE CODE
I PUT MY DATA WITHIN THE ASSIST JCL DD
XREAD CARD,80
CHECKEOF BC B'0100',EXIT
XDECI 2,CARD
BC B'1110',VALIDNUM
XPRNT BADNUM,29
BC B'1111',EXIT
VALIDNUM XDECO R2,OUTPUT
XPRNT OUTPUT,4
EXIT BCR B'1111',14
LTORG
CARD DS CL80
MARKER DC CL1'*'
CHECKEOF BC B'0100',EXIT
XDECI 2,CARD
BC B'1110',VALIDNUM
XPRNT BADNUM,29
BC B'1111',EXIT
VALIDNUM XDECO R2,OUTPUT
XPRNT OUTPUT,4
EXIT BCR B'1111',14
LTORG
CARD DS CL80
MARKER DC CL1'*'
I PUT MY DATA WITHIN THE ASSIST JCL DD
- belkin99
- Posts: 25
- Joined: Mon Aug 30, 2010 6:59 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: Xread, Xdeic
by dick scherrer » Tue Aug 31, 2010 1:13 am
Hello,
Where is the error. . .? This should be posted also.
Where is the error. . .? This should be posted also.
Hope this helps,
d.sch.
d.sch.
-
dick scherrer - Global moderator
- Posts: 6268
- Joined: Sat Jun 09, 2007 8:58 am
- Has thanked: 3 times
- Been thanked: 93 times
Re: Xread, Xdeic
by belkin99 » Tue Aug 31, 2010 1:19 am
THE ERROR THAT I MENTIONED REPRESENTS THE
XPRNT DOES NOT PRINT OUT MY DATA THAT HAS BEEN READ WITH XREAD
THE OUTPUT IS EMPTY LINE
XPRNT DOES NOT PRINT OUT MY DATA THAT HAS BEEN READ WITH XREAD
THE OUTPUT IS EMPTY LINE
- belkin99
- Posts: 25
- Joined: Mon Aug 30, 2010 6:59 pm
- Has thanked: 0 time
- Been thanked: 0 time
Re: Xread, Xdeic
by dick scherrer » Tue Aug 31, 2010 3:03 am
Hello,
Turn off your caps lock. . .
How have you verified that the data has been read?
Most people have never worked with ASSIST. Posting the jcl/data submitted may help someone help you.
Turn off your caps lock. . .
How have you verified that the data has been read?
Most people have never worked with ASSIST. Posting the jcl/data submitted may help someone help you.
Hope this helps,
d.sch.
d.sch.
-
dick scherrer - Global moderator
- Posts: 6268
- Joined: Sat Jun 09, 2007 8:58 am
- Has thanked: 3 times
- Been thanked: 93 times
Re: Xread, Xdeic
by belkin99 » Tue Aug 31, 2010 5:24 am
Thanks scherrer
Cabs lock was on because i was work on TSO
And I hope some one will just show me how to read the data
Cabs lock was on because i was work on TSO
//xxxxxxxx JOB ,'belkin 99 ',MSGCLASS=H
//STEP01 EXEC PGM=ASSIST,PARM='MACRO=F'
//STEPLIB DD DSN=xxxxxxx.ASSIST.LOADLIB,DISP=SHR
//SYSIN DD *
XREAD CARD,80
CHECKEOF BC B'0100',EXIT
XDECI 2,CARD
XDUMP
BC B'1110',VALIDNUM
XPRNT BADNUM,29
BC B'1111',EXIT
VALIDNUM XDECO R2,OUTPUT
XPRNT OUTPUT,81
EXIT BCR B'1111',14
**
**
LTORG
CARD DS CL80
/*
//FT05F001 DD *
77 66 99
88 34 33
11 11 11
34 34 34
//FT06FOO1 DD SYSOUT=*
//STEP01 EXEC PGM=ASSIST,PARM='MACRO=F'
//STEPLIB DD DSN=xxxxxxx.ASSIST.LOADLIB,DISP=SHR
//SYSIN DD *
XREAD CARD,80
CHECKEOF BC B'0100',EXIT
XDECI 2,CARD
XDUMP
BC B'1110',VALIDNUM
XPRNT BADNUM,29
BC B'1111',EXIT
VALIDNUM XDECO R2,OUTPUT
XPRNT OUTPUT,81
EXIT BCR B'1111',14
**
**
LTORG
CARD DS CL80
/*
//FT05F001 DD *
77 66 99
88 34 33
11 11 11
34 34 34
//FT06FOO1 DD SYSOUT=*
And I hope some one will just show me how to read the data
- belkin99
- Posts: 25
- Joined: Mon Aug 30, 2010 6:59 pm
- Has thanked: 0 time
- Been thanked: 0 time