Page 1 of 2
Xread, Xdeic
Posted:
Mon Aug 30, 2010 7:03 pm
by belkin99
Hi,
I would like to know How to enter data for xread.
I would like to put them on the LTORG
Re: Xread, Xdeic
Posted:
Mon Aug 30, 2010 7:24 pm
by enrico-sorichetti
are You using ASSIST, maybe?
if You google for XREAD and/or XDECI or for ASSIST You will find quite few examples
Re: Xread, Xdeic
Posted:
Mon Aug 30, 2010 8:10 pm
by steve-myers
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!
Re: Xread, Xdeic
Posted:
Mon Aug 30, 2010 8:31 pm
by belkin99
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
Re: Xread, Xdeic
Posted:
Mon Aug 30, 2010 11:37 pm
by NicC
I suggest you post your code and error
Re: Xread, Xdeic
Posted:
Tue Aug 31, 2010 12:51 am
by belkin99
THIS IS PART OF THE CODE
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'*'
I PUT MY DATA WITHIN THE ASSIST JCL DD
Re: Xread, Xdeic
Posted:
Tue Aug 31, 2010 1:13 am
by dick scherrer
Hello,
Where is the error. . .? This should be posted also.
Re: Xread, Xdeic
Posted:
Tue Aug 31, 2010 1:19 am
by belkin99
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
Re: Xread, Xdeic
Posted:
Tue Aug 31, 2010 3:03 am
by dick scherrer
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.
Re: Xread, Xdeic
Posted:
Tue Aug 31, 2010 5:24 am
by belkin99
Thanks scherrer
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=*
And I hope some one will just show me how to read the data