| IBM Version 4

Contents

IBM Page IBM 1997 FirstContents Across ChapterHold RPGAPIs 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 InformationHLL UseXiii PrerequisiteXiv System API Programming V4R1 Exit programs That are documented Systemin API CompatibilityAPI Compatibility You Not Have To go Through Using APIs-BenefitsSaved Overhead Processing When You Call BecauseCobol ILE RPG System APIs or CL Commands-When UseAPIs FunctionsOS/400 APIs Are documented Following books Related InformationEnvironments Besides the OS/400 APIs that areUnix StartedLocating the API to Socket Network Functions ThisVerb Language Selection Considerations Data Types Selecting the High-Level Language To UseAPI Environments APIs for the ILE Common APIs for the Integrated Language EnvironmentEnvironment CEE Related InformationIntegrated Language Environment ILE CEE APIs APIs for the Unix EnvironmentAPI Parameters Langua Parameter PassingValue of the data object is placed directl Parameter ListParameter Classification Error Code ParameterCode Receiving Error Conditions as Exceptions-ExampleError With Exception Data-ExampleFrom ErrorsGetting Started with2-11APIs Security Uses Internal IdentifiersSpooling Used by User SpacesUser Spaces SpaceXxxx User Space Format-Example+NO Logic Flow of Processing a List of EntriesSynchronizing between Two or More Jobs Using Offset Values with PointersWith Manipulating a UserSpace APIs Manipulating a User Space without PointersPosition Values LengthsQuschgus 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-ExampleAdditional Information about ListUser ListingA receiver variable or the beginning of a Receiver VariablesBytes Returned Fields BeginningQusljob API Keyed InterfaceQlicobjd API Using a Continuation HandleUser Space Alternative Continuation HandleMore information Domain ConceptsAPI Exit Points Security, Qalwusrdmn Set to System configured forsystemC2Exit Programs Library APIs and the QsysincInclude File CcsidCompile Program Specific InSystthem API Reference, SC41-5801 APIs and the Qusrtool LibraryUser Index Considerations User Index ConsiderationsSystem Performance ConsiderationsPerformance Considerations 32System API Programming V4R1 First Step Finding the correct API is to Identify Part That InformationOriginal Program Model OPM API-Scenario Job Held QueueAuthorities Description of an APIParameters LocksFormat You Can See fromDecthedecimal Offset Column Are Based Objects ThatPerforms Object For Are described in Required Parameter GroupThis Name Because the field is a binaryWould Make Binary Value Can Place Format Name Pass LiteralOptional Parameter Group Error MessagesFormat Field DescriptionsOnly Possible values For Hold Job Queue Field Are ExampleHold Parameter PerspectiveAPIs-Examples Call Jobdapi Parmxyz \LIBL Handling Error Conditions-OPM RPG ExampleCall Jobdapi Parmqbatch Qgpl Call Jobdapi Parmqbatch \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 Structure Error-code data structureFollowing data structures are used Retrieve job description data 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 QusrtvusParameters API-ExampleProcessing Job Description InformationJOBD0100 Format CHAR8 End Severity BytesBytes Returned Library ReplyJob date JobMSG 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 KeysInitialize Bytes provided Field Number Parameter Error HandlingError Handling through the Error Code Parameter CcsidException 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 SectionCan Locate Remaining Information Place Other Fields of Generic HeaderOn page 5-14 and the OBJP0200 Format on 5-14. This Qsylobjp APISee 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 Quskyf QusbnfQusbng IquskyCall Qsylobjp \ENTRY Plist ParmExsr Init Exsr Proces Exsr Done BegsrQusbnc Parm RjobdfParm Spcnam Parm SpctypQSYB6 ADD Qusbpq StrposPROC2 SizentMovelqusrtvusapinam Exsr Apierr Endif Nument Exsr PROC2Qusbpj Ifeq ADD Qusbpl StrposOreq Exsr PROC1 Endif USRSPC=P/C EndsrBegsr Movelqusbpj Lststs DoueqcRequired Parameter Group Authorities and LocksObject type OBJP0100OBJP0200 User nameSection User Space VariablesUser Field DescriptionsAttribute InputUser space &4 in &9 damaged Service Program Library &2 ended. Reason codContinuation handle not valid for Object Type Not ValidOPM Error ConditionsParameters Without Pointers-ILE This Program Calls Log Software Error QpdlogerPointers FfdcOutput None Exceptions Ffdc Input Unexpectedhdlr Function\HANDLE 6System API Programming V4R1 QCLE/H Software Error ILEAPI with Pointers-ILE C Example \ Unexpectedhdlr \Function SymptommsgkeywordMSGSYMPTOMLEN \HANDLE Numberofkeys, &ErrorCode 12System API Programming V4R1 Machine InterfaceInterface Instructions-Introduction Section Discussing Setting the Entry PointSetting the Declare Statements Writing an MI Program-ExampleResult ITS2ARG2 CpynvMI01 Program-Complete Code Example Compiling a ProgramRexx Using Clcrtpg to CreateCreating the MI Example Program Testing MI01RST ProgramDebugging the MI Program SAVLanguage Statement Such Are Compilers HLLs. BreakBRK Directive allows usersHandling Exceptions in the MI Program Hexadecimal representation of the message id String 1202 Where 0C12 =andX 02 02= .X While mostFollowing is an updated view of the MI01 program ExcidCreating 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 ProgramFollowing, however, are new statements CodeDeclaring the Structure Understanding the Micrtpg Program byUsrspc Declaring PointersUsrspcobj Enhanced Version Understanding the MICRTPG2 Program by Sections of CodeCreating the Micrtpg Program CallingInstruction stream, create the space Establish addressability to the Crts templateQcmdexc API BinoffsetOvrdbf CLOVRLNG@ ARG DCL DD Cldltcmd CHAR12 Initdltovr MisrcDCL Spcptr CLOVRLNG@ Initclovrlng DCL Spcptr CLDLTLNG@ InitcldltlngStorage Beginning the Instruction StreamTo Your Advantage Indicate that the program is done MICRTPG2 Complete Program-MI Code ExampleDelete the previous Ovrdbf Call the Qprcrtpg API to create the MI programDCL Spcptr Usrspc DCL Sysptr USRSPC@ DCL DD Numparms BINDCL Spcptr PGMOPTS@ Initpgmopts DCL DD Numopts BIN4 INIT3 DCL Sysptr QTEMP@ BaspcoCrts MI DCL VAR&OFFSET TYPE\DEC LEN15 Loop Rcvf Updated CL06 ProgramFollowing is the updated CL06 program PGM PARM&BUFFER &OFFSET Dclf Filemisrc DCLQtemp Creating the MICRTPG2Handling Exceptions Its Consolidated State This Is the new MICRTPG2 program ExampleMachine Interface Programming7-29 CTXQSYS, Typepgm Retexcpd INTDCL Sysptr QTEMP@ Defpco MI Common Programming Techniques-ExamplesEntry \ EXT DCL Spcptr SEPT@ DefpcoDCL DD Sbytavl DCL DD Matctxopts CHAR44 DCL DD MatctxctlPOS DCL DD Sreceiver CHAR8 BDRY16 DCL DD SbytprvDCL DD Objentry DCL DD LextattrDeflreceiver DCL DD LentryCpynv LBYTPRV, Sbytavl SRECEIVER@, QTEMP@, MatctxoptsCmpnvb SBYTAVL, 96 / Eqdone LRECEIVER@, 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 OptiConnect APIs Configuration APIsReturns a list of configuration descriptions, based on a Debugger APIsDebugger Low-level servicesWindow services Dynamic Screen Manager APIsAn edit Code Session servicesEdit Function APIs File APIsQdls Hierarchical File SystemHardware Resource APIs ILE CEE APIs Cobol APIsCommitment Control APIs Journal and Commit APIsMessage Handling APIs Journal APIsData National Language Support APIsNetwork Management APIs National Language Support APIsAlert APIs SNA/Management Services Transport SNA/MS Transport APIsChange Request Management APIs Object APIsNode List API FilterFollowing describes Clear Data Queue Qclrdtaq Retrieve DescriptionLifo Usridx User Index APIs8APIs-13 Chglibl Object APIsConversion Exit Programs Which Are Discussed Under Office Office APIsMovobj Allows you to rename and movMSF File Server APIsOffice Exit Programs Most Functions Performance Collector APIsPrint APIs Print APIsFiltering Problem Management APIsError Reporting APIs Program and CL Command APIsWorking with a Problem Problem Log Entry APIsSoftware Product APIs Security APIsGetenv UNIX-Type APIsEnvironment Variable APIs Queues Integrated File System APIsInterprocess Communication APIs Has Exec FunctionAre identifie Signal APIsAn X/Open Specification As a mechanism by which a process SemaphoreAction SignalMIB IDaServer Client Sockets APIsUIM User Interface APIsProcess-Related APIs UIM AdvantagesSupport DDS AdvantagesWork Work Management APIsProcess Miscellaneous APIsMiscellaneous APIs List APIsFind Field Numbers List Qgyoljbl APITask Programming errors and refers you toThat show you how to avoid Errors Using the error codeIs shown at .2/locationinthe incorrect and correct coding Using the Error Code ParameterIncorrect XxxxxxxCsetonlr Using the Error Code Parameter-Example of Correct CodingCall Quscrtus Parm Spcnam Parm SIZ Intval Parm \ALLParm Extattrextatr 1ð Length Through This Defining Data StructuresIncorrect Coding Length is Defined ThroughJstat \ SET UP to Accept Exceptions ADD\ZEROSJobnbr JobidDefining a Data Structure-Example CodingList Entry from the Space 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\ Delete the Space That Held the Data RPG When Defining Receiver VariablesWhen Run Lists All Active Jobs System May Written Over with These extra characters. On CallQusbn \ Retrieve the List Entries Qusbpq ADD Start Qusbn \ Call the API to List the Active Jobs QusljobQusbn \ Retrieve the Offset ADD1 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 JobsFormat Lengths-Example Correct CodingMovelqusdd Recvr Recvr ADD Start END \ Delete the Space That Held the DataADD\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 Point For Beginning Read User Using Offsets in a User SpaceUsing Offsets in a User Incorrect\FLAG Reason Level Date Pgmr Iobject \ALL Copy QSYSINC/QRPGSRC,QUSLOBJIusersp APIUG1 QgplLendta Qusbpj Ifeq C Oreq PQusbps ADD1 Count Addqusbpq StrposUser 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 Qusfn QusuaQussgh QussrlQSYOBJT12 QSYPgmr Change Description Dqsyobjph BasedlstptrQusis Ifeq Oreq Proces BegsrMove Qusis Lststatus DoueqExsr Done END Qusis IfeqEval Lstptr = %ADDRARRQUSOIP + END ElseQusei Ifeq Eval Qusbprv = %SIZEQUSECCall Qusrobjd Parm Rcvvar Rcvvarsiz Robjdfmt Parm Spcname \USRSPC Objtype QusecPGM, or Coding for New Function-Example CorrectDoes Not match 9B ð INZ1 Basedspcptr Lupa46System API Programming V4R1 Dsply Else Else QSYOBJT12 IfeqIfeq \BLANKS Move QSYOBJT12 Ifeq \SRVPGMEval Lstptr = Addrarrqussee + END Eval Lstptr = Addrarrqusoip +Parm Qusec Call Qsylobjp Parm SpcnameMbrlist Parm \CURRENT Usrprf Objtype ParmParm \USER Spcdomain RPG Example on page A-3 Packaging Your Own Software ProductsSoftware products Dltlib ABC Packaging aObject Description CL Program forCrtpnlgrp ABC/ABCPNLGRP ABCDEV/QPNLSRC + Crtdspf ABC/ABCDSPF ABCDEV/QDDSSRC +Crtpf ABC/ABCPF ABCDEV/QDDSSRC + Crtcmd ABC/ABC ABC/ABCPGM ABCDEV/QCMDSRC +Copy QSYSINC/QRPGSRC,QSZCRTPD Phone Copy QSYSINC/QRPGSRC,QSZCRTPLCopy QSYSINC/QRPGSRC,QSZPKGPO TextdQszbcb Exsr CobjdExsr Pkgpo Prddfn BegsrParm Qszbf MovelqszcrtpdapiParm Qszbc Parm QszbdQszbk Movelqszcrtplapi Call QszcrtplQszbh QszbjPkgpo CobjdMove OBJ,I Objds Name CAT ABC CobjiParm \NO MOVEL\ALL QszbrfMovelqszpkgpoapi Call Qszpkgpo Parm Qszbr Parm \YES RepkgRetriev 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 AppendixJobdapi Original Program Model OPM APIs-ExamplesHold Parameter Exception Message-ILE C Example on For the originalAppendix Original Examples in Additional Identification Division Message-ILE CobolCopy Qusec of QSYSINC-QLBLSRC Procedure Division Using JOBD, JOBDL. .8/ MAIN-LINECobol PROGRAM-ID. Jobdapi Environment DivisionCopy QSYSINC/QRPGLESRC,QUSEC Move Jobd to JOB-DESC. Move Jobdl to JOB-DESC-LIBMove HOLD-JOB-QUEUE to Hold Dformat DcmdstringINZ Tousrqpgmr DrcvlenHandling Error Call Qwdrjobd Exsr ErrorError Begsr Jobd CAT Jobdlib LfnamJobdapi 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 RUNCall Qwdrjobd Parm DCMDSTR2Msgid INZ Tousrqpgmr Dlenstr INZ%SIZECMDSTRING DLENSTR2 INZ%SIZECMDSTR2Parm LENSTR2 Endsr Accessing the Hold Attribute-ILE C ExampleMovel Qusei Msgid Call Qcmdexc Parm File PROGRAM-ID. Jobdapi Hold Attribute-ILELIST-LINE Data Division File SectionLabel Records are Standard Data Record is LIST-LINEBAD Open Output Listing Move EXCEPTION-ID to Msgid Attribute-OPM RPG Example On page 3-17 f Original Refer To AccessingOqprint BAD Except Good ElseExcept BAD END Oqprint GoodAppendix 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 RochBYTES-AVAILABLE JOB-SWITCHES PICDEVICE-RECOVERY-ACTION PIC BYTES-RETURNEDPerform NUMBER-LIBS-IN-LIB-LIST Times Call Qcmdexc Using COMMAND-STRING, COMMAND-LENGTH, ADD 11 toReclen List-ILE RPGQwdbavl QwdbrtnQwdjd QwdjdnQwdjdln QwdunQwdjmqfa QwdordQwdlrd QwdjmqmsCall Qcmdexc Parm Cmdstring Lenstr ADD Using Keys with ListExsr Error Else Qwdoill ADD Qwdnlill EvalQuslspl Appendix B. Original Examples in Additional BLanguages-35 36System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-37 Pages Using Keys with List Spooled Files API-ILE Cobol ExamplePrtfil PIC Filler PICMisc SPC-NAME PIC Opndat PICLsterr TEXT1 PIC Hdrerr TEXT2 PICKEY-INFO Procedure DIVISION. MAIN-LINECall Qusptrus Using SPC-NAME, SPCPTR, QUS-EC Perform Proces SETSTRING-SPACE Spcptr SET STRING-SPACEOFFSET-LIST-DATADlstptr DLSTPTR2 Dspcptr Using Keys with List Spooled Files API-ILE RPG ExampleTo Opndat Inzspcname Qtemp DspcsizeAppendix B. Original Examples in Additional BLanguages-43 \ QUSERVED35 DqussplkiBASEDLSTPTR2 \QUSERVED34Format Parm \CURRENT Usrprf Parm \BLANKS SpctextParm Qusec \USER Call Quslspl Parm SpcnameMove \BLANKS Prtfil Eval AGE CAS Error ENDEval LSTPTR2 = %ADDRARRX END Except Prtlin Filnam BegsrIntegrated APIs-ExamplesExit Cobol ExampleVAR-OFFSET BAD-REG TEXT1 PICEXCEPTION-ID PIC BAD-ADD TEXT1 PICMove 4 to CONTROL-KEY of QUS-VLEN-REC-4 Move 2 to NBR-RECORDSMove 3 to CONTROL-KEY of QUS-VLEN-REC-4 Move Exit Point ExampleRegister 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 Iovrlay Printer \ Compile Time Array RECCopy QSYSINC/QRPGSRC,QUS I\ IvarrecBinary ADD Moveabinc REC,OF Exsr Calcvo ADD8 ADD2ADD3 ADD4Qusbnc Ifgt Open REC,OF ExsrADD37 Binary Moveabinc REC,OF Exsr Call QusaddepCopy QSYSINC/QRPGLESRC,QUS ErreptErrpgm Printer OFLIND\INOF UsropnDoverlays Binary Dvarrec NbrrecsRecs DvoffsetOpen Qprint Except Erraepnt Exsr Done Endif CallbParm Epntname Format Parm Varrec QusecInformation-OPM Cobol Misc EXIT-POINT-NAME PIC PROGRAM-ID. REGFAC2 Environment DivisionEXCEPTION-ID BAD-CREATE TEXT1Value Rcvvar Qtemp SPACE-ATTR PIC FORMAT-NAME-1 PICFORMAT-NAME-2 PIC BASE-POINTER Pointer INFO-POINTER SPACE-NAME PICMove Spaces to CONTINUATION-HDL Call Qusptrus Using SPACE-NAME, BASE-POINTER, QUS-ECCALL-EXIT-PROGRAMS Else Stop RUNPerform CALL-EXIT-PROGRAMS To CONTINUATION-HDLCALL-PGMS Write LIST-LINE from BAD-EXIT-PGM, Stop RUNTo Address of RCVVAROFFSET-PROGRAM-ENTRY Perform 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 Call Qusrtvei Parm Conthd RCV Rcvsz Copy QSYSINC/QRPGSRC,QUSREGIrcv Move \BLANKSSUBSTRCV1 Parm EpntnmParm Epgmnb QusccbQuscjg Parm RCV RcvszQuscj ADD Quscjf Substrcvy\ Based Information-ILE RPG ExampleDone Begsr Seton Retrn Endsr Oqprint Qusbnd OqprintQusppf DquspeQusppn QuspplibQusco QusmlibQusmi DqusseQusacc QusmepQusnbrep QusadQuspgml QusoneQusce QuspgmnQuslpgme Qusled\QUSPD QusopgmeQuslpd QUSFN12Qusmfill QusopdDepntname Inzexampleexitpoint Depgmnbr \ QUSFN13\ QUSERVED11 QusreiEpntfmt Parm Epgmnbr Qusnbrsc Qusec Move \BLANKS ContinhdlCallb Qusrei Parm Continhdl Rcvvar Rcvvarsz Format Parm EpntnameCusrei Begsr DOWExsr Cusrei Enddo Endif Done Begsr Eval Remove Exit ProgramParm Exitparms Eval Infspcptr = %ADDRRCVVARQUSONE+1 Enddo EndsrPGM-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 Address of STRING-SPACE Procedure Division Using USR-PRF, OBJ-TYPE. MAIN-LINEOBJ-TYPE PIC Copy Qsylobjp of QSYSINC-QLBLSRCPerform DONE, END-IF PROCES2 Perform PROCES2To LST-STATUS, END-IF END-IF, END-IF Else Move Qusrobjd to APINAM, Perform Apierr Move Qsylobjp to APINAM, Perform ApierrMove Length of QUS-EC to BYTES-PROVIDED of QUS-EC Move Quscrtus to APINAM, Perform ApierrWrite LIST-LINE from END-LIST. Stop RUN 106Move Qusptrus to APINAM, Perform Apierr Display Apinam Display EXCEPTION-ID of QUS-EC. Perform DoneDlstptr Dspcptr Darr Basedlstptr DIM32767 Drcvvar Inzadopts Qtemp DspcsizeQSYOBJT14 108QSYOBJT13 QSYOBJA11Lststatus 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 Logging Pointers-ExamplesCBLERR1 Program WithoutERRHDL1 \LIBL Scope PIC ERROR-HANDLER PICPROGRAM-ID. CBLERR1 PROGRAM-ID. ERRHDL1 PRIOR-ERROR-HANDLER of MISC, QUS-ECERRHDL1 Program ADD X to YBinary Value PRINT-JOBLOG PIC Misc LOG-EXCEPTION-ID PICMESSAGE-KEY PIC POINT-OF-FAILURE PICMove C to SYS-OPTION. Stop RUN Logging Software Error OPMMove 1 to MSG-OFFSET LIBRARY-NAMEImisc SRC TGTIpsds ExcpidFACT1 DIV FACT2 Result SwitchFACT1 FACT2API without Pointers-ILE C Example Logging Software Error OPM API without Pointers-ILEDpsds SDS 120Appendix B. Original Examples in Additional BLanguages-121 Reporting This section includes the examples Reporting Software ErrorRefer to Reporting Software Error ILE CBLERR2 ProgramNUMERIC-GROUP PIC ERROR-HANDLERCopy Qusec of QSYSINC-QCBLLESRC Copy Qpdsrvpg of QSYSINC-QCBLLESRC ERRHDL2 ProgramPROGRAM-ID. ERRHDL2 CBL-PGM-NAME Procedure Division Using CBL-EXCEPTION-IDMESSAGE-LENGTH SYS-OPTION PICSoftware 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 Qclsrc ABC ABCPGMMRM2ABCABCPGMMRI1ABC ABCPGMMRI2ABC134 Appendix B. Original Examples in Additional BLanguages-135 PROGRAM-ID. Sftwprdex Environment Division Program for Packaging a Product-ILE Cobol ExampleQszcrtpd QszpkgpoAPI-NAME PIC Copy Qszcrtpd of QSYSINC-QLBLSRCCopy Qszcrtpl of QSYSINC-QLBLSRC Copy Qszpkgpo of QSYSINC-QLBLSRCPID13 PIC NumkeyKEY13 LEN13Prddfn Perform PrdlodPerform Cobjd Perform PkgpoPrdlod Call Qszcrtpd Using PROD-NAME, QSZ-PRD-INF, QSZ-PRD-OPTMove Spaces to Reserved of QSZ-LNG-LOD Move Qszcrtpd to API-NAME, Perform ErrcodMove 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 Product-OPM RPG Example on page A-3 fo Original 144Packaging a Refer To Program ForDapiname Dfirsterr Dcobji NumkeyPID13 KEY12 LID12 KEY5Parm Prodname Qszpi Qszpo 146Eval Qszamr = \NO Qszridt = \PHONE Eval Qszadn = \NODYNNAMEval Qszlt = \CODE Qszlid = \CODEDFT Parm QszllParm Pubaut Qusec Exsr Errcod Endif Endsr148 Cobjd Begsr Parm QszalParm Qszpe Nbrpe Qszfl 150 Qusei \\CTDATA Objinfo Open Qprint Eval Firsterr = EndifEndsr Oqprint Badnews ApinameSPACE-INIT PIC Space-ExamplesSpace-ILE Cobol Example FILE-USED PICEXT-ATTR PIC Overrides PICSystem PIC FORMAT-1 PICDisplay API-NAME Call Qusptrus Using SPACE-NAME, SPACE-POINTER, QUS-ECAPI-ERROR-FOUND SET Address of QDB-QDBFH to SPACE-POINTERTo a User Space-ILE RPG Example 156 Qdbfwtfi QdbfhuplQdbfhmxm \NOMAXQDBRSV11 QdbfhfrtFrcratio QdbhmnumQdbfhcrt Qdbfvrm\QDBQAAF2 QDBBITS31 QDBRSV17160 QDBRSV24 QDBRSV23Qdbffigl QdbfmxrlQdbpfof Fcfo Fifo LifoQdbfhrls QDBRSV27Dsystem INZ\LCL DFORMAT1 INZ\INT Dchgattr Nbrattr QDBRSV28Dspcname Dfilename Dfmtname Dfileused Dlibname Dspcsize Dspcptr Dformat DoverridesQusbavl Ifgt Movel Quscusat Apinam Exsr Apierr END Call Quscrtus Parm Spcname \BLANKS ExtattrSpcsize Parm Spcinit \CHANGE Spcaut Qdbrtvfd Spctext Call Quscusat Parm Libname Spcname Chgattr QusecData Queue-ILE Cobol Example Data Queue-ExamplesCrtlib FIRST-ERROR PICPROGRAM-ID. Dqueuex Environment Division Copy Qcapcmd of QSYSINC-QLBLSRCMSG-BACK PIC WAIT-TIMEMSG PIC Display MSG-BACK ERROR-FOUNDMove 1 to FIRST-ERROR Data Queue-OPM RPG Example 170 Qcabc Exsr ExccmdMoveldltlib Cmdstr Exsr Exccmd Seton Retrn172 DataParm Exampleq Eval Qcamk = \BLANKS Qcaerved = \LOVALEval Cmdstr = Crtlib Lenstr = %SIZECRTLIB Exsr Execcmd Eval Cmdstr = Crtdq Lenstr = %SIZECRTDQ Exsr Execcmd174 Theread UNIX-Type APIs-Examples176System API Programming V4R1 Appendix B. Original Examples in Additional BLanguages-177 Using the Integrated File System-ILE Cobol Example Curdir PRT-TEXT PIC PROGRAM-ID. IFS Environment DivisionPRT-TEXT PIC User PICOflag PIC Procedure DIVISION. MAIN-LINE Open Output ListingTestfile Value LOW-VALUEIf RETURN-INT Perform ERROR-FOUNDTo LIST-LINE Write LIST-LINE Giving 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 Other countries+1+507+253-5192 How satisfiedPlease tell us how we can improve this manual To return this formSC41-5800-00 Reader Comments-Wed Like to Hear from YouPage IBM IBM

IBM Version 4 manual

Models: Version 4