I have been trying to automate OFFTRN upload option in MAPICS IM Module (IM,
3, 2). But there is no success.
Pasted below is the program (MSM001C) I wrote to automate it. I
want to upload the data in file OFFTRN064 (library OFFLINES) to
MAPICS environment 'IS' as a suspended batch. I have introduced an option to
call my program from MAPICS, at AMIM30 menu.
I used
http://archive.midrange.com/mapics-l/200511/msg00018.html as a guide
to write the LDA populations by mapping with AMFLIBS/JOBACT record just
after an actual IM, 3, 2 option from MAPICS.
I'm not getting the Suspended batch created in MAPICS.
Will anyone be in a position to help me to reason out why it is not creating
the batch? If necessary I can fwd the jog log I'm getting when I take the
said option.
Also if you have any idea about how to get the batch in CLOSE mode, pls let
me know.
Thank you very much in advance.
Shuhail
==================================================================
My Program MSM001C:
PGM
DCL VAR(&ENV) TYPE(*CHAR) LEN(2) VALUE('IS')
DCL VAR(&FNAM) TYPE(*CHAR) LEN(10) VALUE('OFFTRN064')
DCL VAR(&FLOC) TYPE(*CHAR) LEN(1) VALUE('2')
DCL VAR(&DEV) TYPE(*CHAR) LEN(10) VALUE('OFFLINES')
DCL VAR(&DEL) TYPE(*CHAR) LEN(1) VALUE('N')
DCL VAR(&WKSID) TYPE(*CHAR) LEN(10)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&SYSNAM) TYPE(*CHAR) LEN(8)
DCL VAR(&LDA) TYPE(*CHAR) LEN(1024)
RTVNETA SYSNAME(&SYSNAM)
RTVJOBA JOB(&WKSID) USER(&USER)
CHGVAR VAR(%SUBSTRING(&LDA 1 001)) VALUE('2')
CHGVAR VAR(%SUBSTRING(&LDA 110 006)) VALUE('AMIPEA')
CHGVAR VAR(%SUBSTRING(&LDA 201 003)) VALUE('YY1')
CHGVAR VAR(%SUBSTRING(&LDA 204 002)) VALUE(&ENV)
CHGVAR VAR(%SUBSTRING(&LDA 209 004)) VALUE('3002')
CHGVAR VAR(%SUBSTRING(&LDA 217 003)) VALUE('1M1')
CHGVAR VAR(%SUBSTRING(&LDA 230 001)) VALUE('M')
CHGVAR VAR(%SUBSTRING(&LDA 234 001)) VALUE('L')
CHGVAR VAR(%SUBSTRING(&LDA 235 001)) VALUE('L')
CHGVAR VAR(%SUBSTRING(&LDA 245 005)) VALUE('I/:$.')
CHGVAR VAR(%SUBSTRING(&LDA 251 001)) VALUE('û')
CHGVAR VAR(%SUBSTRING(&LDA 255 002)) VALUE(&ENV)
CHGVAR VAR(%SUBSTRING(&LDA 257 002)) VALUE('00')
CHGVAR VAR(%SUBSTRING(&LDA 259 010)) VALUE(&WKSID)
CHGVAR VAR(%SUBSTRING(&LDA 269 001)) VALUE('0')
CHGVAR VAR(%SUBSTRING(&LDA 273 001)) VALUE('0')
CHGVAR VAR(%SUBSTRING(&LDA 276 001)) VALUE('1')
CHGVAR VAR(%SUBSTRING(&LDA 277 010)) VALUE(&USER)
CHGVAR VAR(%SUBSTRING(&LDA 287 010)) VALUE(&WKSID)
CHGVAR VAR(%SUBSTRING(&LDA 368 002)) VALUE('YN')
CHGVAR VAR(%SUBSTRING(&LDA 450 004)) VALUE('EXIT')
CHGVAR VAR(%SUBSTRING(&LDA 462 009)) VALUE('NAMIM3002')
CHGVAR VAR(%SUBSTRING(&LDA 493 008)) VALUE(&SYSNAM)
CHGVAR VAR(%SUBSTRING(&LDA 501 006)) VALUE('AMIM30')
CHGVAR VAR(%SUBSTRING(&LDA 511 003)) VALUE('02M')
CHGVAR VAR(%SUBSTRING(&LDA 524 010)) VALUE(&WKSID)
CHGVAR VAR(%SUBSTRING(&LDA 701 010)) VALUE(&FNAM)
CHGVAR VAR(%SUBSTRING(&LDA 711 010)) VALUE(&DEV)
CHGVAR VAR(%SUBSTRING(&LDA 721 001)) VALUE(&FLOC)
CHGVAR VAR(%SUBSTRING(&LDA 725 001)) VALUE(&DEL)
CALL AXZPSJ PARM(&LDA AMIPEB)
ENDCL: ENDPGM
============================================================================
midrange.com
