OFFLOAD logstream program IXGM1OFL does not tell which logstream is offloaded

This version has SUB=MSTR support:

//IXGOFLDS PROC LOGSTRM=''

//*

//* START OF SPECIFICATIONS ******************************************

//* *

//* MEMBER NAME: IXGOFLDS *

//* *

//* DESCRIPTIVE NAME: LOGGER OFFLOAD TO DASD ROUTINE *

//* OFFLOADS ALL LOGSTREAM BLOCKS TO DASD *

//* *

//*01* PROPRIETARY STATEMENT= *

//***PROPRIETARY_STATEMENT********************************************

//* *

//* LICENSED MATERIALS - PROPERTY OF IBM *

//* 5650-ZOS *

//* COPYRIGHT IBM CORP. 2003, 2015 *

//* *

//* STATUS = HBB77A0 *

//* *

//***END_OF_PROPRIETARY_STATEMENT*************************************

//* *

//* FUNCTION: THIS SAMPLE JCL PROCEDURE WILL INITIATE AN OFFLOAD *

//* FOR ALL LOG BLOCKS TO DASD (SECONDARY STORAGE) FOR A *

//* DEFINED LOG STREAM. *

//* *

//* USE: THIS PROCEDURE CAN BE USED BY AN OPERATOR TO REQUEST *

//* DATA BE OFFLOADED FROM PRIMARY STORAGE (E.G. CF STRUCTURE) *

//* TO SECONDARY STORAGE (LOG STREAM DASD OFFLOAD DATA SETS). *

//* INSTEAD OF WRITING A JOB TO PERFORM A CONNECT TO THE LOG *

//* STREAM AND THEN ISSUING AN OFFLOAD REQUEST (IXGOFFLD), THE *

//* OPERATOR CAN START THIS PROCEDURE FROM THE CONSOLE. *

//* *

//* SYNTAX: S IXGOFLDS,LOGSTRM=LOG_STREAM_NAME *

//* *

//* INPUT: *

//* LOG_STREAM_NAME NAME OF THE LOG STREAM FOR THE LOG BLOCKS *

//* TO BE OFFLOADED. *

//* *

//* OUTPUT: *

//* WHEN THE PROCEDURE COMPLETES SUCCESSFULY: *

//* - ALL THE LOG BLOCKS IN THE LOG STREAM WILL BE OFFLOADED *

//* TO DASD IF THE INPUT IS VALID, AND *

//* - MESSAGE IXG273I WILL BE ISSUED TO THE CONSOLE. *

//* *

//* WHEN THE PROCEDURE DOES NOT COMPLETE SUCCESSFULY: *

//* - MESSAGE IXG274I WILL BE ISSUED TO THE CONSOLE STATING *

//* WHICH FUNCTION FAILED AND LISTING THE RETURN AND REASON *

//* CODE. *

//* *

//* NOTE: LOGGER MAY ISSUE OTHER MESSAGES AS WELL, WHETHER THE *

//* REQUEST WAS SUCCESSFUL OR NOT. *

//* *

//* REQUIRES: *

//* ACCESS TO PROCEDURE LIBRARY USED BY THE INSTALLATION *

//* FROM SUBMITTING USERID. ASSUMING *

//* SYSTEM AUTHORITY FACILITY (SAF) IS AVAILABLE AND *

//* CLASS(LOGSTRM) IS DEFINED TO SAF, UPDATE ACCESS TO THE *

//* RESOURCE(LOG_STREAM_NAME) CLASS(LOGSTRM) IS REQUIRED BY THE *

//* OWNING USERID TO ALLOW THE PROGRAM INVOKED BY THE PROCEDURE *

//* TO CONNECT TO THE LOG STREAM WITH WRITE AUTHORITY. *

//* *

//* REFERENCES: *

//* SEE Z/OS MVS PROGRAMMING: AUTHORIZED ASSEMBLER SERVICES *

//* REFERENCE ENF-IXG FOR MORE INFORMATION ON IXGCONN AND *

//* IXGOFFLD. YOU CAN ALSO SEARCH THE IXGCON MAPPING MACRO IN *

//* IN Z/OS MVS DATA AREAS, VOL 3 (IVT-RCWK) FOR A RETURN AND *

//* REASON CODE AND TAKE THE SUGGESTED ACTION. *

//* *

//* DISTRIBUTION LIBRARY: SYS1.SAMPLIB *

//* *

//* CHANGE ACTIVITY: *

//* *

//*FLAG LINEITEM FMID DATE ID COMMENT *

//* $L0=LOGDM HBB7708 030219 PDNJ: LOGGER PROCEDURE SUPPORT *

//* $P1=ME28939 HBB77A0 150227 PDDZ: CORRECTING SAF TERM *

//* *

//* END OF SPECIFICATIONS ********************************************

//IXGOFLDS EXEC PGM=IXGM1OFL,PARM=('LOGSTRM=&LOGSTRM'),TIME=NOLIMIT

// IF (ABEND ! RC>0) THEN

//WTONOK EXEC PGM=SINT,

// PARM='COM=WTH IXGOFLDS01E OFFLOAD &LOGSTRM FAILED'

// ELSE

//WTONOK EXEC PGM=SINT,

// PARM='COM=WTO IXGOFLDS01I OFFLOAD &LOGSTRM SUCCESFULL'

// ENDIF

// PEND

Hi, thank you for the feedback.

I solved the issue by changing IXGOFLDS STC JCL:

//IXGOFLDS PROC LOGSTRM=''

//*

// EXPORT SYMLIST=*

// SET LOGSTRM=&LOGSTRM

//*

//* START OF SPECIFICATIONS ******************************************

//* *

//* MEMBER NAME: IXGOFLDS *

//* *

//* DESCRIPTIVE NAME: LOGGER OFFLOAD TO DASD ROUTINE *

//* OFFLOADS ALL LOGSTREAM BLOCKS TO DASD *

//* *

//*01* PROPRIETARY STATEMENT= *

//***PROPRIETARY_STATEMENT********************************************

//* *

//* LICENSED MATERIALS - PROPERTY OF IBM *

//* 5650-ZOS *

//* COPYRIGHT IBM CORP. 2003, 2015 *

//* *

//* STATUS = HBB77A0 *

//* *

//***END_OF_PROPRIETARY_STATEMENT*************************************

//* *

//* FUNCTION: THIS SAMPLE JCL PROCEDURE WILL INITIATE AN OFFLOAD *

//* FOR ALL LOG BLOCKS TO DASD (SECONDARY STORAGE) FOR A *

//* DEFINED LOG STREAM. *

//* *

//* USE: THIS PROCEDURE CAN BE USED BY AN OPERATOR TO REQUEST *

//* DATA BE OFFLOADED FROM PRIMARY STORAGE (E.G. CF STRUCTURE) *

//* TO SECONDARY STORAGE (LOG STREAM DASD OFFLOAD DATA SETS). *

//* INSTEAD OF WRITING A JOB TO PERFORM A CONNECT TO THE LOG *

//* STREAM AND THEN ISSUING AN OFFLOAD REQUEST (IXGOFFLD), THE *

//* OPERATOR CAN START THIS PROCEDURE FROM THE CONSOLE. *

//* *

//* SYNTAX: S IXGOFLDS,LOGSTRM=LOG_STREAM_NAME *

//* *

//* INPUT: *

//* LOG_STREAM_NAME NAME OF THE LOG STREAM FOR THE LOG BLOCKS *

//* TO BE OFFLOADED. *

//* *

//* OUTPUT: *

//* WHEN THE PROCEDURE COMPLETES SUCCESSFULY: *

//* - ALL THE LOG BLOCKS IN THE LOG STREAM WILL BE OFFLOADED *

//* TO DASD IF THE INPUT IS VALID, AND *

//* - MESSAGE IXG273I WILL BE ISSUED TO THE CONSOLE. *

//* *

//* WHEN THE PROCEDURE DOES NOT COMPLETE SUCCESSFULY: *

//* - MESSAGE IXG274I WILL BE ISSUED TO THE CONSOLE STATING *

//* WHICH FUNCTION FAILED AND LISTING THE RETURN AND REASON *

//* CODE. *

//* *

//* NOTE: LOGGER MAY ISSUE OTHER MESSAGES AS WELL, WHETHER THE *

//* REQUEST WAS SUCCESSFUL OR NOT. *

//* *

//* REQUIRES: *

//* ACCESS TO PROCEDURE LIBRARY USED BY THE INSTALLATION *

//* FROM SUBMITTING USERID. ASSUMING *

//* SYSTEM AUTHORITY FACILITY (SAF) IS AVAILABLE AND *

//* CLASS(LOGSTRM) IS DEFINED TO SAF, UPDATE ACCESS TO THE *

//* RESOURCE(LOG_STREAM_NAME) CLASS(LOGSTRM) IS REQUIRED BY THE *

//* OWNING USERID TO ALLOW THE PROGRAM INVOKED BY THE PROCEDURE *

//* TO CONNECT TO THE LOG STREAM WITH WRITE AUTHORITY. *

//* *

//* REFERENCES: *

//* SEE Z/OS MVS PROGRAMMING: AUTHORIZED ASSEMBLER SERVICES *

//* REFERENCE ENF-IXG FOR MORE INFORMATION ON IXGCONN AND *

//* IXGOFFLD. YOU CAN ALSO SEARCH THE IXGCON MAPPING MACRO IN *

//* IN Z/OS MVS DATA AREAS, VOL 3 (IVT-RCWK) FOR A RETURN AND *

//* REASON CODE AND TAKE THE SUGGESTED ACTION. *

//* *

//* DISTRIBUTION LIBRARY: SYS1.SAMPLIB *

//* *

//* CHANGE ACTIVITY: *

//* *

//*FLAG LINEITEM FMID DATE ID COMMENT *

//* $L0=LOGDM HBB7708 030219 PDNJ: LOGGER PROCEDURE SUPPORT *

//* $P1=ME28939 HBB77A0 150227 PDDZ: CORRECTING SAF TERM *

//* *

//* END OF SPECIFICATIONS ********************************************

//IXGOFLDS EXEC PGM=IXGM1OFL,PARM=('LOGSTRM=&LOGSTRM'),TIME=NOLIMIT

// IF (ABEND ! RC>0) THEN

//WTONOK EXEC PGM=WTOHI,TIME=NOLIMIT

//STEPLIB DD DSN=SYS1.PCT.LOAD,DISP=SHR

//SYSPRINT DD SYSOUT=*

//SYSIN DD *,SYMBOLS=EXECSYS

WTO IXGOFLDS01E OFFLOAD &LOGSTRM FAILED

// ELSE

//WTOOK EXEC PGM=WTOLO,TIME=NOLIMIT

//STEPLIB DD DSN=SYS1.PCT.LOAD,DISP=SHR

//SYSPRINT DD SYSOUT=*

//SYSIN DD *,SYMBOLS=EXECSYS

WTO IXGOFLDS01I OFFLOAD &LOGSTRM SUCCESFULL

// ENDIF

// PEND

WTOHI en WTOLO are Write-To-Operator routines.

WTOHI will highlight and retain the message on the console.

WTOLO is just informational message on the console.

. This item is a valid requirement but unlikely to be given high enough priority to be placed into the product plan. If this requirement is high value, please re-open it, or open a new requirement.

It there a possibility to add the logstream name on message IXG273I and IXG274I?