AS400 questions and answers refer

this is really good to learn extra about as400

http://www.aired.in/2009/12/ibm-as-400-interview-questions-and.html

RPG opcode screen

Op-Code -- Purpose
ACQ -- Acquire device
BEGSR -- Begin Subroutine
CALLP -- Call Prototyped Procedure or Program
CHAIN -- Retrieve Record by key
CLEAR -- Clear
CLOSE -- Close File
COMMIT -- Commit Database changes
DEALLOC -- Release Dynamically Allocated Storage
DELETE -- Delete Record
DOU -- Do Until
DOW -- Do While
DSPLY -- Display message
DUMP -- Dump Program
ELSE -- Else
ELSEIF -- Else If
ENDyy -- End a Structured Group (where yy = DO, FOR, IF, MON, SL, or SR)
EVAL -- Evaluate expression
EVALR -- Evaluate expression and right adjust result
EXCEPT -- Perform Exception Output
EXFMT -- Write/Then Read Format from display
EXSR -- Execute Subroutine
FEOD -- Force End of Data
FOR -- For
FORCE -- Force specified file to be read on next Cycle
IF -- If
IN -- Retrieve a Data Area
ITER -- Iterate
LEAVE -- Leave a Do/For Group
LEAVESR -- Leave a Subroutine
MONITOR -- Begin a Monitor Group
NEXT -- Next
ON-ERROR -- Specify errors to handle within MONITOR group
OPEN -- Open File for Processing
OTHER -- Start of default processing for SELECT group
OUT -- Write Data Area
POST -- Post
READ -- Read a record
READC -- Read next changed record
READE -- Read next record with equal Key
READP -- Read prior record
READPE -- Read prior record with equal Key
REL -- Release
RESET -- Reset
RETURN -- Return to Caller
ROLBK -- Roll Back uncommitted database changes
SELECT -- Begin a Select Group
SETGT -- Position database to record with key greater than specified key
SETLL -- Position database to record with key not greater than specified key
SORTA -- Sort an Array
TEST -- Test Date/Time/Timestamp
UNLOCK -- Unlock a Data Area or Release a Record
UPDATE -- Modify Existing Record
WHEN -- Condition test within SELECT group
WRITE -- Write New Record

RPGLE Built in function reference

RPGLE Dreamers built -in functions:
===================================
%ABS - Absolute Value of Expression

%ADDR - Get Address of Variable

%ALLOC - Allocate Storage

%CHAR - Convert to Character Data

%CHECK - Check Characters

%CHECKR - Check Reverse

%DATE - Convert to Date

%DAYS - Number of Days

%DEC - Convert to Packed Decimal Format

%DECH - Convert to Packed Decimal Format with Half Adjust

%DECPOS - Get Number of Decimal Positions

%DIFF - Difference Between Two Date, Time, or Timestamp Values

%DIV - Return Integer Portion of Quotient

%EDITC - Edit Value Using an Editcode

%EDITFLT - Convert to Float External Representation

%EDITW - Edit Value Using an Editword

%ELEM - Get Number of Elements

%EOF - Return End or Beginning of File Condition

%EQUAL - Return Exact Match Condition

%ERROR - Return Error Condition

%FLOAT - Convert to Floating Format

%FOUND - Return Found Condition

%GRAPH - Convert to Graphic Value

%HOURS - Number of Hours

%INT - Convert to Integer Format

%INTH - Convert to Integer Format with Half Adjust

%LEN - Get or Set Length

%LOOKUPxx - Look Up an Array Element

%MINUTES - Number of Minutes

%MONTHS - Number of Months

%MSECONDS - Number of Microseconds

%NULLIND - Query or Set Null Indicator

%OCCUR - Set/Get Occurrence of a Data Structure

%OPEN - Return File Open Condition

%PADDR - Get Procedure Address

%PARMS - Return Number of Parameters

%REALLOC - Reallocate Storage

%REM - Return Integer Remainder

%REPLACE - Replace Character String

%SCAN - Scan for Characters

%SECONDS - Number of Seconds

%SHTDN - Shut Down

%SIZE - Get Size in Bytes

%SQRT - Square Root of Expression

%STATUS - Return File or Program Status

%STR - Get or Store Null-Terminated String

%SUBDT - Extract a Portion of a Date, Time, or Timestamp

%SUBST - Get Substring

%THIS - Return Class Instance for Native Method

%TIME - Convert to Time

%TIMESTAMP - Convert to Timestamp

%TLOOKUPxx - Look Up a Table Element

%TRIM - Trim Blanks at Edges

%TRIML - Trim Leading Blanks

%TRIMR - Trim Trailing Blanks

%UCS2 - Convert to UCS-2 Value

%UNS - Convert to Unsigned Format

%UNSH - Convert to Unsigned Format with Half Adjust

%XFOOT - Sum Array Expression Elements

%XLATE - Translate

%YEARS - Number of Years

WHATS THE HELL IS THIS 'HAL' ?

Horrible days for me because while booting Ubuntu throws an error 'HAL not initialized'. I dont what the hell is that. But had a small google on that then understood it something very important 'Hardware Abstraction layer'

below gives aleast what that means http://packages.ubuntu.com/dapper/hal-device-manager

see the wiki http://en.wikipedia.org/wiki/Hardware_abstraction_layer


But enjoy learning from Linux

Creating DDS for Physical File (PF)

Physical file creation in AS400 (DDS)

Physical file is like a Table in the oracle database . Using select statments and RUNQRY its possible to access the table


step1: wrkmbrpdm ( in command line )



F6 option is for creating new DDS,RPG,CL etc

The source file for DDS is QDDSSRC and library for me it is DAVNAV1

Source member is the name of the Physical file and source type is PF( Physical file )



Now we are entering into the DDS creation. We have to follow below sequence

1. File level entries
2. record level entries
3. Field level entries
4. Key field lvel entries

step1:
The Functions(F4 - Prompt )- UNIQUE have used for keyword is used to indicate that the value of the key field in each record in the file must be unique ( duplicate records are not allowed )

step2:

In record row give the Name type - R and also the corresponding optional text also can be mention in the function field

step3:
The fields (analogy columns) can be mentioned in next line

step4:

Key field level entries is the last preceeding with 'K'

The DDS can be saved by typing 'FILE' in the top and enter





Compiling the DDS is easy using the option 14-Compile and errors can viewed through the spool files using 'SA' corresponding to the PF in screen



Entry
Meaning
A
Character
P
Packed decimal
S
Zoned decimal
B
Binary
F
Floating point
H
Hexadecimal
L
Date
T
Time
Z
Timestamp

Notes:

strsql from command

insert into student values ('Naveen',1000,50) 1 rows inserted in STUDENT in DAVNAV1.

AS400 machine learning

Its very difficult for me to study these IBM (iSeries)machines

http://en.wikipedia.org/wiki/IBM_System_i, but slowly am getting some basic  findings .

Two weeks back I got access to one online AS400 machine through internet . So learning RPGLE ,CL and basic commands we can practice in my UBUNTU.

just telnet pub1.rzkh.de 

then can start WRKMBRPDM ( work with members)

JOB SATISFACTION

Let me  brief  this word 'job satisfaction'

100 percentage saturation in the word 'JOB' is achievable or not ?  I would say horribly unanswerable question. 

Most of the students( case of Me too ) reaching  MNC s and sells their brain to silly things ..simply silly things or keeps most of the time  their brain in switch off state.

Sometimes I feel salary matters, but someone like me coming from Electronics background and trying to expertise in MS excel or something , pains me why i have studied 4 years in Btech. What is the meaning of Btech ....

But of course I am sure that  there are solution to overcome this by selecting good career path and doing something effective or good .But I am not sure whether it is achievable for me. May this is because I like this idle state more than going for a risk.

If you are doing something with Full mind and getting preferable outcome and benefit , then its a state of satisfaction or saturation. ( This is my definition for satisfaction )

May I show you some cases of this :

1. Doing something with full mind and not getting enough outcome ( really discouraging feeling )

2. Not getting full mind to do thing,  may be because  the feeling of nothing gains from present work, can not expertise in this field or very poor idea on the present work etc

Sometimes I feel why  I can't find out the correct path .. what I know ? Nothing I know to do myself . But I have some in built abilities , may be those can not make much output as money .. but I would like to say those works I likes more .   

But I am hearing lot of advise like if we try to put  full mind and effort , it will produce more outcome and satisfaction .. try to expertise in the current working field. But I am not sure that is correct or not.

Job satisfaction rate  depends on individual, but much he utilize his brain and effort on his favorite area  even though  the outcome is less ..its somewhat manageable otherwise mind will not set anywhere .. that is what my experience 

I will never ever leave my interesting areas and always try to learn something new ... at least I will keep this as  my hobby  that may increase my mind satisfaction level.