How to Use Object Handler to Unload and Load
SYSOBJH - NAT423
By Dieter W. Storr - Examples from Ralph Zbrog
Last update: 15 August 2008
Question:
I am overwhelmed with the new functions of the Object Handler. Can you give me an example how to unload and load a Natural program from the mainframe to the mainframe and to the Windows platform?
Examples
From mainframe to mainframe (unload)
//SYSOBJHU EXEC NATBATCH,
// PARM='AUTO=ON,MADIO=0,MAXCL=0,MT=0,IM=D'
//CMPRINT DD SYSOUT=*
//SYSIN DD *
%Q
SYSOBJH
UNLOAD * LIB library
SHOW STATISTICS
FIN
/*
//CMWKF01 DD DSN=SYS3.OBJH,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// RECFM=VB,
// LRECL=256, <== long lines
// SPACE=(TRK,(45,45),RLSE)
//
From mainframe to server (unload)
//SYSOBJHU EXEC NATBATCH,
// PRM='AUTO=ON,MADIO=0,MAXCL=0,MT=0,IM=D'
//CMPRINT DD SYSOUT=*
//SYSIN DD *
%Q
SYSOBJH
UNLOAD * LIB library WHERE TRANSFER
SHOW STATISTICS
FIN
/*
//CMWKF01 DD DSN=SYS3.OBJH,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// RECFM=FB,
// LRECL=102,
// SPACE=(TRK,(45,45),RLSE)
//
From mainframe to mainframe (load)
//SYSOBJHL EXEC NATBATCH,
// PRM='AUTO=ON,MADIO=0,MAXCL=0,MT=0,IM=D'
//CMPRINT DD SYSOUT=*
//SYSIN DD *
%Q
SYSOBJH
LOAD * LIB library WHERE REPLACE
SHOW STATISTICS
FIN
/*
//CMWKF01 DD DSN=SYS3.OBJH,DISP=SHR
//
From server to mainframe (load)
//SYSOBJHL EXEC NATBATCH,
// PRM='AUTO=ON,MADIO=0,MAXCL=0,MT=0,IM=D'
//CMPRINT DD SYSOUT=*
//SYSIN DD *
%Q
SYSOBJH
LOAD * LIB library WHERE TRANSFER
FIN
/*
//CMWKF01 DD DSN=SYS3.OBJH,DISP=SHR
//
Load options/examples
LOAD * LIB library WHERE TRANSFER REPLACE
LOAD * LIB library OBJTYPE N
LOAD object LIB library WITH NEWNAME newobjnm NEWL newlib
LOADALL WITH NEWLIBRARY newlib WHERE TRANSFER REPLACE
UNLOAD * LIB DIETER1 NATTYPE *
TRANSFER Header:
*H**ENAT4203200808111719423MVS/ESA 4AEMB
Unload Header:
.NAT403.080811.18:370 USTLXF N MVS/ESA 4203 03.2
.............LCR 000
.............SCR 000
If you unload a source with TRANSFER and try to reload it on the mainframe with LOAD
you will receive the following error message:
SYSOBJH: Error occurred during direct command processing!
Error: 5002
Invalid work file version in header record.
Work file record: H**E
Error detected in OLNLOAD.
 Top Page
|
NATURAL Tips, Tricks, Techniques -- Overview