Re: MAPICS Offline Upload

Hi all.
I thought I read recently were Mapics had created a command that would allow
the ability to upload via offline files without using the offline file
import program. It was more simaliar to something they use in COM. Does
anyone know anything about this?

thanks
Jeff

Shuhail:

Does the batch get created if you do it from a MAPICS session? When ever
I have had problems when dealing with these types of programs, I would run
the program in debug & see what the LDA looks like when called from MAPICS
& then mimic that in my program.

Steve Jones



From:
Shuhail <Shuhail.Mohamed@xxxxxxxxxxxxxxx>
To:
mapics-l@xxxxxxxxxxxx
Date:
12/15/2007 09:35 AM
Subject:
[MAPICS-L] MAPICS Offline Upload



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

============================================================================

_______________________________________________
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
To post a message email: MAPICS-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mapics-l.



_______________________________________________
This is the MAPICS ERP System Discussion (MAPICS-L) mailing list
To post a message email: MAPICS-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mapics-l
or email: MAPICS-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mapics-l.