Don't use 

//SYSIN   DD  *
(the stuff from CBT)
/* (optional)

Instead, use 

//SYSIN   DD  DSN=the.input.from.CBT(member),DISP=SHR

The problem is that when you use DD *, the first card with // in columns 1 and 
2 is interpreted as JCL, thus terminating SYSIN.

Alternatively, you can say

//SYSIN  DD  DATA,DLM=$$ (or almost any 2 characters of your choosing)
  IEBUPDTE input
$$

DATA means that JCL cards are expected in the input, and tells the reader to 
ignore them and place them into the generated SYSIN data set.  By default, it 
will look for /* in column 1 to signify end-of-file.  However, there are times 
when /* will appear in column 1 (think JES2 JECL or no-longer-required 
end-of-data cards) and the DLM gives a means of specifying the end of data 
marker (columns 1 and 2).

Personally, I prefer the DSN= on the  SYSIN DD card.

Later,
Ray


-- 
M. Ray Mullins 
Roseville, CA, USA 
http://www.catherdersoftware.com/
http://www.mrmullins.big-bear-city.ca.us/ 
http://www.the-bus-stops-here.org/ 

German is essentially a form of assembly language consisting entirely of far 
calls heavily accented with throaty guttural sounds. ---ilvi 
French is essentially German with messed-up pronunciation and spelling.  
--Robert B Wilson
English is essentially French converted to 7-bit ASCII.  ---Christophe Pierret 
[for Alain LaBonté]




> -----Original Message-----
> From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On
> Behalf Of Robert Pelletier
> Sent: Thursday, 13 September, 2007 10:02
> To: [email protected]
> Subject: Re: CBT Tape Help - Getting a Little Further
> 
> Thanks all. Getting the following error:
>        SYSIN                            NEW MA
>        ./ ADD NAME=ASMJCL
> IEB823I SYSIN    HAS NO RECORDS.
> IEB818I HIGHEST CONDITION CODE WAS 00000012
> 
> This is what I coded in the IEBUPDTE:
>   ./ ADD NAME=ASMJCL
>  //TRLP1T   JOB CLASS=S,MSGCLASS=A,MSGLEVEL=(1,1),NOTIFY=TRLP1
>  //* -------------------------------------------------------------
>  //*
>  //*    1) CHANGE JOB CARD
>  //*    2) CHANGE MACLIB TO YOUR DITTO MACRO LIBRARY NAME
>  //*    3) CHANGE SOURCE TO YOUR DITTO SOURCE LIBRARY NAME
>  //*    4) CHANGE LOADLIB TO AN APF AUTHORIZED LIBRARY NAME
> //ASM      PROC NAME=,
> //             LIST='SYSOUT=*'
> //ASM      EXEC PGM=IEV90,COND=(4,LT),
> //             REGION=4096K,
> //             PARM='LINECOUNT(55),DECK,NOOBJECT,XREF(SHORT)'
> //SYSPRINT DD  &LIST
> //SYSUT1   DD  UNIT=SYSDA,SPACE=(CYL,(1,1))
> //SYSLIB   DD  DSN=SYS1.MACLIB,DISP=SHR
> //         DD  DSN=SYS1.MODGEN,DISP=SHR
> //         DD  DSN=SYS1.AMODGEN,DISP=SHR
> //         DD  DSN=TECH.DITTO.MACLIB,DISP=SHR          <------- 2
> //SYSPUNCH DD  DSN=&&WK,DISP=MOD
> //SYSIN    DD  DSN=TECH.DITTO.SRCLIB(&NAME),DISP=SHR   <------- 3
> // PEND
> //* ----------------------------------------------------------------- *
> 
> TECH.DITTO.SRCLIB(&name) is empty and I assume gets filled in by the
> iebudpdte. Not sure what goes here. Any ideas?
>

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to