2008-11-28

What is the purpose of indicators in RPG?

It is generally used to indicate the result of an operation or to condition (or control) the processing of an operation. Indicators are defined either by an entry on the specification or by the RPG IV program itself. The positions on the specification in which you define an indicator determine how the indicator is used. An indicator that has been defined can then be used to condition calculation and output operations. An indicator can be control level indicator, resulting, record identifying etc.

fungsi indicator AS400

http://www.time2ask.com

2008-11-27

Mafia Magic Weapon Mobile Fire


Italy - Mobile certainly not worthy of suspicion and almost all people now mudik carried downstream. This seems the responses in the Italian Mafia kingpin make pistol shaped exactly like a mobile phone to fool the police.

DetikINET quoted from the Telegraph, on Thursday (27/11/2008), the Italian police seize weapons in the shape of a mobile phone catch against geng local Mafia.

Glance, this looks like mobile phone, in general, complete with screen, keypad and key antenna. However, in fact, the phone is the pistol that can be filled with four 22 caliber cartridge that is hidden behind the screen palsunya.

So that they can be used as a pistol, mobile phone keypad abal-abal the movable enough alone. Meanwhile, for shooting, simply pressed a button on the phone is the trigger.

"This is the first time such a mobile phone and be more shows canggihnya criminal syndicates," said information from Italian police.

When be, a mobile phone cartridge pistol has been fully prepared and used to attack off. Penggerebekan geng Mafia was the police in the area of Naples, southern Italy.

http://www.detikinet.com

THE FEMALE HELL

Praise be to Allah, the Awwal, which is not something before him, and the End, which is not something after him, and the Dzáhir, which is not something besides him, and the Báthin, which is not something other than Him. The then from that. Imam 'Ali ibn Abi Talib' alayhissalam have said (which means): "I Fathimah and entrance (to home) Messenger s'aw (shallalláhu 'alayhi wa álihi wa sallam) and kudapati he is crying hard, I asked him: O Messenger of Allah What has caused you crying? He said: O 'Ali, on the evening I isrá-in-delivered to the heavens, I see women of my Ummah is in a hard punishment. I am very sad to see the situation they are crying because I severity of the punishment of them. "


After s'aw Messenger, explains kinds of punishment that untouched part of women in natural Asybáh (picture of life in the Hereafter later). But Al-Zahra Fáthimah 'alayhassalám ask ayahandanya; Kekasihku and Microwave eyes, sad to me, and act their way of life until He torment them like this? "

The following is an explanation of reasons for the act that most women do with some kinds of punishment that they will be untouched. Messenger s'aw, said (which means):

I see women with hair hanging above the fire to boil the brain to him. The impunity of these are women who do not cover the hair of men (not muhrimnya).

I see women hanging on the tongue and water to a boil dikucurkan in tenggorrokannya. He is the women who hurt her husband.

I see a woman hanging with the second teteknya on fire. He is the women who did not want her husband digauli.

I see women eating the meat themselves and the fire started underneath. He is the women who primp (primp) to the people (other than her husband).

I see women who both legs tied together (in the same) with both hands while the snake-snake and scorpion-scorpion released its top. He is women who do not PURIFICATION, mutanajis clothing, not bathing impure, do not bathe and menstrual menyepelekan prayers.

I see women who are deaf, blind and dumb placed in the box to fire otaknya flows from the second hole and nose member body cuts because of leprosy. He is women who bear children from the act of adultery, and his son to be her husband.

I see women hanging on with both feet in the furnace fire. He is the women who leave their houses without the permission of her husband.

I see women who are daginnya-piece with a scissors-scissors from the Fire from the front and rear of the. He is the women who expose themselves to the men folk.

I see that women face and burned his hands while he ate ususnya own. He is women who become mucikari.

I see a woman as head of a pig's head and body body donkey, he was tortured with a punishment. He is a liar and women like weasel-ngadu.

I see that women face, such as dogs, fire into the duburnya until the fire is out of his mouth, and a number of angels memukuli the head and body with a hooked rods from the fire. He is troubadour women (pengibur), peratap, and penghasud. Then the Messenger of Allah s'aw said: "Woe to women who make angry husband, and successful women who are willing to him her husband."

2008-11-25

Tutorial Membuat Sub File di AS400

Sebelumny kita harus mengetahui, apa itu sub file. Sub File digunakan untuk menampilkan data banyak
berbentuk table. berikut contoh gambar Sub File :

X SCRNO CSNO NAMA ACNO STATUS
X 0000000001 0000000 YADI 0000000000 0
0000000011 0000000 DENI 0000000000 0
X 0000000007 0000000 Salemet 0000000000 0


untuk membuat Sub File ada beberapa File yang harus di siapkan, diantaranya adalah :
1. Buat File *.pf <-- sebagai data base yang akan di akses 2. Buat File *.dspf <-- yang akan menangani masalah tampilan. 3. Buat File *.rpg/rpgle <-- sebagai program utama 1. File DSPF
0000.10 A*%%TS SD 20081114 144536 MULYADI REL-V5R3M0 5722-WDS
0000.20 A* 90/05/03 12:22:01 SYSTEK REL-R02M00 5728-PW1
0000.30 A*%%EC
0000.40 A DSPSIZ(24 80 *DS3)
0000.50 A REF(*LIBL/TRLBTOT)
0000.60 A CHGINPDFT(CS)
0000.70 A PRINT(*LIBL/QSYSPRT)
0000.80 A R SFLREC SFL
0000.90 A*%%TS SD 20081114 144536 MULYADI REL-V5R3M0 5722-WDS
0001.00 A TEXT('SUB FILE FORMAT KEYWORD')
0001.10 A CRDLIM 15S 0H
0001.20 A PILIH 1A I 8 9VALUES('X' ' ')
0001.30 A NAME R O 8 14REFFLD(SUBFIL/NAME LIBY/CUSMSTL)
0001.40 A ADDR R O 8 26REFFLD(SUBFIL/ADDR LIBY/CUSMSTL)
0001.50 A CUST R O 8 37REFFLD(SUBFIL/CUST LIBY/CUSMSTL)
0001.60 A R SFLCTL SFLCTL(SFLREC)
0001.70 A*%%TS SD 20081114 143714 MULYADI REL-V5R3M0 5722-WDS
0001.80 A SFLSIZ(0100)
0001.90 A SFLPAG(0010)
0002.00 A CA03(03 'EXIT_PROGRAM')
0002.10 A OVERLAY
0002.20 A 20N40 SFLDSP
0002.30 A N40 SFLDSPCTL
0002.40 A 40 SFLCLR
0002.50 A N39 SFLEND
0002.60 A RECNUM 1S 0H
0002.70 A 20 6 4' PILIH NAMA -
0002.80 A ALAMAT '
0002.90 A COLOR(WHT)
0003.00 A CTR 1S 0H
0003.10 A 5 3'==================================-
0003.20 A ======================='
0003.30 A 7 3'==================================-
0003.40 A ======================='
0003.50 A 4 3'MASUKAN NAMA'
0003.60 A SNAMA 10A I 4 19
0003.70 A 1 3'PROGRAM LATIHAN YADI'
0003.80 A R FUNCKY
0003.90 A*%%TS SD 20081103 164843 MULYADI REL-V5R3M0 5722-WDS
0004.00 A 21 4'F3-EXIT'
0004.10 A 20 4'==================================-
0004.20 A ====================== '
0004.30 A 20 21 44'pageup/pagedown'
0004.40 A COLOR(RED)
0004.50 A R NEWPAGE
0004.60 A*%%TS SD 20081103 165309 MULYADI REL-V5R3M0 5722-WDS
0004.70 A 4 7'NAMA TERPILIH :'
0004.80 A 5 7'ALAMAT TERPILIH :'
0004.90 A NAMAMU 10A O 4 29
0005.00 A CITYMU 10A O 5 29
0005.10 A 3 3'|'
0005.20 A 4 3'|'
0005.30 A 5 3'|'
0005.40 A 6 3'|'
0005.50 A 7 4'-----------------------------------
0005.60 A ---'
0005.70 A 3 41'|'
0005.80 A 4 41'|'
0005.90 A 5 41'|'
0006.00 A 6 41'|'
0006.10 A 2 4'-----------------------------------
0006.20 A ---'
****************** End of data ******************************************************

2. File *.pf
*************** Beginning of data **************************************************
0001.00 A R EMPLTES
0003.00 A DNAME 30A
0004.00 A DKATEGORI 1A
0005.00 A DLOCATION 28A
0006.00 A DUSRID 13A
0007.00 A DAGE 2S
****************** End of data *****************************************************

3. File rpgle
0000.01 F**************************************************************************
0000.02 F* VALIDASI DATA NASABAH U SWASYS
0000.03 F* YADI MULYADI
0000.04 F**************************************************************************
0000.05 F*
0001.03 FCUSMSTL IF E K DISK
0001.04 FCLDUSRC CF E WORKSTN
0001.05 F RECNUMKSFILE SFLREC
0001.06 C*
0001.07 C* DECLARE KEY FOR SEARCHING
0001.08 C NMKEY KLIST
0001.09 C KFLD SNAMA
0001.12 C*
0001.13 C *IN03 DOWEQ'0'
0001.14 C* SNAMA DSPLY
0001.15 C* *IN30 DSPLY
0001.16 C* *IN20 DSPLY
0001.17 C WRITEFUNCKY
0001.19 C EXFMTSFLCTL
0001.20 C *IN03 IFEQ '0'
0001.21 C *IN20 IFEQ '0'
0001.24 C EXSR SFLFIL
0001.25 C ELSE
0001.26 C *IN30 IFEQ '1'
0001.27 C SNAMA ANDNE*BLANK
0001.30 C 'NKEY' DSPLY
0001.31 C ELSE
0001.32 C EXSR CEK
0001.34 C ENDIF
0001.35 C ENDIF
0001.36 C ENDIF
0001.37 C ENDDO
0001.38 C SNAMA DSPLY
0001.39 C *IN03 DSPLY
0001.40 C *IN20 DSPLY
0001.41 C *IN30 DSPLY
0001.42 C SETON LR
0001.43 C*-------------------------------------------------------------------------
0001.44 C* SUB FILE SFLFIL
0001.45 C*-------------------------------------------------------------------------
0001.46 C SFLFIL BEGSR
0001.47 C NMKEY SETLLSUBFIL
0001.48 C *IN21 DOWEQ'0'
0001.49 C READ SUBFIL 71
0001.50 C *IN71 IFEQ '1'
0001.51 C MOVE '1' *IN21
0001.52 C ELSE
0001.53 C ADD 1 RECNUM
0001.54 C WRITESFLREC
0001.55 C END
0001.56 C ENDDO
0001.57 C RECNUM IFGT 0
0001.58 C SETON 20
0001.59 C ENDIF
0001.60 C ENDSR
0001.61 C*-------------------------------------------------------------------------
0001.62 C* SUB FILE SFLCLR
0001.63 C*-------------------------------------------------------------------------
0001.64 C SFLCLR BEGSR
0001.65 C MOVE '1' *IN40
0001.66 C WRITESFLCTL
0001.67 C MOVE '0' *IN40
0001.68 C MOVE '0' *IN20
0001.69 C MOVE '0' *IN21
0001.70 C Z-ADD*ZERO RECNUM
0001.71 C ENDSR
0001.61 C*-------------------------------------------------------------------------
0001.62 C* SUB FILE SFLCLR
0001.63 C*-------------------------------------------------------------------------
0001.64 C SFLCLR BEGSR
0001.65 C MOVE '1' *IN40
0001.66 C WRITESFLCTL
0001.67 C MOVE '0' *IN40
0001.68 C MOVE '0' *IN20
0001.69 C MOVE '0' *IN21
0001.70 C Z-ADD*ZERO RECNUM
0001.71 C ENDSR
0001.72 C*-------------------------------------------------------------------------
0002.00 C* SUB FILE CEK
0003.00 C*------------------------------------------------------------------------
0004.00 C CEK BEGSR
0004.01 C* Z-ADDRECNUM SAVRRN
0004.02 C READCSFLREC 30
0004.07 C*
0004.12 C *IN30 DOWNE'1'
0004.17 C PILIH IFEQ 'X'
0004.18 C MOVE NAME NAMAMU
0004.19 C MOVE CITY CITYMU
0004.20 C EXFMTNEWPAGE
0004.21 C UPDATSFLREC
0004.22 C ENDIF
0004.23 C READCSFLREC 30
0004.24 C ENDDO
0004.25 C SNAMA IFEQ *BLANK
0004.26 C 'NKEY' DSPLY
0004.27 C ENDIF
0004.28 C EXSR SFLCLR
0005.00 C ENDSR
0006.00 C*------------------------------------------------------------------------
****************** End of data ************************************************

jalankan dengan memasukan perintah sebagai berikut :
call namaLibrary/namaprogram
misal
Call ciamis/yadiProgram

2008-11-24

Super Qurban


Superqurban

Superqurban is optimizing the implementation of the program
qurban worship with the process and resemble meat
qurban a corned. This step is taken to ensure the distribution of meat to qurban remote areas that need with more
resistance older.


From she pleased, he said, "First we used corn (conservative) udhhiyyah meat (qurban) so we take it to Medina, suddenly saw the Prophet. said "Do not consume meat udhiyyah (qurban) only time in three days. " (Agnostic HR.-Bukhari)




call me @
LKMS MOZAIK UPN Phone
DAGO (022) 92939070
Yeni : 081321494965
Nina : 08132196221

OR

chat with me


Or by Bank recening
BCA, No Rek. 094 301 6001
a.n Yayasan Ummul Quro
Bank Mandiri, No Rek. 132000 481 974 5
a.n Yayasan Rumah Zakat Indonesia
Bank BNI Syariah, No Rek. 0092495530
a.n Dompet Sosial Ummul
Bank Permata Syariah, No Rek 377 100 1555
a.n Yayasan Rumah Zakat Indonesia
Bank Niaga Syariah, No Rek 5200 100 131 005
a.n Yayasan Rumah Zakat Indonesia
Bank Syariah Mandiri, No Rek. 125 00155 55
a.n Yayasan Rumah Zakat Indonesia
Bank Muamalat Indonesia, No Rek 101 00361 15
a.n RZI QQ SBU Qurban


2008-11-20

Mengaktifkan Feed Burner Di Blog

To introduce blog and writing on the blog, we not only use Google Webmaster Tools such as I have written in previous articles, there is also the use FeedBurner as a means of our campaign blog, although we have not necessarily written immediately recognized by search engines, there is no we try and try, because this machine is also sometimes take time to recognize them. But this is often done by people who have been successful in getting a drag people in (the quality of blogs should also be the main focus), so what I write here is to follow suggestions from the senior-senior earlier. And this is also not clear from the use of keywords (keyword) that we use. If a keyword is incidental many other blogs that use the competition occurred in determining the top position on search engines such as Google.

And here I try to explain step by step in making regitrasi in Feed burner:

Step 1: We must first enter the site from FeedBurner, and here we have to do regitrasi. But for users who already have lived Sign in here alone.

Step 2: Here we can directly click on the next course.

Step 3: Enter the full URL click Next.

Step 4: Then click the button Activate feed.

Step 5: After that click Next.

Step 6: Finally click Next again.

Once the above steps have been done that is needed is Optimization, we live Click Optimize tab. This tab contains the features I can use to optimize the performance of our feed. Generally, we only need to activate SmartFeed, which features to make it compatible with the feed of various feed reader, click the button and then select Activate.

After the finish we need to optimize publication, select the tab publicize. This tab contains fitur2 to mempulikasikan feed us to the outside world. I first will enable us to do is FeedCount,'s useful features to showcase the number of people subscribe to feeds us. Click on the menu FeedCount which is located beside the left. Then press Activate.

From the menu on the left, press the button PingShot. Check on the two existing service ping (Ping-O-Matic and NewsGator). Next, on the dropdown menu, add 5 other pinging services as you. I usually add is my Feedster, IceRocket, Google Blog Search (this shows!), Weblogs.Com, and FeedBlitz. Finally, press Activate to activate.

Email feature is the last Subscribtion, where to enable this feature, loyal to your blog visitors can always follow the latest updates via email. Enabling this feature is an alternative for visitors I love more than email program2 feed reader. Click Email Subscribtion from the menu on the left. On the next screen, select FeedBurner just as your service provider, and press Activate to activate.

Welcome to try!

"source: http://jnet99.wordpress.com"

Blogger Calendar Widget

"can view at http://www.google.co.id/search?q=calendar%2Bblog%2Bwidget&ie=utf-8&oe=utf-8&aq=t&rls=org.mozilla:en-US:official&client=firefox-a"