DGPTRI2 ;ALB/JDS/MJK/MTC/ADL/TJ/BOK,ISF/GJW,HIOFO/FT - PTF TRANSMISSION ;4/20/15 9:18am
Source file <DGPTRI2.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
501 | ; -- setup 501 transactions
; DG*636 |
|
MOV | ; build movement record
|
|
535 | ; -- do 535's
|
|
PROC | ; -- setup 601 transactions
|
|
601 | ||
701 | ; -- setup 701 transaction
|
|
ENTER | ||
ENTER0 | ||
SAVE | ;save segment to MailMan message and ^TMP("AEDIT",$J), if data is valid
|
|
Q | ||
FILL | ;fill out segment with spaces
|
|
CDR |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DGPT - [#45] | GET1^DIQ |