Page 1 of 2

Xread, Xdeic

PostPosted: 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

PostPosted: 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

PostPosted: 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

PostPosted: 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

PostPosted: Mon Aug 30, 2010 11:37 pm
by NicC
I suggest you post your code and error

Re: Xread, Xdeic

PostPosted: 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

PostPosted: Tue Aug 31, 2010 1:13 am
by dick scherrer
Hello,

Where is the error. . .? This should be posted also.

Re: Xread, Xdeic

PostPosted: 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

PostPosted: 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

PostPosted: 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