Comments on: cl

By: gilly400

gilly400 — Wed, 24 Dec 2008 13:01:17 +0000

Hi,

Yes, all of my previous posting can be done in CL – no need for any other programming languages.

Regards,

Martin Gilbert.

By: Anderson123

Anderson123 — Wed, 24 Dec 2008 12:33:14 +0000

can this be developed using a cl code…because iam in the middle of a cl code where i have already built the member name.

By: gilly400

gilly400 — Wed, 24 Dec 2008 11:32:21 +0000

Hi,

You’ll need to get a list of members to process. You can do this by using DSPFD to an output file, selecting the member list as the type of information. Then you can read your output file into your CL program and check whether the date is older than 3 months, if it is, then you can remove that particular member with RMVM.

First establish your cutoff date – retrieve the current system date into a variable, substring the variable into separate year, month and day variables. subtract 3 from your month field, if your month field is less than 1, add 12 to your month and subtract 1 from your year. Now concatenate the year, month and date back together to give you your cutoff date. Concatenate your member name for the cutoff date (‘AA’ + cutoff date).

Read your DSPFD output file, if the member name in the file is less than your member name with the cutoff date then you can remove it.

Regards,

Martin Gilbert.

By: Anderson123

Anderson123 — Wed, 24 Dec 2008 10:40:55 +0000

the below code was a bad logic….the count will always remain1 during every run…just so confused

By: Anderson123

Anderson123 — Wed, 24 Dec 2008 10:01:15 +0000

I tried doing thsi..not sure if this is right approach

ADDPFM FILE(SAAPH) MBR(&MEMNAM)
CHGVAR VAR(&COUNT) VALUE(&COUNT+1)
IF COND(&COUNT *GT 90) THEN(DO)
IF COND(&COUNT *GT 90) THEN(DO)
CHGVAR VAR(&COUNT) VALUE(0)
RMVM FILE(SAAPAH) MBR(*ALL) —————————here i need to retain the member generated currently,,,,

how do i do that……….is there any other logic