here:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IEA2A9C1/79.1.2

<quote>
,id name  Specifies an identifier to be associated with the SAVE
macro. If an asterisk (*) is coded, the identifier is the name
associated with the SAVE macro, or, if the name field is blank, the
control section name is used. The identifier aids in locating a
program's save area in a dump. If the CSECT instruction name field is
blank, the parameter is ignored.

Whenever a symbol or an asterisk is coded, the following macro expansion occurs:

A count byte containing the number of characters in the identifier
name is assembled four bytes following the address contained in
register 15.

The character string containing the identifier name is assembled
starting at five bytes following the address contained in register 15.

An instruction to branch around the count and identifier fields is assembled.
</quote>

Your "problem" is that the SAVE macro call distributed in that exit
was coded in such a way that the SAVE macro failed. From a quick test,
if the triple quote marks surround the text are each replaced with a
single quote:

   SAVE  (14,12),,'&SYSPARM &SYSDATE &SYSTIME'

then it assembles cleanly and appears to produce what I believe is the
desired output. I would guess that the people who did the DB2 exit
code did not bother to try to assemble it.

On Wed, Feb 27, 2013 at 8:46 AM, 张老亮 <[email protected]> wrote:
> interesting...
>  waiting for reply
>
>
>
>
>  ------------------ Original ------------------
>   From:  "Phil Smith"<[email protected]>;
>  Date:  Wed, Feb 27, 2013 10:42 PM
>  To:  "IBM-MAIN"<[email protected]>;
>
>  Subject:  SAVE macro
>
>
>
> In one of the IBM sample exits for DB2 (DSNA10.SDSNSAMP(DSN8FPRC)) we find:
>              SAVE  (14,12),,'''&SYSPARM &SYSDATE &SYSTIME'''
> ...which won't assemble, generating:
> 000015                              142+         DC    CL8'3 08.36''
> ** ASMA063E No ending apostrophe - 3
> ** ASMA435I Record 62 in SYS1.MACLIB(SAVE) on volume: VTMVSC
> 000015                              143+         DC    CL1'''
> ** ASMA063E No ending apostrophe - '
> ** ASMA435I Record 58 in SYS1.MACLIB(SAVE) on volume: VTMVSC
>
> So I changed it to just
>              SAVE  (14,12)
> and of course that works, but I can't find any documentation for SAVE that 
> includes a second or third operand!
>
> I've looked at the macro, and it's pretty opaque and poorly commented (though 
> I do like one item under "CHANGE ACTIVITY": $01 = OW54354  HBB7706 020419 
> PDXB: FIX "J" - wonder what that means?).
>
> Anyway, can anyone point to real doc for SAVE? Surely after almost 50 years 
> it exists...
> --
> ...phsiii
>
> Phil Smith III
> [email protected]<mailto:[email protected]>
> Voltage Security, Inc.
> www.voltage.com<http://www.voltage.com/>
>
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
> .
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN



--
This is a test of the Emergency Broadcast System. If this had been an
actual emergency, do you really think we'd stick around to tell you?

Maranatha! <><
John McKown

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to