Discount coupons/Best Deals/Offers - SAVEDIMES.COM

Hi Guys,

SaveDimes aim to provide you the latest and most rewarding deals and coupon codes across all the indian e-commerce site like Amazon, Flipkart, Snapdeal, Paytm, Jabong and many others, so that you can save your hard earned money and indulge yourself some more.
Shop through SaveDimes to save your money and get the best deals and coupon codes delivered to your inbox.

Always visit www.savedimes.com for offers and discount coupons.

• Why SaveDimes
• Free to Join
• Best portal for Deals, Coupons, Promo Codes, Offers, Discount, Cashback & Freebies
• Best Customer Service

Keyboard Setting in AS400 Emulator

For Setting the Edit Copy and Edit Paste
Click On -- Remap Keyboard Fucntion
Click on Ctrl
Then Click on "C"
In front of Base put Edit-Copy
and  In front of ctrl put Edit-Copy
At the time of Exit save it

Same its work for Edit- Paste

For Highlighting the Source Line in different Color.

Click On -- Remap Keyboard Fucntion

Click on F2 --

Bottom of the Page infront of Alt  Write ("alt 22")

Then all Come in Source

Press Alt + F2 on which you want to Highlight the commented Code.

Learning of Procedure and Prototype and AS400 Stuff

Hi Guys,

Please must follow the below link for learning of As400 Stuff and Hot topics like Procedure and Prototype

http://midwareservices.com/RPGIV/procedures.htm

Thanks and with Best Regards
Vidya Bhushan Thaur
AS400 Analyst

Use of QCMDEXC

By calling QCMDEXC application program interface we can execute a CL command with in an RPG Program.

I am just giving  you the one example of  QCMDEXC

****************************************************************************

D XCMD               S                  80

D XCMDL             S                  15 5
C                         Z-ADD           80          XCMDL           15 5
C                         EVAL             XCMD = 'OVRDBF FILE(ABCDEF) TOFILE(ABC) +
C                                                                                       OVRSCOPE(*JOB)'
C
C                          CALL            'QCMDEXC'                 50
C                          PARM           XCMD
C                          PARM           XCMDL
C                          SETON         LR
****************************************************************************

SQL-WITH-RPGLE

C**** SQL-WITH-RPGLE
(Source Member Type - SQLRPGLE)
(Object Type Type - RPGLE) *****
D DS
D CUSTINFO            1                    25
D CUSTNUM            1                      4  0
D CUSTNAME          5                    24
C                               EVAL                 CUSTNUM = 1000
C/EXEC SQL
C+ SELECT CUSNO , CUSNAME
C+ INTO :CUSTNUM , :CUSTNAME
C+ FROM VBT/CLT
C+ WHERE CUSNO = :CUSTNUM
C/END-EXEC
C*****
C                                CUSTINFO DSPLY
C                               *CUSTNAME DSPLY
C*****
C                                 RETURN
C****

Define LDA Concept

   *FOR READING AND WRITING THE DATA AREA IN AS400/RPG.
D* LOCAL DATA AREA DATA STRUCTURE
D LDADS                  DS
D LDB                 4                  5
D LFNAM         81                90
D LFTRN         102             102
D LETP            105             105
D LPRD           108             108
************************************************************************************
C                 *DTAARA     DEFINE         *LDA             LDADS
C                                        IN                   LDADS                                                      READ LDA
C*Change Lda variable using program variable
C                                        OUT               LDADS                                                      WRITE LDA

Important Links For AS400 Topics