146, Eval Qszamr = \NO Qszridt = \PHONE | IBM Version 4 guide

	C		EXSR	PKGPO	.4/
	C\
	C\ All done, product is ready to ship.
	C\
	C		EVAL	\INLR = '1'
	C		RETURN
	C\
	C\ End of MAINLINE
	C\
	C\
	C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
	C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
	C\
	C\ Subroutine: PRDDFN
	C\
	C\ Descriptive Name: Create product definitions.
	C\
	C\ Description: This subroutine will create the product definition
	C\		ABCðð5ð for the ABC product.
	C\
	C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
	C\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
	C\
	C	PRDDFN	BEGSR
	C\
	C\ Setup for Product Definition
	C\ Fill Product Definition Information Parameter
	C\
	C		EVAL	QSZPID = PROD_ID
	C		EVAL	QSZRL = RLS_LVL
	C		EVAL	QSZMFIL = 'ABCMSG'
	C		EVAL	QSZFC = '\CURRENT'
	C		EVAL	QSZCC = '\CURRENT'
	C		EVAL	QSZRD = '9412ð1'
	C		EVAL	QSZAMR = '\NO'
	C		EVAL	QSZRIDT = '\PHONE'
	C		EVAL	QSZRIDV = '5ð72535ð1ð'
	C\
	C\ Fill Product Load Parameter
	C\
	C		EVAL	QSZOPT = 'ðððð'
	C		EVAL	QSZMID = 'ABCððð1'
	C		EVAL	QSZADN = '\NODYNNAM'
	C		EVAL	QSZCL = '5ðð1'
	C		EVAL	QSZERVEDðð = \BLANKS
	C\
	C\ Fill Language Load List Parameter
	C\
	C		EVAL	QSZLLðð = '2924'
	C		EVAL	QSZOPTðð = 'ðððð'
	C		EVAL	QSZERVEDð1 = \BLANKS
	C\
	C\ Create the Product Definition for the ABC Product
	C\
	C		CALL	'QSZCRTPD'
	C		PARM		PROD_NAME
	C		PARM		QSZPI
	C		PARM		QSZPO
B-146	System API Programming	V4R1

Image 424

$IBM Version 4 manual 146, Eval Qszamr = \NO Qszridt = \PHONE, Eval Qszadn = \NODYNNAM, Parm Prodname Qszpi Qszpo$

Contents

IBM Page IBM First 1997 Contents Chapter HoldRPG Across MICRTPG2 ProgrammingAPIs OPM Cobol OPM API ViiIndex Viii System API Programming V4R1 Micrtpg System API Programming V4R1 Implied Warranties of Merchantability and Fitness for IBMDisclaimed Programming Interface Information Trademarks Use XiiiPrerequisite HLL Xiv System API Programming V4R1 API Compatibility API CompatibilityExit programs That are documented Systemin Using APIs-Benefits Saved Overhead Processing When You CallBecause You Not Have To go Through System APIs or CL Commands-When Use APIsFunctions Cobol ILE RPG Related Information EnvironmentsBesides the OS/400 APIs that are OS/400 APIs Are documented Following books Started Locating the API toSocket Network Functions This Unix Verb Selecting the High-Level Language To Use Language Selection Considerations Data Types API Environments APIs for the Integrated Language Environment Environment CEERelated Information APIs for the ILE Common API Parameters APIs for the Unix EnvironmentIntegrated Language Environment ILE CEE APIs Parameter Passing Value of the data object is placed directlParameter List Langua Error Code Parameter Parameter Classification Receiving Error Conditions as Exceptions-Example ErrorWith Exception Data-Example Code Errors From Getting Started with2-11APIs Spooling Internal IdentifiersSecurity Uses User Spaces User SpacesSpace Used by User Space Format-Example Xxxx Logic Flow of Processing a List of Entries +NO Using Offset Values with Pointers WithManipulating a User Synchronizing between Two or More Jobs Manipulating a User Space without Pointers Position ValuesLengths Space APIs Quschgus API Following is a user space after you change it with one Changing a User Space with an ILE RPG Program-Example \ Program Changusptr Changing a User Space with an OPM RPG Program-Example RPG List UserListing Additional Information about Receiver Variables Bytes Returned FieldsBeginning A receiver variable or the beginning of a Keyed Interface Qusljob API Using a Continuation Handle User Space AlternativeContinuation Handle Qlicobjd API API Domain ConceptsMore information Exit Programs Security, Qalwusrdmn Set to System configured forsystemC2Exit Points APIs and the Qsysinc Library Compile Program Specific CcsidInclude File APIs and the Qusrtool Library User Index ConsiderationsUser Index Considerations InSystthem API Reference, SC41-5801 Performance Considerations Performance ConsiderationsSystem 32System API Programming V4R1 Information Original Program Model OPM API-ScenarioJob Held Queue First Step Finding the correct API is to Identify Part That Description of an API ParametersLocks Authorities Are Based Objects That Performs Object ForAre described in Required Parameter Group Format You Can See fromDecthedecimal Offset Column Because the field is a binary Would Make Binary ValueCan Place Format Name Pass Literal This Name Error Messages FormatField Descriptions Optional Parameter Group Example Hold ParameterPerspective Only Possible values For Hold Job Queue Field Are APIs-Examples Handling Error Conditions-OPM RPG Example Call Jobdapi Parmqbatch QgplCall Jobdapi Parmqbatch \LIBL Call Jobdapi Parmxyz \LIBL Ipgmsts SDS Msgidd OPM RPG ITOUSRQPGMR36 47 MSG3B Error Parameter Format Error code structure Qusbn is Error Code Structure Can Found Common Information across APIs-Basic OPM 3-Example13 Qgpl Library Does Not Exist. Use the following call statement XYZCall Jobdapi Qpgmr XYZ Value Placed Level Date Pgmr Change Description Diagnostic Message exists Job Log Can Received Accessing the Hold Attribute-OPMCode used to access the Hold attribute. T Error-code data structure Following data structures are usedRetrieve job description data structure Structure Initial Information across APIs-Basic OPM 3-Example \$Að= D2862ððð Common Information across APIs-Basic OPM 3-Example21 Icmdstr \ENTRY Spooled With ListJobdapi Ispcnam Outq Common Information across APIs-Basic OPM 3-Example27 Qusrtvus Qusptrus API-Example ProcessingJob Description Information Parameters JOBD0100 Format CHAR8 Bytes Returned BytesEnd Severity Reply Job dateJob Library YES MSG Offset Text Description DataRQD Common Information across APIs-Basic OPM 3-Example37 38System API Programming V4R1 Integrated Language Environment AcrossILE API Generic Header Files APIs-ConceptsPoint Variable-Length Structure-Example Keyed Interface-ExampleExit Program Attributes Parameter Exit Program Attribute Keys Key Type Field Error Handling Error Handling through the Error Code ParameterCcsid Initialize Bytes provided Field Number Parameter Second Exception handling is by having All Exceptions Signa Receiver Variables-Examples Entry With Fields-Example Add Exit Program-ILE Registration Facility Using ILE APIs-ExamplesILE C Description \EXCLUDE API Exit Point Example 12System API Programming V4R1 Program EXAMPLEPGMEXAMPLELIB, Example Exit Program DataLanguage ILE C Input Rslvsppgmhdlr FunctionOutput None Information retrieved 16System API Programming V4R1 Common Information across APIs-Advanced ILE4-17Example 18System API Programming V4R1 Remove Exit Program and Deregister Exit Point-ILE C Example Language ILE C Description 20System API Programming V4R1 Errorcode.ecfields.ExceptionId Exit1 \ End program \ 22System API Programming V4R1 Characteristics of a List General Data Structure Offset to List Data Section General Data Structure Other Fields of Generic Header On page 5-14 and the OBJP0200 Format on 5-14. ThisQsylobjp API Can Locate Remaining Information Place List Object API-OPM RPG Example Processing a ListSee Add Size Each Entry Field Get .7/ starton \FLAG Reason Level Date Pgmr Change Description \/COPY QSYSINC/QRPGSRC,QUSECIqusbn Qusbnf QusbngIqusky Quskyf \ENTRY Plist Parm Exsr Init Exsr Proces Exsr DoneBegsr Call Qsylobjp Parm Rjobdf Parm SpcnamParm Spctyp Qusbnc ADD Qusbpq Strpos PROC2Sizent QSYB6 Nument Exsr PROC2 Qusbpj IfeqADD Qusbpl Strpos Movelqusrtvusapinam Exsr Apierr Endif Endif USRSPC=P/C Endsr Begsr Movelqusbpj LststsDoueqc Oreq Exsr PROC1 Authorities and Locks Required Parameter Group OBJP0100 OBJP0200User name Object type User Space Variables Section Field Descriptions AttributeInput User Service Program Library &2 ended. Reason cod Continuation handle not valid forObject Type Not Valid User space &4 in &9 damaged Parameters Error ConditionsOPM This Program Calls Log Software Error Qpdloger PointersFfdc Without Pointers-ILE Output None Exceptions Unexpectedhdlr Function Ffdc Input \HANDLE 6System API Programming V4R1 Software Error ILE API with Pointers-ILE C Example\ Unexpectedhdlr \ QCLE/H Function SymptommsgkeywordMSGSYMPTOMLEN \HANDLE Numberofkeys, &ErrorCode 12System API Programming V4R1 Interface Instructions-Introduction InterfaceMachine Setting the Entry Point Setting the Declare StatementsWriting an MI Program-Example Section Discussing ITS2 ARG2Cpynv Result Compiling a Program MI01 Program-Complete Code Example Using Clcrtpg to Create Rexx Testing MI01 Creating the MI Example Program Program Debugging the MI ProgramSAV RST Are Compilers HLLs. Break BRKDirective allows users Language Statement Such Handling Exceptions in the MI Program String 1202 Where 0C12 =andX 02 02= .X While most Following is an updated view of the MI01 programExcid Hexadecimal representation of the message id Creating an MI Version of Clcrtpg Qprcrtpg .API Program Flow for Creating the Micrtpg Program Source for CL03 follows Source for CL04 follows Source for CL05 follows Source for the Micrtpg Program Source for Micrtpg follows Code Declaring the StructureUnderstanding the Micrtpg Program by Following, however, are new statements Usrspcobj Declaring PointersUsrspc Understanding the MICRTPG2 Program by Sections of Code Creating the Micrtpg ProgramCalling Enhanced Version Establish addressability to the Crts template Instruction stream, create the space Ovrdbf BinoffsetQcmdexc API DCL DD Cldltcmd CHAR12 Initdltovr Misrc DCL Spcptr CLOVRLNG@ InitclovrlngDCL Spcptr CLDLTLNG@ Initcldltlng CLOVRLNG@ ARG To Your Advantage Beginning the Instruction StreamStorage MICRTPG2 Complete Program-MI Code Example Delete the previous OvrdbfCall the Qprcrtpg API to create the MI program Indicate that the program is done DCL DD Numparms BIN DCL Spcptr Usrspc DCL Sysptr USRSPC@ Crts MI DCL Sysptr QTEMP@ BaspcoDCL Spcptr PGMOPTS@ Initpgmopts DCL DD Numopts BIN4 INIT3 Updated CL06 Program Following is the updated CL06 programPGM PARM&BUFFER &OFFSET Dclf Filemisrc DCL DCL VAR&OFFSET TYPE\DEC LEN15 Loop Rcvf Handling Exceptions Creating the MICRTPG2Qtemp Example Its Consolidated State This Is the new MICRTPG2 program Machine Interface Programming7-29 CTXQSYS, Typepgm INT Retexcpd MI Common Programming Techniques-Examples Entry \ EXTDCL Spcptr SEPT@ Defpco DCL Sysptr QTEMP@ Defpco DCL DD Matctxopts CHAR44 DCL DD Matctxctl POSDCL DD Sreceiver CHAR8 BDRY16 DCL DD Sbytprv DCL DD Sbytavl DCL DD Lextattr DeflreceiverDCL DD Lentry DCL DD Objentry SRECEIVER@, QTEMP@, Matctxopts Cmpnvb SBYTAVL, 96 / EqdoneLRECEIVER@, Sbytavl Cpynv LBYTPRV, Sbytavl Process Allo Cating Initializing automatic Storage AS/400 Program StorageAPI before Developing Your Cations Backup Recovery APIs Communications APIs Is only provided Service ProgramProvides Way to That Configuration APIs Returns a list of configuration descriptions, based on aDebugger APIs OptiConnect APIs Low-level services Window servicesDynamic Screen Manager APIs Debugger Session services Edit Function APIsFile APIs An edit Code Hardware Resource APIs Hierarchical File SystemQdls Cobol APIs ILE CEE APIs Journal and Commit APIs Message Handling APIsJournal APIs Commitment Control APIs National Language Support APIs Network Management APIsNational Language Support APIs Data SNA/Management Services Transport SNA/MS Transport APIs Alert APIs Object APIs Node List APIFilter Change Request Management APIs Lifo Clear Data Queue Qclrdtaq Retrieve DescriptionFollowing describes 8APIs-13 User Index APIsUsridx Object APIs Chglibl Office APIs MovobjAllows you to rename and mov Conversion Exit Programs Which Are Discussed Under Office Office Exit Programs File Server APIsMSF Performance Collector APIs Print APIsPrint APIs Most Functions Problem Management APIs Filtering Program and CL Command APIs Working with a ProblemProblem Log Entry APIs Error Reporting APIs Security APIs Software Product APIs Environment Variable APIs UNIX-Type APIsGetenv Integrated File System APIs Interprocess Communication APIsHas Exec Function Queues Signal APIs An X/Open Specification As a mechanism by which a processSemaphore Are identifie Signal Action IDa MIB Sockets APIs Server Client User Interface APIs Process-Related APIsUIM Advantages UIM DDS Advantages WorkWork Management APIs Support Miscellaneous APIs Miscellaneous APIsList APIs Process Qgyoljbl API Find Field Numbers List Programming errors and refers you to That show you how to avoid ErrorsUsing the error code Task Using the Error Code Parameter IncorrectXxxxxxx Is shown at .2/locationinthe incorrect and correct coding Using the Error Code Parameter-Example of Correct Coding Call Quscrtus Parm SpcnamParm SIZ Intval Parm \ALL Csetonlr Parm Extattrextatr 1ð Defining Data Structures Incorrect CodingLength is Defined Through Length Through This \ SET UP to Accept Exceptions ADD\ZEROS JobnbrJobid Jstat Coding Defining a Data Structure-Example Intval \ SET UP to Accept Exceptions ADD\ZEROS \ Create the Space to Hold the Data Call Quscrtus\ Call the API to List the Active Jobs Qusljob List Entry from the Space \ Delete the Space That Held the Data When Defining Receiver Variables When Run Lists All Active Jobs SystemMay Written Over with These extra characters. On Call RPG Qusbn \ Call the API to List the Active Jobs Qusljob Qusbn \ Retrieve the OffsetADD1 Start Qusbn \ Retrieve the List Entries Qusbpq ADD Start Qusgen \\ JOB Name Structure for Calling Qusljob Ijobnam \ALL Qusbn \ Retrieve List Entries Qusbpq ADD Start Incorrect Defining\\ Data Structure Containing Space NAME/LIB Ispcnam DS Qusbn \ Call the API to List the Active Jobs ADD1 Dowlequsbps Coding Movelqusdd RecvrRecvr ADD Start END \ Delete the Space That Held the Data Format Lengths-Example Correct ADD\ZEROS Null NullILE Using Null Pointers with OPM APIs-Example of Correct Coding 20System API Programming V4R1 \CURLIB Byte Correct Byte Alignment ensures that data used With an QusVlenRec4t descrec Char Desc5ð Addepattributes This is a Test Exit PROGRAM,27 Defining Byte Alignment-Example Correct ILE C EXAMPLEPGMEXAMPLELIB, Example Exit Program Data Using Offsets in a User Space Using Offsets in a UserIncorrect Point For Beginning Read User \FLAG Reason Level Date Pgmr Copy QSYSINC/QRPGSRC,QUSLOBJ Iusersp APIUG1Qgpl Iobject \ALL Qusbpj Ifeq C Oreq P QusbpsADD1 Count Addqusbpq Strpos Lendta Correct Coding Using Offsets in aUser Space-Example \FLAG Reason Level Date Pgmr Iobject \ALL Objnam Qgpl Objlib Iusersp APIUG1 Usrspc Qgpl SpclibCall Quscrtus Parm Oreq Qusbpq ADD Strpos Exsr Errcod Seton Retrn Coding for New Function For Dspcinit Dspcname Inzadopts Qtemp Dspcsize\FLAG Reason Qusua QussghQussrl Qusfn QSY Pgmr Change DescriptionDqsyobjph Basedlstptr QSYOBJT12 Proces Begsr Move QusisLststatus Doueq Qusis Ifeq Oreq Qusis Ifeq Eval Lstptr = %ADDRARRQUSOIP +END Else Exsr Done END Eval Qusbprv = %SIZEQUSEC Call Qusrobjd Parm Rcvvar RcvvarsizRobjdfmt Parm Spcname \USRSPC Objtype Qusec Qusei Ifeq Does Not match Coding for New Function-Example CorrectPGM, or 9B ð INZ1 Lupa Basedspcptr 46System API Programming V4R1 Else QSYOBJT12 Ifeq Dsply Else QSYOBJT12 Ifeq \SRVPGM Eval Lstptr = Addrarrqussee + ENDEval Lstptr = Addrarrqusoip + Ifeq \BLANKS Move Call Qsylobjp Parm Spcname Mbrlist Parm \CURRENT UsrprfObjtype Parm Parm Qusec Parm \USER Spcdomain Software products Packaging Your Own Software ProductsRPG Example on page A-3 Packaging a Object DescriptionCL Program for Dltlib ABC Crtdspf ABC/ABCDSPF ABCDEV/QDDSSRC + Crtpf ABC/ABCPF ABCDEV/QDDSSRC +Crtcmd ABC/ABC ABC/ABCPGM ABCDEV/QCMDSRC + Crtpnlgrp ABC/ABCPNLGRP ABCDEV/QPNLSRC + Copy QSYSINC/QRPGSRC,QSZCRTPD Copy QSYSINC/QRPGSRC,QSZCRTPL Copy QSYSINC/QRPGSRC,QSZPKGPOTextd Phone Exsr Cobjd Exsr PkgpoPrddfn Begsr Qszbcb Movelqszcrtpdapi Parm QszbcParm Qszbd Parm Qszbf Movelqszcrtplapi Call Qszcrtpl QszbhQszbj Qszbk Cobjd Move OBJ,I Objds Name CAT ABCCobji Pkgpo MOVEL\ALL Qszbrf Movelqszpkgpoapi Call Qszpkgpo Parm QszbrParm \YES Repkg Parm \NO Qszrtvpr API Command B-129Retriev Rtvfd \CHANGE \LCL \INT User Using Data Queues versusQueue entries are manipulated. F Data Queue-ILE C Example Queuelib User Queue-ILE C ExampleExample 18System API Programming V4R1 Valid \USER Appendix A. Performing Tasks Using APIs-ExamplesA-21 22System API Programming V4R1 Appendix Additional Languages Original Program Model OPM APIs-Examples Hold Parameter Exception Message-ILE CExample on For the original Jobdapi Appendix Original Examples in Additional Message-ILE Cobol Identification Division Procedure Division Using JOBD, JOBDL. .8/ MAIN-LINE CobolPROGRAM-ID. Jobdapi Environment Division Copy Qusec of QSYSINC-QLBLSRC Move HOLD-JOB-QUEUE to Hold Move Jobd to JOB-DESC. Move Jobdl to JOB-DESC-LIBCopy QSYSINC/QRPGLESRC,QUSEC Dcmdstring INZ TousrqpgmrDrcvlen Dformat Handling Error Exsr Error Error BegsrJobd CAT Jobdlib Lfnam Call Qwdrjobd Jobdapi Appendix B. Original Examples in Additional BLanguages-11 Identification Division Move 16 to BYTES-PROVIDED Procedure Division Using JOBD, JOBDL. MAIN-LINEPerform Errcod Call Qcmdexc Using MESSAGE-TWO, COMMAND-LENGTH, Stop RUN Copy QSYSINC/QRPGLESRC,QWDRJOBD DCMDSTR2 Msgid INZ TousrqpgmrDlenstr INZ%SIZECMDSTRING DLENSTR2 INZ%SIZECMDSTR2 Call Qwdrjobd Parm Movel Qusei Msgid Call Qcmdexc Parm Accessing the Hold Attribute-ILE C ExampleParm LENSTR2 Endsr File Hold Attribute-ILE PROGRAM-ID. Jobdapi Data Division File Section Label Records are StandardData Record is LIST-LINE LIST-LINE BAD Open Output Listing Move EXCEPTION-ID to Msgid Refer To Accessing Attribute-OPM RPG Example On page 3-17 f Original Except Good Else Except BAD ENDOqprint Good Oqprint BAD Appendix B. Original Examples in Additional 24System API Programming V4R1 List-ILE Cobol Example Refer Accessing Field Value Initial Library List-OPMFor Original example. The following program also Roch Value Qwdrjobd JOB-SWITCHES PIC DEVICE-RECOVERY-ACTION PICBYTES-RETURNED BYTES-AVAILABLE Call Qcmdexc Using COMMAND-STRING, COMMAND-LENGTH, ADD 11 to Perform NUMBER-LIBS-IN-LIB-LIST Times List-ILE RPG Reclen Qwdbrtn Qwdbavl Qwdjdn QwdjdlnQwdun Qwdjd Qwdord QwdlrdQwdjmqms Qwdjmqfa Using Keys with List Exsr Error ElseQwdoill ADD Qwdnlill Eval Call Qcmdexc Parm Cmdstring Lenstr ADD Quslspl Appendix B. Original Examples in Additional BLanguages-35 36System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-37 Using Keys with List Spooled Files API-ILE Cobol Example Prtfil PICFiller PIC Pages Opndat PIC Lsterr TEXT1 PICHdrerr TEXT2 PIC Misc SPC-NAME PIC Call Qusptrus Using SPC-NAME, SPCPTR, QUS-EC Procedure DIVISION. MAIN-LINEKEY-INFO SET STRING-SPACE Spcptr SETSTRING-SPACEOFFSET-LIST-DATA Perform Proces Using Keys with List Spooled Files API-ILE RPG Example To OpndatInzspcname Qtemp Dspcsize Dlstptr DLSTPTR2 Dspcptr Appendix B. Original Examples in Additional BLanguages-43 Dqussplki BASEDLSTPTR2\QUSERVED34 \ QUSERVED35 Parm \BLANKS Spctext Parm Qusec \USERCall Quslspl Parm Spcname Format Parm \CURRENT Usrprf AGE CAS Error END Eval LSTPTR2 = %ADDRARRX END Except PrtlinFilnam Begsr Move \BLANKS Prtfil Eval APIs-Examples ExitCobol Example Integrated BAD-REG TEXT1 PIC EXCEPTION-ID PICBAD-ADD TEXT1 PIC VAR-OFFSET Move 2 to NBR-RECORDS Move 3 to CONTROL-KEY of QUS-VLEN-REC-4Move Exit Point Example Move 4 to CONTROL-KEY of QUS-VLEN-REC-4 By Content Length of EXIT-PGM-DATA of MISC, VARREC, QUS-EC Register Exit Point TEXT1 PIC X1ððð Ð1 Misc EXIT-POINT-NAME of MISC, FORMAT-NAME of MISC, VARREC, QUS-EC RPG Printer \ Compile Time Array REC Copy QSYSINC/QRPGSRC,QUS I\Ivarrec Iovrlay ADD2 ADD3ADD4 Binary ADD Moveabinc REC,OF Exsr Calcvo ADD8 REC,OF Exsr ADD37 Binary Moveabinc REC,OF ExsrCall Qusaddep Qusbnc Ifgt Open Errept ErrpgmPrinter OFLIND\INOF Usropn Copy QSYSINC/QRPGLESRC,QUS Dvarrec Nbrrecs RecsDvoffset Doverlays Binary Callb Parm EpntnameFormat Parm Varrec Qusec Open Qprint Except Erraepnt Exsr Done Endif Information-OPM Cobol PROGRAM-ID. REGFAC2 Environment Division EXCEPTION-IDBAD-CREATE TEXT1 Misc EXIT-POINT-NAME PIC FORMAT-NAME-1 PIC FORMAT-NAME-2 PICBASE-POINTER Pointer INFO-POINTER SPACE-NAME PIC Value Rcvvar Qtemp SPACE-ATTR PIC Call Qusptrus Using SPACE-NAME, BASE-POINTER, QUS-EC Move Spaces to CONTINUATION-HDL Else Stop RUN Perform CALL-EXIT-PROGRAMSTo CONTINUATION-HDL CALL-EXIT-PROGRAMS Write LIST-LINE from BAD-EXIT-PGM, Stop RUN To Address of RCVVAROFFSET-PROGRAM-ENTRYPerform CALL-PGMS CALL-PGMS EXIT-PGM-NBR Value ExampleexitpointValue -1 Binary 68System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-69 Open Output Listing Move EXCEPTION-ID of QUS-EC Appendix B. Original Examples in Additional BLanguages Copy QSYSINC/QRPGSRC,QUSREG IrcvMove \BLANKS Call Qusrtvei Parm Conthd RCV Rcvsz Parm Epntnm Parm EpgmnbQusccb SUBSTRCV1 Parm RCV Rcvsz QuscjADD Quscjf Substrcvy Quscjg Information-ILE RPG Example Done Begsr Seton Retrn Endsr OqprintQusbnd Oqprint \ Based Dquspe QusppnQuspplib Qusppf Qusmlib QusmiDqusse Qusco Qusmep QusnbrepQusad Qusacc Qusone QusceQuspgmn Quspgml Qusled \QUSPDQusopgme Quslpgme QUSFN12 QusmfillQusopd Quslpd \ QUSFN13 \ QUSERVED11Qusrei Depntname Inzexampleexitpoint Depgmnbr Move \BLANKS Continhdl Callb Qusrei Parm Continhdl Rcvvar RcvvarszFormat Parm Epntname Epntfmt Parm Epgmnbr Qusnbrsc Qusec Exsr Cusrei Enddo Endif Done DOWCusrei Begsr Remove Exit Program Parm ExitparmsEval Infspcptr = %ADDRRCVVARQUSONE+1 Enddo Endsr Begsr Eval PGM-NBR Call Qusdrgpt Using EXIT-POINT-NAME, FORMAT-NAME, QUS-EC PROGRAM-ID. REGFAC3 Environment Division EXIT-POINT-NAME, FORMAT-NAME, QUS-EC Exampleexitpoint Epntnm Parm Pgmnbr Qusbn Call Qusdrgpt Qusrepgm Dpgmnbr Format Parm Pgmnbr Qusec Callb Qusrepgm Parm EpntnameCallb Qusdep Parm Epntname API-ILE C Object Appendix B. Original Examples in Additional BLanguages-95 96System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-97 98System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-99 100 PROGRAM-ID. Listadopt Environment Division List Object API-ILE Cobol ExampleINPUT-OUTPUT Section 102 Procedure Division Using USR-PRF, OBJ-TYPE. MAIN-LINE OBJ-TYPE PICCopy Qsylobjp of QSYSINC-QLBLSRC Address of STRING-SPACE To LST-STATUS, END-IF END-IF, END-IF Else Perform PROCES2Perform DONE, END-IF PROCES2 Move Qsylobjp to APINAM, Perform Apierr Move Length of QUS-EC to BYTES-PROVIDED of QUS-ECMove Quscrtus to APINAM, Perform Apierr Move Qusrobjd to APINAM, Perform Apierr 106 Move Qusptrus to APINAM, Perform ApierrDisplay Apinam Display EXCEPTION-ID of QUS-EC. Perform Done Write LIST-LINE from END-LIST. Stop RUN Inzadopts Qtemp Dspcsize Dlstptr Dspcptr Darr Basedlstptr DIM32767 Drcvvar 108 QSYOBJT13QSYOBJA11 QSYOBJT14 Eval Lstptr = %ADDRARRQUSSEE + 1 END Qusnbrle Except ObjentryLststatus Mbrlist Parm Usrprf Objtype Continhdl Qusec Exsr Getlst Move Qusis Lststatus END ElseRobjdfmt Parm Spcname \USRSPC Spctype Qusec CPF98ð1 Pointers-Examples CBLERR1 ProgramWithout Logging PROGRAM-ID. CBLERR1 ERROR-HANDLER PICERRHDL1 \LIBL Scope PIC PRIOR-ERROR-HANDLER of MISC, QUS-EC ERRHDL1 ProgramADD X to Y PROGRAM-ID. ERRHDL1 Misc LOG-EXCEPTION-ID PIC MESSAGE-KEY PICPOINT-OF-FAILURE PIC Binary Value PRINT-JOBLOG PIC Logging Software Error OPM Move 1 to MSG-OFFSETLIBRARY-NAME Move C to SYS-OPTION. Stop RUN SRC TGT IpsdsExcpid Imisc Switch FACT1FACT2 FACT1 DIV FACT2 Result Logging Software Error OPM API without Pointers-ILE API without Pointers-ILE C Example 120 Dpsds SDS Appendix B. Original Examples in Additional BLanguages-121 This section includes the examples Reporting Software Error Refer to Reporting Software Error ILECBLERR2 Program Reporting Copy Qusec of QSYSINC-QCBLLESRC ERROR-HANDLERNUMERIC-GROUP PIC PROGRAM-ID. ERRHDL2 ERRHDL2 ProgramCopy Qpdsrvpg of QSYSINC-QCBLLESRC Procedure Division Using CBL-EXCEPTION-ID MESSAGE-LENGTHSYS-OPTION PIC CBL-PGM-NAME 126 RPG ExampleSoftware Inzrc Copy QSYSINC/QRPGLESRC,QPDSRVPG D\Dpsds 128System API Programming V4R1 Software Produ This Section Includes the examples Packaging YourSftwprdex 130System API Programming V4R1 Object ABCðð29 MRI object For Product 132System API Programming V4R1 ABCPGMMRM2ABC ABCPGMMRI1ABCABCPGMMRI2ABC Qclsrc ABC 134 Appendix B. Original Examples in Additional BLanguages-135 Program for Packaging a Product-ILE Cobol Example QszcrtpdQszpkgpo PROGRAM-ID. Sftwprdex Environment Division Copy Qszcrtpd of QSYSINC-QLBLSRC Copy Qszcrtpl of QSYSINC-QLBLSRCCopy Qszpkgpo of QSYSINC-QLBLSRC API-NAME PIC Numkey KEY13LEN13 PID13 PIC Perform Prdlod Perform CobjdPerform Pkgpo Prddfn Call Qszcrtpd Using PROD-NAME, QSZ-PRD-INF, QSZ-PRD-OPT Move Spaces to Reserved of QSZ-LNG-LODMove Qszcrtpd to API-NAME, Perform Errcod Prdlod Move ABCPGMMRI2 to POST-EXIT-PGM of QSZ-LIB-INF Move Qszcrtpl to API-NAME, Perform ErrcodMove ABCPGMMRI1 to PRE-EXT-PGM of QSZ-PRE-EXT Move Qlicobjd to API-NAME, Perform Errcod Move Qszpkgpo to API-NAME, Perform Errcod Call Qszpkgpo Using QSZ-PRD-OPT-INF, REPKG, ALWCHG, QUS-ECOpen Output LISTING, Move 1 to FIRST-ERR 144 Packaging aRefer To Program For Product-OPM RPG Example on page A-3 fo Original Dcobji Numkey PID13 KEY12LID12 KEY5 Dapiname Dfirsterr 146 Eval Qszamr = \NO Qszridt = \PHONEEval Qszadn = \NODYNNAM Parm Prodname Qszpi Qszpo Parm Qszll Parm Pubaut QusecExsr Errcod Endif Endsr Eval Qszlt = \CODE Qszlid = \CODEDFT 148 Parm Qszpe Nbrpe Qszfl Parm QszalCobjd Begsr 150 Open Qprint Eval Firsterr = Endif Endsr Oqprint BadnewsApiname Qusei \\CTDATA Objinfo Space-Examples Space-ILE Cobol ExampleFILE-USED PIC SPACE-INIT PIC Overrides PIC System PICFORMAT-1 PIC EXT-ATTR PIC Call Qusptrus Using SPACE-NAME, SPACE-POINTER, QUS-EC API-ERROR-FOUNDSET Address of QDB-QDBFH to SPACE-POINTER Display API-NAME To a User Space-ILE RPG Example 156 Qdbfhupl Qdbfhmxm\NOMAX Qdbfwtfi Qdbfhfrt FrcratioQdbhmnum QDBRSV11 Qdbfvrm \QDBQAAF2 QDBBITS31QDBRSV17 Qdbfhcrt 160 QDBRSV23 QdbffiglQdbfmxrl QDBRSV24 Fcfo Fifo Lifo QdbfhrlsQDBRSV27 Qdbpfof QDBRSV28 Dspcname Dfilename Dfmtname Dfileused Dlibname DspcsizeDspcptr Dformat Doverrides Dsystem INZ\LCL DFORMAT1 INZ\INT Dchgattr Nbrattr Call Quscrtus Parm Spcname \BLANKS Extattr Spcsize Parm Spcinit \CHANGE Spcaut Qdbrtvfd SpctextCall Quscusat Parm Libname Spcname Chgattr Qusec Qusbavl Ifgt Movel Quscusat Apinam Exsr Apierr END Data Queue-Examples Data Queue-ILE Cobol Example FIRST-ERROR PIC PROGRAM-ID. Dqueuex Environment DivisionCopy Qcapcmd of QSYSINC-QLBLSRC Crtlib MSG PIC WAIT-TIMEMSG-BACK PIC Move 1 to FIRST-ERROR ERROR-FOUNDDisplay MSG-BACK Data Queue-OPM RPG Example 170 Exsr Exccmd Moveldltlib CmdstrExsr Exccmd Seton Retrn Qcabc Data 172 Eval Qcamk = \BLANKS Qcaerved = \LOVAL Eval Cmdstr = Crtlib Lenstr = %SIZECRTLIB Exsr ExeccmdEval Cmdstr = Crtdq Lenstr = %SIZECRTDQ Exsr Execcmd Parm Exampleq 174 UNIX-Type APIs-Examples Theread 176System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-177 Using the Integrated File System-ILE Cobol Example PROGRAM-ID. IFS Environment Division PRT-TEXT PICUser PIC Curdir PRT-TEXT PIC Procedure DIVISION. MAIN-LINE Open Output Listing TestfileValue LOW-VALUE Oflag PIC Perform ERROR-FOUND To LIST-LINE Write LIST-LINEGiving RETURN-INT If RETURN-INT To LIST-LINE Perform ERROR-FOUND Else To LIST-LINE Perform ERROR-FOUNDWrite LIST-LINE. Stop RUN ERROR-FOUND Write LIST-LINE Fqsysprt 184System API Programming V4R1 BLanguages-185 186 Appendix B. Original Examples in Additional BLanguages-187 Oqsysprt Bibliography Books Books Bibliography H-3 4System API Programming V4R1 Numerics Index API application programming interface Index ILE RPG Index Chgenvvar CEE Dspjobd Display Example Qusrtvei API Exception Type EXT ILE IPC Listing Message key Management APIs Assistant Exit Program OptiConnect APIs PL/I PL/I API Retrieve Qlpcdinf Generate CD-ROM Premastering Infor- mation API Qusdrgpt Deregister Exit Point API Qearmvbm API SAA Controls MI instruction Station Page How satisfied Please tell us how we can improve this manualTo return this form Other countries+1+507+253-5192 Reader Comments-Wed Like to Hear from You SC41-5800-00Page IBM IBM