1130 Commercial Subroutine Package - All about the IBM 1130 ...

ADDA1A3A1DECA3A1CARRYDECA1DIVDPACKDUNPKEDIT"4"'"FILLGETICOMPIONDKEYBDMOVEMPYNCOMPNSIGNNZONEPACKPRINTPUNCHPUTP1403P1442READR2501SKIPSTACKSUBS1403TYPERUNPACWHOLEEDITFormat: CALL EDIT(JCARD, J, JLAST, KCARD, K, KLAST)Function: Edits data from one array into another array, which contains the edit mask.Parameter description:JCARD - The name of a one-dimensional integer array defined in a DIMENSIONstatement. This array contains the data to be edited, called the sourcefield, one character per word, in Al format.J - An integer constant, an integer expression, or an integer variable. Thisis the position of the first character of JCARD to be edited (the left-handend of a field).JLAST - An integer constant, an integer expression, or an integer variable, greaterthan or equal to J. This is the position of the last character of JCARD tobe edited (the right-hand end of a field).KCARD The name of a one-dimensional integer array defined in a DIMENSIONstatement. This is the array into which data is edited; it contains the editmask before editing begins, stored one character per word, in Al format,and is called the mask field.K - An integer constant, an integer expression, or an integer variable. Thisis the position of the first character of the edit mask (the left-hand end ofa field).KLAST - An integer constant, an integer expression, or an integer variable, greaterthan K. This is the position of the last character of the edit mask (theright-hand end of a field).Detailed description: The following table gives the control characters for editing, thecharacters used to make up the mask, and their respective functions:Control CharacterFunctionb (blank) This character is replaced by a character from thesource field.0 (zero) This character indicates zero suppression and is replacedby a character from the source field. The position of thischaracter indicates the rightmost limit of zero suppression(see description of operation below). Blanks areinserted in the high-order nonsignificant positions ofthe field.