which command to use for checking that if data area already exist in Library.
Announcement
Collapse
No announcement yet.
data area command
Collapse
X
-
Re: data area command
if needed in RPG you can mod and update this
Code:H Option(*SrcStmt: *NoDebugIO) DftActGRP(*No) ‚* ‚* Program Info ‚* d SDS d @PGM 001 010 d @PARMS 037 039 0 d @MSGID 40 46 d @MSGDTA 91 170 d @JOB 244 253 d @USER 254 263 d @JOB# 264 269 0 ‚* ‚* Field Definitions. ‚* d ISOdate S D ‚* ‚* Check name unique when add save processed (F6) ‚* d CheckObject S 19 Dim(9999) ‚* ‚* Some working environment ‚* ~~~~~~~~~~~~~~~~~~~~~~~~ D ObjNam s 10a D ObjLib s 10a D ObjTyp s 10a **-- Api error data structure: ---------------------------------- D ApiError Ds D AeBytPro 10i 0 Inz( %Size( ApiError )) D AeBytAvl 10i 0 Inz D AeMsgId 7a D 1a D AeMsgDta 128a **-- Object description structure OBJD0200: --------------------- D RoData Ds D RoBytRtn 10i 0 D RoBytAvl 10i 0 D RoObjNam 10a D RoObjLib 10a D RoObjTypRt 10a D RoObjLibRt 10a D RoObjASP 10i 0 D RoObjOwn 10a D RoObjDmn 2a D RoObjCrtDts 13a D RoObjChgDts 13a D RoExtAtr 10a D RoTxtDsc 50a D RoSrcF 10a D RoSrcLib 10a D RoSrcMbr 10a **-- Retrieve object description: ------------------------------- D RtvObjD Pr ExtPgm( 'QUSROBJD' ) D RoRcvVar 32767a Options( *VarSize ) D RoRcvVarLen 10i 0 Const D RoFmtNam 8a Const D RoObjNamQ 20a Const D RoObjTyp 10a Const D RoError 32767a Options( *VarSize ) ‚* dTheData DS ‚* ‚* Bytes Return ‚* d QUSBR05 1 4B 0 ‚* ‚* Bytes Avail ‚* d QUSBA05 5 8B 0 ‚* ‚* Job Name ‚* d QUSJN08 9 18 ‚* ‚* User Name ‚* d QUSUN07 19 28 ‚* ‚* Job Number ‚* d QUSJNBR07 29 34 ‚* ‚* Int Job ID ‚* d QUSIJID05 35 50 ‚* ‚* Job Status ‚* d QUSJS14 51 60 ‚* ‚* Job Type ‚* d QUSJT08 61 61 ‚* ‚* Job Subtype ‚* d QUSJS15 62 62 ‚* ‚* Job Switch ‚* d QUSJS16 63 70 ‚* ‚* End Status ‚* d QUSES00 71 71 ‚* ‚* Subsys Name ‚* d QUSSN00 72 81 ‚* ‚* Subsys Lib ‚* d QUSSL06 82 91 ‚* ‚* Curr Usrprf Name ‚* d QUSCUN 92 101 ‚* ‚* Dbcs Enabled ‚* d QUSDE 102 102 ‚* ‚* Exit Key ‚* d QUSEK 103 103 ‚* ‚* Cancel Key ‚* d QUSCK00 104 104 ‚* ‚* Product Return Code ‚* d QUSPRC 105 108B 0 ‚* ‚* User Return Code ‚* d QUSURC 109 112B 0 ‚* ‚* Program Return Code ‚* d QUSPGMRC 113 116B 0 ‚* ‚* Special Environment ‚* d QUSSE02 117 126 ‚* ‚* Device Name ‚* d QUSDN 127 136 ‚* ‚* Group Profile Name ‚* d QUSGPN 137 146 d QUSGRP 10 DIM(00015) d QUSGN00 10 OVERLAY(QUSGRP:00001) ‚* ‚* Job User ID ‚* d QUSJUID 297 306 ‚* ‚* Job User ID Setting ‚* d QUSJUIDS 307 307 ‚* ‚* Make sure that the tape drive exists. jamie ‚* c Eval ObjNam = %Trim(@USER) c Eval ObjLib = '*LIBL' c Eval ObjTyp = '*USRPRF' ‚* c CallP rtvObjD( RoData c : %Size( RoData ) c : 'OBJD0200' c : ObjNam + ObjLib c : ObjTyp c : ApiError c ) ‚* c eval *INLR = *On ‚*----------------------------------------------- ‚* *INZSR - Initial one time run subroutine ‚*----------------------------------------------- c *INZSR begsr c endsr ‚*-----------------------------------------------
All my answers were extracted from the "Big Dummy's Guide to the As400"
and I take no responsibility for any of them.
www.code400.com
Comment
Comment