CL command at RPGLE

24 November 2008

reminder again…. :D

..::: cuplikan code supaya bisa pake CL command di RPGLE :::..

D*  ini bagian deklarasi dan inisialisasi
D CMDX            S            500    INZ(*blank) VARYING
D CMDLINE         PR                  Extpgm(‘QCMDEXC’)
D STRING                      1000    Const
D                                     Options(*Varsize)
D LEN                           15P 5 Const

C* ini bagian CL command yang dipanggilnya. exp : “RMVLNK”
/FREE
CMDX = ‘RMVLNK SFILNM’;
CALLP CMDLINE(CMDX:%LEN(CMDX));
/END-FREE
C*

*sory ga dirapihin… :p

Ditulis oleh eden firmansyah
Disimpan di RPG/AS 400, blackbeatman ·Tag: , , , ,
2 Komentar »

2 Tanggapan ke “CL command at RPGLE”

  1. kamil_aguz berkata
    15 Desember 2008 pada 11:46

    gw pernah define cmd nya itu sepanjang 255,,, tp error… ga mau gw compile,,, katanya kepanjangan… alhasil gw define 60 dehh…. hehehe…..

    Balas
  2. eden firmansyah berkata
    18 Desember 2008 pada 23:12

    wah cuy…
    tiap2 koding, cmdx itu selalu gw declare 500 tuh ga ada masalah.
    command kan bisa panjang. apalagi klo commandnya itu openQueryFile

    Balas

Tinggalkan Balasan