Why am I limited to only 508 bytes from a Pull command?

[LESATLARGE]

I've created and Rexx exec in batch.One of the lines of code is:
"PULL DATAIN" (quotes are not in the code itself);
The next line of code is "LLL =LENGTH(DATAIN)"; The next line of code is say "LENGTH OF DATAIN ===>>" = LLL for a display line in the JCL. The display is "LENGTH DATAIN ===>> 508". Although I know the record length is actually longer because when I go into TSO it will give me the column I'm at when looking at key data. Any ideas why?

Note: This a "LOAD" module which restricts a standard read.

 

[LESATLARGE]

Removed some typos from previous posting..

I've created a Rexx exec in batch.One of the lines of code is:
"[PULL DATAIN]" (quotes are not in the code itself);
The next line of code is "LLL =LENGTH(DATAIN)"; The next line of code is say "LENGTH OF DATAIN ===>>" LLL for a display line in the JCL. The display is "LENGTH OF DATAIN ===>> 508". Although I know the record length is actually longer because when I go into TSO it will give me the column I'm at when looking at key data. Any ideas why?

Note: This a "LOAD" module which restricts a standard read.

 

[rexxhead]

It's not REXX-related. What's the DCB of the data?

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster

 

[LESATLARGE]

Originally I was pulling from a Loadlib, but just to test I created a textfile, fixed block, LRECL 600 bytes, with a block size of 6000, and got the same results. Might this be a default length in the SYSTSIN DD in the batch job? How to imagine that they would limit this. Any ideas? I agree with you when you say that this isn't a REXX issue, but am clueless what this could be.
Here is the JCL I used. Remember the exec will pull the 508 bytes per no more:

//REXXTEST JOB (B,X,29AK00),'CMNSCAN ',PRTY=15, (973) 716-1125
JOB26426
// NOTIFY=&SYSUID,MSGCLASS=V
//OUTPUT OUTPUT DEFAULT=YES,JESDS=ALL
/*JOBPARM ROOM=31H,LINES=9999
// SET TIMEDSN=BX29AK.UAT.REL2.HERE.T51279.D2
//*
//**********************************************************************
//*TESTER
//**********************************************************************
//STEP1 EXEC PGM=IKJEFT01,DYNAMNBR=20,TIME=10,
// PARM=('TESTPULL','REXXTEST')
//SYSEXEC DD DISP=SHR,DSN=BX29AK.LOADCMP.CSC
//ISPPROF DD DSN=&&LES,SPACE=(400,(50,10,5),RLSE),UNIT=DASD,DISP=NEW,
// DCB=(LRECL=80,RECFM=FB,BLKSIZE=0)
//ISPPLIB DD DISP=SHR,DSN=SYS1.SISPPENU
//ISPMLIB DD DISP=SHR,DSN=SYS1.SISPMENU
//ISPTLIB DD DISP=SHR,DSN=SYS1.SISPTENU
//ISPSLIB DD DISP=SHR,DSN=SYS1.SISPSENU
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD DISP=SHR,DSN=BX29AK.X065198.REXX.TEST.LRECL,LRECL=600
/*

 

[rexxhead]

SYSTSIN isn't SYSIN. It's owned by IKJEFT01 which may be doing something "under the covers". I suggest your process be revamped to use a non-restricted DDname.

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster