Manuals / IBM / TV and Video / Universal Remote

IBM Version 4 manual Pgmr Change Description, Dqsyobjph Basedlstptr, QSYOBJT12, Qsyobjiu

Models: Version 4

1 505

Download 505 pages 30.92 Kb

Page 245

D\Description: Include header file for the QSYLOBJP API.

D\
D\Header Files Included: H/QSYLOBJP
D\		H/QSY
D\
D\Macros List: None.
D\
D\Structure List: OBJPð1ðð
D\		OBJPð2ðð
D\		Qsy_OBJP_Header
D\
D\Function Prototype List: QSYLOBJP
D\
D\Change Activity:
D\
D\CFD List:
D\
D\FLAG REASON		LEVEL DATE	PGMR	CHANGE DESCRIPTION
D\---- ------------ ----- ------ --------- ----------------------
D\$Að= D2862ððð		3D1ð 931222 XZYð432:		New Include
D\
D\End CFD List.
D\
D\Additional notes about the Change Activity
D\End Change Activity.
D\\\ END HEADER FILE SPECIFICATIONS \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\Prototype for calling Security API QSYLOBJP
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D QSYLOBJP		C	'QSYLOBJP'
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\Header structure for QSYLOBJP
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DQSYOBJPH		DS	BASED(LSTPTR)		.22/
D\				Qsy OBJP Header
D QSYUNðð		1	1ð
D\			User name
D QSYCVðð		11	3ð
D\			Continuation Value
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
D\Record structure for OBJPð1ðð format
D\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
DQSYð1ððLð2		DS	BASED(LSTPTR)		.22/
D\				Qsy OBJPð1ðð List
D	QSYNAMEð5	1	1ð
D	QSYBRARYð5	11	2ð
D\			Qualified object name
D QSYOBJT12		21	3ð
D\			Object type
D QSYOBJIU		31	31
D\			Object in use
C\
C\	Start of mainline
C\
C		EXSR	INIT
C		EXSR	PROCES
C		EXSR	DONE
C\
			Chapter	9. Common API	Programming Errors 9-39

Image 245

IBM Version 4 manual Pgmr Change Description, Dqsyobjph Basedlstptr, QSYOBJT12, Qsyobjiu, Exsr Init Proces Done

Contents

IBM Page IBM 1997 FirstContents Hold ChapterRPG AcrossAPIs ProgrammingMICRTPG2 Cobol OPMIndex ViiOPM API Viii System API Programming V4R1 Micrtpg System API Programming V4R1 Disclaimed IBMImplied Warranties of Merchantability and Fitness for Trademarks Programming Interface InformationXiii UsePrerequisite HLLXiv System API Programming V4R1 Exit programs That are documented Systemin API CompatibilityAPI Compatibility Saved Overhead Processing When You Call Using APIs-BenefitsBecause You Not Have To go ThroughAPIs System APIs or CL Commands-When UseFunctions Cobol ILE RPGEnvironments Related InformationBesides the OS/400 APIs that are OS/400 APIs Are documented Following booksLocating the API to StartedSocket Network Functions This UnixVerb Language Selection Considerations Data Types Selecting the High-Level Language To UseAPI Environments Environment CEE APIs for the Integrated Language EnvironmentRelated Information APIs for the ILE CommonIntegrated Language Environment ILE CEE APIs APIs for the Unix EnvironmentAPI Parameters Value of the data object is placed directl Parameter PassingParameter List LanguaParameter Classification Error Code ParameterError Receiving Error Conditions as Exceptions-ExampleWith Exception Data-Example CodeFrom ErrorsGetting Started with2-11APIs Security Uses Internal IdentifiersSpooling User Spaces User SpacesSpace Used byXxxx User Space Format-Example+NO Logic Flow of Processing a List of EntriesWith Using Offset Values with PointersManipulating a User Synchronizing between Two or More JobsPosition Values Manipulating a User Space without PointersLengths Space APIsQuschgus API Following is a user space after you change it with one \ Program Changusptr Changing a User Space with an ILE RPG Program-ExampleRPG Changing a User Space with an OPM RPG Program-ExampleUser ListListing Additional Information aboutBytes Returned Fields Receiver VariablesBeginning A receiver variable or the beginning of aQusljob API Keyed InterfaceUser Space Alternative Using a Continuation HandleContinuation Handle Qlicobjd APIMore information Domain ConceptsAPI Exit Points Security, Qalwusrdmn Set to System configured forsystemC2Exit Programs Library APIs and the QsysincInclude File CcsidCompile Program Specific User Index Considerations APIs and the Qusrtool LibraryUser Index Considerations InSystthem API Reference, SC41-5801System Performance ConsiderationsPerformance Considerations 32System API Programming V4R1 Original Program Model OPM API-Scenario InformationJob Held Queue First Step Finding the correct API is to Identify Part ThatParameters Description of an APILocks AuthoritiesPerforms Object For Are Based Objects ThatAre described in Required Parameter Group Format You Can See fromDecthedecimal Offset ColumnWould Make Binary Value Because the field is a binaryCan Place Format Name Pass Literal This NameFormat Error MessagesField Descriptions Optional Parameter GroupHold Parameter ExamplePerspective Only Possible values For Hold Job Queue Field AreAPIs-Examples Call Jobdapi Parmqbatch Qgpl Handling Error Conditions-OPM RPG ExampleCall Jobdapi Parmqbatch \LIBL Call Jobdapi Parmxyz \LIBLOPM RPG Ipgmsts SDS MsgiddITOUSRQPGMR36 47 MSG3B Parameter ErrorError Code Structure Can Found Format Error code structure Qusbn isCommon Information across APIs-Basic OPM 3-Example13 Qgpl Call Jobdapi Qpgmr XYZ XYZLibrary Does Not Exist. Use the following call statement Level Date Pgmr Change Description Value PlacedCode used to access the Hold attribute. T Accessing the Hold Attribute-OPMDiagnostic Message exists Job Log Can Received Following data structures are used Error-code data structureRetrieve job description data structure StructureInformation across APIs-Basic OPM 3-Example Initial\$Að= D2862ððð Common Information across APIs-Basic OPM 3-Example21 Icmdstr \ENTRY Jobdapi With ListSpooled Ispcnam Outq Common Information across APIs-Basic OPM 3-Example27 Qusptrus QusrtvusProcessing API-ExampleJob Description Information ParametersJOBD0100 Format CHAR8 End Severity BytesBytes Returned Job date ReplyJob LibraryMSG YESOffset RQD DataText Description Common Information across APIs-Basic OPM 3-Example37 38System API Programming V4R1 ILE API AcrossIntegrated Language Environment Point APIs-ConceptsGeneric Header Files Exit Program Attributes Parameter Keyed Interface-ExampleVariable-Length Structure-Example Key Type Field Exit Program Attribute KeysError Handling through the Error Code Parameter Error HandlingCcsid Initialize Bytes provided Field Number ParameterException handling is by having All Exceptions Signa SecondEntry Receiver Variables-ExamplesFields-Example WithILE C Registration Facility Using ILE APIs-ExamplesAdd Exit Program-ILE \EXCLUDE DescriptionExit Point Example API12System API Programming V4R1 Language ILE C EXAMPLEPGMEXAMPLELIB, Example Exit Program DataProgram Output None Rslvsppgmhdlr FunctionInput Information retrieved 16System API Programming V4R1 Common Information across APIs-Advanced ILE4-17Example 18System API Programming V4R1 Language ILE C Description Remove Exit Program and Deregister Exit Point-ILE C Example20System API Programming V4R1 Errorcode.ecfields.ExceptionId Exit1 \ End program \ 22System API Programming V4R1 General Data Structure Characteristics of a ListGeneral Data Structure Offset to List Data SectionOn page 5-14 and the OBJP0200 Format on 5-14. This Other Fields of Generic HeaderQsylobjp API Can Locate Remaining Information PlaceSee Add Size Each Entry Field Get .7/ starton Processing a ListList Object API-OPM RPG Example Iqusbn \/COPY QSYSINC/QRPGSRC,QUSEC\FLAG Reason Level Date Pgmr Change Description Qusbng QusbnfIqusky QuskyfExsr Init Exsr Proces Exsr Done \ENTRY Plist ParmBegsr Call QsylobjpParm Spcnam Parm RjobdfParm Spctyp QusbncPROC2 ADD Qusbpq StrposSizent QSYB6Qusbpj Ifeq Nument Exsr PROC2ADD Qusbpl Strpos Movelqusrtvusapinam Exsr Apierr EndifBegsr Movelqusbpj Lststs Endif USRSPC=P/C EndsrDoueqc Oreq Exsr PROC1Required Parameter Group Authorities and LocksOBJP0200 OBJP0100User name Object typeSection User Space VariablesAttribute Field DescriptionsInput UserContinuation handle not valid for Service Program Library &2 ended. Reason codObject Type Not Valid User space &4 in &9 damagedOPM Error ConditionsParameters Pointers This Program Calls Log Software Error QpdlogerFfdc Without Pointers-ILEOutput None Exceptions Ffdc Input Unexpectedhdlr Function\HANDLE 6System API Programming V4R1 API with Pointers-ILE C Example Software Error ILE\ Unexpectedhdlr \ QCLE/HFunction SymptommsgkeywordMSGSYMPTOMLEN \HANDLE Numberofkeys, &ErrorCode 12System API Programming V4R1 Machine InterfaceInterface Instructions-Introduction Setting the Declare Statements Setting the Entry PointWriting an MI Program-Example Section DiscussingARG2 ITS2Cpynv ResultMI01 Program-Complete Code Example Compiling a ProgramRexx Using Clcrtpg to CreateCreating the MI Example Program Testing MI01Debugging the MI Program ProgramSAV RSTBRK Are Compilers HLLs. BreakDirective allows users Language Statement SuchHandling Exceptions in the MI Program Following is an updated view of the MI01 program String 1202 Where 0C12 =andX 02 02= .X While mostExcid Hexadecimal representation of the message idCreating an MI Version of Clcrtpg Program Flow for Creating the Micrtpg Program Qprcrtpg .APISource for CL04 follows Source for CL03 followsSource for CL05 follows Source for Micrtpg follows Source for the Micrtpg ProgramDeclaring the Structure CodeUnderstanding the Micrtpg Program by Following, however, are new statementsUsrspc Declaring PointersUsrspcobj Creating the Micrtpg Program Understanding the MICRTPG2 Program by Sections of CodeCalling Enhanced VersionInstruction stream, create the space Establish addressability to the Crts templateQcmdexc API BinoffsetOvrdbf DCL Spcptr CLOVRLNG@ Initclovrlng DCL DD Cldltcmd CHAR12 Initdltovr MisrcDCL Spcptr CLDLTLNG@ Initcldltlng CLOVRLNG@ ARGStorage Beginning the Instruction StreamTo Your Advantage Delete the previous Ovrdbf MICRTPG2 Complete Program-MI Code ExampleCall the Qprcrtpg API to create the MI program Indicate that the program is doneDCL Spcptr Usrspc DCL Sysptr USRSPC@ DCL DD Numparms BINDCL Spcptr PGMOPTS@ Initpgmopts DCL DD Numopts BIN4 INIT3 DCL Sysptr QTEMP@ BaspcoCrts MI Following is the updated CL06 program Updated CL06 ProgramPGM PARM&BUFFER &OFFSET Dclf Filemisrc DCL DCL VAR&OFFSET TYPE\DEC LEN15 Loop RcvfQtemp Creating the MICRTPG2Handling Exceptions Its Consolidated State This Is the new MICRTPG2 program ExampleMachine Interface Programming7-29 CTXQSYS, Typepgm Retexcpd INTEntry \ EXT MI Common Programming Techniques-ExamplesDCL Spcptr SEPT@ Defpco DCL Sysptr QTEMP@ DefpcoPOS DCL DD Matctxopts CHAR44 DCL DD MatctxctlDCL DD Sreceiver CHAR8 BDRY16 DCL DD Sbytprv DCL DD SbytavlDeflreceiver DCL DD LextattrDCL DD Lentry DCL DD ObjentryCmpnvb SBYTAVL, 96 / Eqdone SRECEIVER@, QTEMP@, MatctxoptsLRECEIVER@, Sbytavl Cpynv LBYTPRV, SbytavlAPI before Developing Your Cations AS/400 Program StorageProcess Allo Cating Initializing automatic Storage APIs Backup RecoveryProvides Way to That Is only provided Service ProgramCommunications APIs Returns a list of configuration descriptions, based on a Configuration APIsDebugger APIs OptiConnect APIsWindow services Low-level servicesDynamic Screen Manager APIs DebuggerEdit Function APIs Session servicesFile APIs An edit CodeQdls Hierarchical File SystemHardware Resource APIs ILE CEE APIs Cobol APIsMessage Handling APIs Journal and Commit APIsJournal APIs Commitment Control APIsNetwork Management APIs National Language Support APIsNational Language Support APIs DataAlert APIs SNA/Management Services Transport SNA/MS Transport APIsNode List API Object APIsFilter Change Request Management APIsFollowing describes Clear Data Queue Qclrdtaq Retrieve DescriptionLifo Usridx User Index APIs8APIs-13 Chglibl Object APIsMovobj Office APIsAllows you to rename and mov Conversion Exit Programs Which Are Discussed Under OfficeMSF File Server APIsOffice Exit Programs Print APIs Performance Collector APIsPrint APIs Most FunctionsFiltering Problem Management APIsWorking with a Problem Program and CL Command APIsProblem Log Entry APIs Error Reporting APIsSoftware Product APIs Security APIsGetenv UNIX-Type APIsEnvironment Variable APIs Interprocess Communication APIs Integrated File System APIsHas Exec Function QueuesAn X/Open Specification As a mechanism by which a process Signal APIsSemaphore Are identifieAction SignalMIB IDaServer Client Sockets APIsProcess-Related APIs User Interface APIsUIM Advantages UIMWork DDS AdvantagesWork Management APIs SupportMiscellaneous APIs Miscellaneous APIsList APIs ProcessFind Field Numbers List Qgyoljbl APIThat show you how to avoid Errors Programming errors and refers you toUsing the error code TaskIncorrect Using the Error Code ParameterXxxxxxx Is shown at .2/locationinthe incorrect and correct codingCall Quscrtus Parm Spcnam Using the Error Code Parameter-Example of Correct CodingParm SIZ Intval Parm \ALL CsetonlrParm Extattrextatr 1ð Incorrect Coding Defining Data StructuresLength is Defined Through Length Through ThisJobnbr \ SET UP to Accept Exceptions ADD\ZEROSJobid JstatDefining a Data Structure-Example Coding\ Create the Space to Hold the Data Call Quscrtus Intval \ SET UP to Accept Exceptions ADD\ZEROS\ Call the API to List the Active Jobs Qusljob List Entry from the Space\ Delete the Space That Held the Data When Run Lists All Active Jobs System When Defining Receiver VariablesMay Written Over with These extra characters. On Call RPGQusbn \ Retrieve the Offset Qusbn \ Call the API to List the Active Jobs QusljobADD1 Start Qusbn \ Retrieve the List Entries Qusbpq ADD Start\\ JOB Name Structure for Calling Qusljob Ijobnam \ALL QusgenQusbn \ Retrieve List Entries Qusbpq ADD Start \\ Data Structure Containing Space NAME/LIB Ispcnam DS DefiningIncorrect ADD1 Dowlequsbps Qusbn \ Call the API to List the Active JobsMovelqusdd Recvr CodingRecvr ADD Start END \ Delete the Space That Held the Data Format Lengths-Example CorrectADD\ZEROS ILE NullNull Using Null Pointers with OPM APIs-Example of Correct Coding 20System API Programming V4R1 \CURLIB Correct Byte Alignment ensures that data used With an ByteQusVlenRec4t descrec Char Desc5ð Addepattributes This is a Test Exit PROGRAM,27 ILE C Defining Byte Alignment-Example CorrectEXAMPLEPGMEXAMPLELIB, Example Exit Program Data Using Offsets in a User Using Offsets in a User SpaceIncorrect Point For Beginning Read User\FLAG Reason Level Date Pgmr Iusersp APIUG1 Copy QSYSINC/QRPGSRC,QUSLOBJQgpl Iobject \ALLQusbps Qusbpj Ifeq C Oreq PADD1 Count Addqusbpq Strpos LendtaUser Space-Example Using Offsets in aCorrect Coding \FLAG Reason Level Date Pgmr Call Quscrtus Parm Iusersp APIUG1 Usrspc Qgpl SpclibIobject \ALL Objnam Qgpl Objlib Qusbpq ADD Strpos OreqExsr Errcod Seton Retrn For Coding for New Function\FLAG Reason Dspcname Inzadopts Qtemp DspcsizeDspcinit Qussgh QusuaQussrl QusfnPgmr Change Description QSYDqsyobjph Basedlstptr QSYOBJT12Move Qusis Proces BegsrLststatus Doueq Qusis Ifeq OreqEval Lstptr = %ADDRARRQUSOIP + Qusis IfeqEND Else Exsr Done ENDCall Qusrobjd Parm Rcvvar Rcvvarsiz Eval Qusbprv = %SIZEQUSECRobjdfmt Parm Spcname \USRSPC Objtype Qusec Qusei IfeqPGM, or Coding for New Function-Example CorrectDoes Not match 9B ð INZ1 Basedspcptr Lupa46System API Programming V4R1 Dsply Else Else QSYOBJT12 IfeqEval Lstptr = Addrarrqussee + END QSYOBJT12 Ifeq \SRVPGMEval Lstptr = Addrarrqusoip + Ifeq \BLANKS MoveMbrlist Parm \CURRENT Usrprf Call Qsylobjp Parm SpcnameObjtype Parm Parm QusecParm \USER Spcdomain RPG Example on page A-3 Packaging Your Own Software ProductsSoftware products Object Description Packaging aCL Program for Dltlib ABCCrtpf ABC/ABCPF ABCDEV/QDDSSRC + Crtdspf ABC/ABCDSPF ABCDEV/QDDSSRC +Crtcmd ABC/ABC ABC/ABCPGM ABCDEV/QCMDSRC + Crtpnlgrp ABC/ABCPNLGRP ABCDEV/QPNLSRC +Copy QSYSINC/QRPGSRC,QSZCRTPD Copy QSYSINC/QRPGSRC,QSZPKGPO Copy QSYSINC/QRPGSRC,QSZCRTPLTextd PhoneExsr Pkgpo Exsr CobjdPrddfn Begsr QszbcbParm Qszbc MovelqszcrtpdapiParm Qszbd Parm QszbfQszbh Movelqszcrtplapi Call QszcrtplQszbj QszbkMove OBJ,I Objds Name CAT ABC CobjdCobji PkgpoMovelqszpkgpoapi Call Qszpkgpo Parm Qszbr MOVEL\ALL QszbrfParm \YES Repkg Parm \NORetriev Command B-129Qszrtvpr API Rtvfd \CHANGE \INT \LCLQueue entries are manipulated. F Using Data Queues versusUser Data Queue-ILE C Example Example User Queue-ILE C ExampleQueuelib 18System API Programming V4R1 Valid \USER Appendix A. Performing Tasks Using APIs-ExamplesA-21 22System API Programming V4R1 Additional Languages AppendixHold Parameter Exception Message-ILE C Original Program Model OPM APIs-ExamplesExample on For the original JobdapiAppendix Original Examples in Additional Identification Division Message-ILE CobolCobol Procedure Division Using JOBD, JOBDL. .8/ MAIN-LINEPROGRAM-ID. Jobdapi Environment Division Copy Qusec of QSYSINC-QLBLSRCCopy QSYSINC/QRPGLESRC,QUSEC Move Jobd to JOB-DESC. Move Jobdl to JOB-DESC-LIBMove HOLD-JOB-QUEUE to Hold INZ Tousrqpgmr DcmdstringDrcvlen DformatHandling Error Error Begsr Exsr ErrorJobd CAT Jobdlib Lfnam Call QwdrjobdJobdapi Appendix B. Original Examples in Additional BLanguages-11 Identification Division Perform Errcod Procedure Division Using JOBD, JOBDL. MAIN-LINEMove 16 to BYTES-PROVIDED Copy QSYSINC/QRPGLESRC,QWDRJOBD Call Qcmdexc Using MESSAGE-TWO, COMMAND-LENGTH, Stop RUNMsgid INZ Tousrqpgmr DCMDSTR2Dlenstr INZ%SIZECMDSTRING DLENSTR2 INZ%SIZECMDSTR2 Call Qwdrjobd ParmParm LENSTR2 Endsr Accessing the Hold Attribute-ILE C ExampleMovel Qusei Msgid Call Qcmdexc Parm File PROGRAM-ID. Jobdapi Hold Attribute-ILELabel Records are Standard Data Division File SectionData Record is LIST-LINE LIST-LINEBAD Open Output Listing Move EXCEPTION-ID to Msgid Attribute-OPM RPG Example On page 3-17 f Original Refer To AccessingExcept BAD END Except Good ElseOqprint Good Oqprint BADAppendix B. Original Examples in Additional 24System API Programming V4R1 For Original example. The following program also Refer Accessing Field Value Initial Library List-OPMList-ILE Cobol Example Value Qwdrjobd RochDEVICE-RECOVERY-ACTION PIC JOB-SWITCHES PICBYTES-RETURNED BYTES-AVAILABLEPerform NUMBER-LIBS-IN-LIB-LIST Times Call Qcmdexc Using COMMAND-STRING, COMMAND-LENGTH, ADD 11 toReclen List-ILE RPGQwdbavl QwdbrtnQwdjdln QwdjdnQwdun QwdjdQwdlrd QwdordQwdjmqms QwdjmqfaExsr Error Else Using Keys with ListQwdoill ADD Qwdnlill Eval Call Qcmdexc Parm Cmdstring Lenstr ADDQuslspl Appendix B. Original Examples in Additional BLanguages-35 36System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-37 Prtfil PIC Using Keys with List Spooled Files API-ILE Cobol ExampleFiller PIC PagesLsterr TEXT1 PIC Opndat PICHdrerr TEXT2 PIC Misc SPC-NAME PICKEY-INFO Procedure DIVISION. MAIN-LINECall Qusptrus Using SPC-NAME, SPCPTR, QUS-EC STRING-SPACE Spcptr SET SETSTRING-SPACEOFFSET-LIST-DATA Perform ProcesTo Opndat Using Keys with List Spooled Files API-ILE RPG ExampleInzspcname Qtemp Dspcsize Dlstptr DLSTPTR2 DspcptrAppendix B. Original Examples in Additional BLanguages-43 BASEDLSTPTR2 Dqussplki\QUSERVED34 \ QUSERVED35Parm Qusec \USER Parm \BLANKS SpctextCall Quslspl Parm Spcname Format Parm \CURRENT UsrprfEval LSTPTR2 = %ADDRARRX END Except Prtlin AGE CAS Error ENDFilnam Begsr Move \BLANKS Prtfil EvalExit APIs-ExamplesCobol Example IntegratedEXCEPTION-ID PIC BAD-REG TEXT1 PICBAD-ADD TEXT1 PIC VAR-OFFSETMove 3 to CONTROL-KEY of QUS-VLEN-REC-4 Move 2 to NBR-RECORDSMove Exit Point Example Move 4 to CONTROL-KEY of QUS-VLEN-REC-4Register Exit Point By Content Length of EXIT-PGM-DATA of MISC, VARREC, QUS-ECTEXT1 PIC X1ððð Ð1 Misc EXIT-POINT-NAME of MISC, FORMAT-NAME of MISC, VARREC, QUS-EC RPG Copy QSYSINC/QRPGSRC,QUS I\ Printer \ Compile Time Array RECIvarrec IovrlayADD3 ADD2ADD4 Binary ADD Moveabinc REC,OF Exsr Calcvo ADD8ADD37 Binary Moveabinc REC,OF Exsr REC,OF ExsrCall Qusaddep Qusbnc Ifgt OpenErrpgm ErreptPrinter OFLIND\INOF Usropn Copy QSYSINC/QRPGLESRC,QUSRecs Dvarrec NbrrecsDvoffset Doverlays BinaryParm Epntname CallbFormat Parm Varrec Qusec Open Qprint Except Erraepnt Exsr Done EndifInformation-OPM Cobol EXCEPTION-ID PROGRAM-ID. REGFAC2 Environment DivisionBAD-CREATE TEXT1 Misc EXIT-POINT-NAME PICFORMAT-NAME-2 PIC FORMAT-NAME-1 PICBASE-POINTER Pointer INFO-POINTER SPACE-NAME PIC Value Rcvvar Qtemp SPACE-ATTR PICMove Spaces to CONTINUATION-HDL Call Qusptrus Using SPACE-NAME, BASE-POINTER, QUS-ECPerform CALL-EXIT-PROGRAMS Else Stop RUNTo CONTINUATION-HDL CALL-EXIT-PROGRAMSTo Address of RCVVAROFFSET-PROGRAM-ENTRY Write LIST-LINE from BAD-EXIT-PGM, Stop RUNPerform CALL-PGMS CALL-PGMSValue -1 Binary Value ExampleexitpointEXIT-PGM-NBR 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 Ircv Copy QSYSINC/QRPGSRC,QUSREGMove \BLANKS Call Qusrtvei Parm Conthd RCV RcvszParm Epgmnb Parm EpntnmQusccb SUBSTRCV1Quscj Parm RCV RcvszADD Quscjf Substrcvy QuscjgDone Begsr Seton Retrn Endsr Oqprint Information-ILE RPG ExampleQusbnd Oqprint \ BasedQusppn DquspeQuspplib QusppfQusmi QusmlibDqusse QuscoQusnbrep QusmepQusad QusaccQusce QusoneQuspgmn Quspgml\QUSPD QusledQusopgme QuslpgmeQusmfill QUSFN12Qusopd Quslpd\ QUSERVED11 \ QUSFN13Qusrei Depntname Inzexampleexitpoint DepgmnbrCallb Qusrei Parm Continhdl Rcvvar Rcvvarsz Move \BLANKS ContinhdlFormat Parm Epntname Epntfmt Parm Epgmnbr Qusnbrsc QusecCusrei Begsr DOWExsr Cusrei Enddo Endif Done Parm Exitparms Remove Exit ProgramEval Infspcptr = %ADDRRCVVARQUSONE+1 Enddo Endsr Begsr EvalPGM-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 Call Qusdrgpt Parm Pgmnbr QusbnDpgmnbr QusrepgmCallb Qusdep Parm Epntname Callb Qusrepgm Parm EpntnameFormat Parm Pgmnbr Qusec Object API-ILE CAppendix 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 INPUT-OUTPUT Section List Object API-ILE Cobol ExamplePROGRAM-ID. Listadopt Environment Division 102 OBJ-TYPE PIC Procedure Division Using USR-PRF, OBJ-TYPE. MAIN-LINECopy Qsylobjp of QSYSINC-QLBLSRC Address of STRING-SPACEPerform DONE, END-IF PROCES2 Perform PROCES2To LST-STATUS, END-IF END-IF, END-IF Else Move Length of QUS-EC to BYTES-PROVIDED of QUS-EC Move Qsylobjp to APINAM, Perform ApierrMove Quscrtus to APINAM, Perform Apierr Move Qusrobjd to APINAM, Perform ApierrMove Qusptrus to APINAM, Perform Apierr 106Display Apinam Display EXCEPTION-ID of QUS-EC. Perform Done Write LIST-LINE from END-LIST. Stop RUNDlstptr Dspcptr Darr Basedlstptr DIM32767 Drcvvar Inzadopts Qtemp DspcsizeQSYOBJT13 108QSYOBJA11 QSYOBJT14Lststatus Qusnbrle Except ObjentryEval Lstptr = %ADDRARRQUSSEE + 1 END Robjdfmt Parm Spcname \USRSPC Spctype Qusec Exsr Getlst Move Qusis Lststatus END ElseMbrlist Parm Usrprf Objtype Continhdl Qusec CPF98ð1 CBLERR1 Program Pointers-ExamplesWithout LoggingERRHDL1 \LIBL Scope PIC ERROR-HANDLER PICPROGRAM-ID. CBLERR1 ERRHDL1 Program PRIOR-ERROR-HANDLER of MISC, QUS-ECADD X to Y PROGRAM-ID. ERRHDL1MESSAGE-KEY PIC Misc LOG-EXCEPTION-ID PICPOINT-OF-FAILURE PIC Binary Value PRINT-JOBLOG PICMove 1 to MSG-OFFSET Logging Software Error OPMLIBRARY-NAME Move C to SYS-OPTION. Stop RUNIpsds SRC TGTExcpid ImiscFACT1 SwitchFACT2 FACT1 DIV FACT2 ResultAPI without Pointers-ILE C Example Logging Software Error OPM API without Pointers-ILEDpsds SDS 120Appendix B. Original Examples in Additional BLanguages-121 Refer to Reporting Software Error ILE This section includes the examples Reporting Software ErrorCBLERR2 Program ReportingNUMERIC-GROUP PIC ERROR-HANDLERCopy Qusec of QSYSINC-QCBLLESRC Copy Qpdsrvpg of QSYSINC-QCBLLESRC ERRHDL2 ProgramPROGRAM-ID. ERRHDL2 MESSAGE-LENGTH Procedure Division Using CBL-EXCEPTION-IDSYS-OPTION PIC CBL-PGM-NAMESoftware RPG Example126 Dpsds Copy QSYSINC/QRPGLESRC,QPDSRVPG D\Inzrc 128System API Programming V4R1 Sftwprdex This Section Includes the examples Packaging YourSoftware Produ 130System API Programming V4R1 Object ABCðð29 MRI object For Product 132System API Programming V4R1 ABCPGMMRI1ABC ABCPGMMRM2ABCABCPGMMRI2ABC Qclsrc ABC134 Appendix B. Original Examples in Additional BLanguages-135 Qszcrtpd Program for Packaging a Product-ILE Cobol ExampleQszpkgpo PROGRAM-ID. Sftwprdex Environment DivisionCopy Qszcrtpl of QSYSINC-QLBLSRC Copy Qszcrtpd of QSYSINC-QLBLSRCCopy Qszpkgpo of QSYSINC-QLBLSRC API-NAME PICKEY13 NumkeyLEN13 PID13 PICPerform Cobjd Perform PrdlodPerform Pkgpo PrddfnMove Spaces to Reserved of QSZ-LNG-LOD Call Qszcrtpd Using PROD-NAME, QSZ-PRD-INF, QSZ-PRD-OPTMove Qszcrtpd to API-NAME, Perform Errcod PrdlodMove ABCPGMMRI1 to PRE-EXT-PGM of QSZ-PRE-EXT Move Qszcrtpl to API-NAME, Perform ErrcodMove ABCPGMMRI2 to POST-EXIT-PGM of QSZ-LIB-INF Move Qlicobjd to API-NAME, Perform Errcod Open Output LISTING, Move 1 to FIRST-ERR Call Qszpkgpo Using QSZ-PRD-OPT-INF, REPKG, ALWCHG, QUS-ECMove Qszpkgpo to API-NAME, Perform Errcod Packaging a 144Refer To Program For Product-OPM RPG Example on page A-3 fo OriginalPID13 KEY12 Dcobji NumkeyLID12 KEY5 Dapiname DfirsterrEval Qszamr = \NO Qszridt = \PHONE 146Eval Qszadn = \NODYNNAM Parm Prodname Qszpi QszpoParm Pubaut Qusec Parm QszllExsr Errcod Endif Endsr Eval Qszlt = \CODE Qszlid = \CODEDFT148 Cobjd Begsr Parm QszalParm Qszpe Nbrpe Qszfl 150 Endsr Oqprint Badnews Open Qprint Eval Firsterr = EndifApiname Qusei \\CTDATA ObjinfoSpace-ILE Cobol Example Space-ExamplesFILE-USED PIC SPACE-INIT PICSystem PIC Overrides PICFORMAT-1 PIC EXT-ATTR PICAPI-ERROR-FOUND Call Qusptrus Using SPACE-NAME, SPACE-POINTER, QUS-ECSET Address of QDB-QDBFH to SPACE-POINTER Display API-NAMETo a User Space-ILE RPG Example 156 Qdbfhmxm Qdbfhupl\NOMAX QdbfwtfiFrcratio QdbfhfrtQdbhmnum QDBRSV11\QDBQAAF2 QDBBITS31 QdbfvrmQDBRSV17 Qdbfhcrt160 Qdbffigl QDBRSV23Qdbfmxrl QDBRSV24Qdbfhrls Fcfo Fifo LifoQDBRSV27 QdbpfofDspcname Dfilename Dfmtname Dfileused Dlibname Dspcsize QDBRSV28Dspcptr Dformat Doverrides Dsystem INZ\LCL DFORMAT1 INZ\INT Dchgattr NbrattrSpcsize Parm Spcinit \CHANGE Spcaut Qdbrtvfd Spctext Call Quscrtus Parm Spcname \BLANKS ExtattrCall Quscusat Parm Libname Spcname Chgattr Qusec Qusbavl Ifgt Movel Quscusat Apinam Exsr Apierr ENDData Queue-ILE Cobol Example Data Queue-ExamplesPROGRAM-ID. Dqueuex Environment Division FIRST-ERROR PICCopy Qcapcmd of QSYSINC-QLBLSRC CrtlibMSG-BACK PIC WAIT-TIMEMSG PIC Display MSG-BACK ERROR-FOUNDMove 1 to FIRST-ERROR Data Queue-OPM RPG Example 170 Moveldltlib Cmdstr Exsr ExccmdExsr Exccmd Seton Retrn Qcabc172 DataEval Cmdstr = Crtlib Lenstr = %SIZECRTLIB Exsr Execcmd Eval Qcamk = \BLANKS Qcaerved = \LOVALEval Cmdstr = Crtdq Lenstr = %SIZECRTDQ Exsr Execcmd Parm Exampleq174 Theread UNIX-Type APIs-Examples176System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-177 Using the Integrated File System-ILE Cobol Example PRT-TEXT PIC PROGRAM-ID. IFS Environment DivisionUser PIC Curdir PRT-TEXT PICTestfile Procedure DIVISION. MAIN-LINE Open Output ListingValue LOW-VALUE Oflag PICTo LIST-LINE Write LIST-LINE Perform ERROR-FOUNDGiving RETURN-INT If RETURN-INTWrite LIST-LINE. Stop RUN To LIST-LINE Perform ERROR-FOUNDTo LIST-LINE Perform ERROR-FOUND Else Fqsysprt ERROR-FOUND Write LIST-LINE184System API Programming V4R1 BLanguages-185 186 Appendix B. Original Examples in Additional BLanguages-187 Oqsysprt Books BibliographyBooks Bibliography H-3 4System API Programming V4R1 Index NumericsAPI 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 Please tell us how we can improve this manual How satisfiedTo return this form Other countries+1+507+253-5192SC41-5800-00 Reader Comments-Wed Like to Hear from YouPage IBM IBM