Xread, Xdeic



High Level Assembler(HLASM) for MVS & VM & VSE

Xread, Xdeic

Postby belkin99 » Mon Aug 30, 2010 7:03 pm

Hi,
I would like to know How to enter data for xread.
I would like to put them on the LTORG
belkin99
 
Posts: 25
Joined: Mon Aug 30, 2010 6:59 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Xread, Xdeic

Postby 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
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-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times

Re: Xread, Xdeic

Postby 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

Postby 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
belkin99
 
Posts: 25
Joined: Mon Aug 30, 2010 6:59 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Xread, Xdeic

Postby 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
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

Postby belkin99 » Tue Aug 31, 2010 12:51 am

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
belkin99
 
Posts: 25
Joined: Mon Aug 30, 2010 6:59 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Xread, Xdeic

Postby dick scherrer » Tue Aug 31, 2010 1:13 am

Hello,

Where is the error. . .? This should be posted also.
Hope this helps,
d.sch.
User avatar
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

Postby 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
belkin99
 
Posts: 25
Joined: Mon Aug 30, 2010 6:59 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Xread, Xdeic

Postby 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.
Hope this helps,
d.sch.
User avatar
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

Postby belkin99 » Tue Aug 31, 2010 5:24 am

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
belkin99
 
Posts: 25
Joined: Mon Aug 30, 2010 6:59 pm
Has thanked: 0 time
Been thanked: 0 time

Next

Return to Assembler