Examples of Using Direct Commands

This section provides examples of using Object Handler direct commands.

Unloading Objects for the Same Platform
Unloading Objects for Different Platforms
Loading Objects in Internal Format
Loading Objects in Transfer Format

Tip:
For additional examples, you can view the command generated for an Object Handler function. This command is automatically displayed when you use a wizard. In advanced-user mode, you can activate the display of the command by either entering the Object Handler command SET ADVANCEDCMD ON or setting the parameter Display-Cmd-in-Advanced-Mode to Y (Yes) in the Object Handler profile (see also Profile Settings).

Unloading Objects for the Same Platform

This section contains examples of how to unload objects in internal format to a work file in order to load them on the same platform, within either a local mainframe, UNIX, OpenVMS or Windows environment:

Unload all Natural programming objects (source objects only) from library ABC:
```
UNLOAD * LIB ABC OBJTYPE N SCKIND S
```
Unload all Natural programming objects (cataloged objects only) from library ABC:
```
UNLOAD * LIB ABC OBJTYPE N SCKIND C
```
Unload all Natural programming objects (cataloged objects and source objects) from library ABC:
```
UNLOAD * LIB ABC OBJTYPE N SCKIND A
```
Unload all Natural programming objects (source objects only) from library ABC with date 2019-10-01 as the catalog date (if both source and cataloged object exist) and the source date (if only a source object exists):
```
UNLOAD * LIB ABC OBJTYPE N SCKIND S DATE 2019-10-01 DATECHECK C
```
Unload all Natural programming objects (source objects only) from library ABC to load in library ABCNEW:
```
UNLOAD * LIB ABC OBJTYPE N SCKIND S WITH NEWLIBRARY ABCNEW
```
On a mainframe: Unload all DDMs whose names start with EMP and which point to database 88:
```
UNLOAD EMP* LIB * OBJTYPE D DDMDBID 88
```
On UNIX, OpenVMS or Windows: Unload all DDMs whose names start with EMP and which point to database 88:
```
UNLOAD EMP* LIB * OBJTYPE N NATTYPE V DDMDBID 88
```
On UNIX, OpenVMS or Windows: Unload all DDMs whose names start with EMP from library VLIB to load in library VLIBNEW:
```
UNLOAD EMP* LIB VLIB OBJTYPE N NATTYPE V WITH NEWLIBRARY VLIBNEW
```
Unload all user-defined error messages from library ERRLIB to load in library NEWERR:
```
UNLOAD * LIB ERRLIB OBJTYPE E SLKIND A WITH NEWLIBRARY NEWERR
```
On Windows: Unload all Natural programming objects (cataloged objects and source objects) from library ABC to a portable work file on a PC:
```
UNLOAD * LIB ABC OBJTYPE N WHERE WORKFILE C:\WF1.SAG WORKFILETYPE PORTABLE
```
or
```
UNLOAD * LIB ABC OBJTYPE N WHERE WORK C:\WF1.SAG WFT P
```

Unloading Objects for Different Platforms

This section contains command examples of how to unload objects in Transfer format to a work file in order to load them on a different platform such as unloading in a mainframe and loading in a UNIX, an OpenVMS or a Windows environment.

Unload all Natural programming objects (source objects only) from library ABC:
```
UNLOAD * LIB ABC OBJTYPE N WHERE TRANSFER
```
Unload all Natural programming objects (source objects only) and user-defined error messages from library ABC:
```
UNLOAD * LIB ABC WHERE TRANSFER
```
Unload all Natural programming objects (source objects only) from library ABC with fixed record length:
```
UNLOAD * LIB ABC OBJTYPE N WHERE TRANSFER FIXEDLENGTH
```

Loading Objects in Internal Format

This section contains command examples of how to load objects from a work file in internal format.

Load all objects to library LIBNEW and replace any that already exist:
```
LOADALL WITH NEWL LIBNEW WHERE REPLACE ALL
```
Load all object with target library TGTLIB to the new target library NEWTGT:
```
LOAD * LIB TGTLIB WITH NEWLIBRARY NEWTGT
```
Load the user-defined error messages 1000 to 1500 from library ERRLIB only:
```
LOAD * LIB ERRLIB OBJTYPE E FMNUM 1000 TONUM 1500
```

Loading Objects in Transfer Format

This section contains command examples of how to load objects from a work file in Transfer format.

Load all objects to library LIBNEW and replace any that already exist:
```
LOADALL WITH NEWL LIBNEW WHERE TRANSFER REPLACE ALL
```
Load all object with target library TGTLIB to new target library NEWTGT:
```
LOAD * LIB TGTLIB WITH NEWLIBRARY NEWTGT WHERE TRANSFER
```